Send Emails from MailMerge in Word using Specified Email Address

		Microsoft Office Forums > Microsoft Word > Mail Merge
Send Emails from MailMerge in Word using Specified Email Address

FAQ

Thread Tools

Display Modes

07-25-2015, 12:21 AM

macropod

Windows 7 64bit Send Emails from MailMerge in Word using Specified Email Address

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,516

I'm no Outlook expert, but I think you can do this by declaring a new variable:
x As Long
then inserting:

Code:

'Get the Outlook account to use
With oOutlookApp.Session.Accounts
  For x = 1 To .Count
    If .Item(x).CurrentUser.Name = "Name_of_Account_to_Use" Then Exit For
  Next
End With

before:
' Open the catalog mailmerge document
and changing:
.Send
to:
.SendUsingAccount = oOutlookApp.Session.Accounts.Item(x)

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to send from non-default email address	k.n.	Mail Merge	5	12-03-2013 03:22 AM
Hyprelinks dropped out of email mailmerge after 500 of 1500 emails sent	Hazel Parker	Outlook	0	08-19-2012 06:20 PM
Outllok (2003) Rule to Send a New Email to a New Address upon Receipt of Specific Msg	Hendel	Outlook	1	10-27-2011 09:22 AM
unable to send test message Please verify the email address field	jarv	Outlook	0	04-30-2010 07:15 AM
Can't mailmerge emails with outlook & word 2007	chayden	Mail Merge	0	01-27-2010 08:19 AM