![]() 'strAttachment = strAttachPath & xlSheet.Range("E" & rCount) StrFirstname = xlSheet.Range("A" & rCount) Set olApp = CreateObject("Outlook.Application")ĭo Until Trim(xlSheet.Range("A" & rCount)) = "" Set olApp = GetObject(, "Outlook.Application") ![]() StrAttachPath = enviro & "\Documents\Send\" ' you need to set a reference to Outlook Object Library (Yes, I know, I'm not creative with demo values and prefer to use Excel's features to create demo values.) The finished merge will look like the following. Using unique values allows us to use VBA's Replace function. While you could use standard merge fields or bookmarks, you would need to use the Word Object Library to update the fields. It also sends the message From an address in the worksheet.Ĭreate an Outlook template, entering unique values where the merge fields would be entered. This macro reads values from an Excel worksheet and sends a mail merge, replacing unique values in the Outlook template with values in the worksheet.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |