Outlook Email Merge with Attachment

  • Thread starter Thread starter Ann Campbell
  • Start date Start date
A

Ann Campbell

I am sending out five mass emailings to clients. I'm able to setup
the email merge and message in HTML format for the body of the email;
however, I need specific pdfs to attach to the mass mailing.

This is the code that I have so far and when it runs successfuly on
the email merge template (and any email window that is open); however,
when I click email merge as the final step, the emails go out without
attachments. I've tried to save the emails in the Outbox, open the
emails and run the macro there, but the files attach to only one
email.

Sub AttachPDF()
Dim objItem
On Error Resume Next
Set objItem = Application.ActiveInspector.CurrentItem
objItem.Attachments.Add "K:\filepath\filename1.pdf"
objItem.Attachments.Add "K:\filepath\filename2.pdf"
objItem.Attachments.Add "K:\filepath\filename3.pdf"
objItem.Attachments.Add "K:\filepath\filename4.pdf"
objItem.Attachments.Add "K:\filepath\filename5.pdf"
Set objItem = Nothing
End Sub

I know very little about macros and VB in Outlook, so your patience
and guidance is greatly appreciated!!

Thanks,
Ann
 
Ann, probably you have to call objItem.Save in the end.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?productid=300120654&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 23 Feb 2007 08:56:12 -0800 schrieb Ann Campbell:
Click to expand...

I changed Nothing to Save and ran the macro on the email merge. The
files attached to the merge template email; however, when the merge
completed, the sent emails did not have the attached files.
 
Please show what you've changed exactly.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?productid=300120654&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 13:15:28 -0800 schrieb Ann Campbell:
Click to expand...

Sub AttachPDF()
Dim objItem
On Error Resume Next
Set objItem = Application.ActiveInspector.CurrentItem
objItem.Attachments.Add "K:\filepath\filename1.pdf"
objItem.Attachments.Add "K:\filepath\filename2.pdf"
objItem.Attachments.Add "K:\filepath\filename3.pdf"
objItem.Attachments.Add "K:\filepath\filename4.pdf"
objItem.Attachments.Add "K:\filepath\filename5.pdf"
Set objItem = Save
End Sub
 
Ok, I thought that :-) As mentioned, please write:
objItem.Save.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?productid=300120654&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am 27 Feb 2007 07:14:33 -0800 schrieb Ann Campbell:
Please show what you've changed exactly.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?productid=300120654&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 13:15:28 -0800 schrieb Ann Campbell:
On Feb 26, 1:08 am, "Michael Bauer [MVP - Outlook]" <[email protected]>
wrote:
Ann, probably you have to call objItem.Save in the end.
Click to expand...
--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?productid=300120654&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)
Click to expand...
Am 23 Feb 2007 08:56:12 -0800 schrieb Ann Campbell:
Click to expand...
I am sending out five mass emailings to clients. I'm able to setup
the email merge and message in HTML format for the body of the email;
however, I need specific pdfs to attach to the mass mailing.
Click to expand...
This is the code that I have so far and when it runs successfuly on
the email merge template (and any email window that is open); however,
when I click email merge as the final step, the emails go out without
attachments. I've tried to save the emails in the Outbox, open the
emails and run the macro there, but the files attach to only one
email.
Click to expand...
Sub AttachPDF()
Dim objItem
On Error Resume Next
Set objItem = Application.ActiveInspector.CurrentItem
objItem.Attachments.Add "K:\filepath\filename1.pdf"
objItem.Attachments.Add "K:\filepath\filename2.pdf"
objItem.Attachments.Add "K:\filepath\filename3.pdf"
objItem.Attachments.Add "K:\filepath\filename4.pdf"
objItem.Attachments.Add "K:\filepath\filename5.pdf"
Set objItem = Nothing
End Sub
Click to expand...
I know very little about macros and VB in Outlook, so your patience
and guidance is greatly appreciated!!

I changed Nothing to Save and ran the macro on the email merge. The
files attached to the merge template email; however, when the merge
completed, the sent emails did not have the attached files.
Click to expand...
Click to expand...

Sub AttachPDF()
Dim objItem
On Error Resume Next
Set objItem = Application.ActiveInspector.CurrentItem
objItem.Attachments.Add "K:\filepath\filename1.pdf"
objItem.Attachments.Add "K:\filepath\filename2.pdf"
objItem.Attachments.Add "K:\filepath\filename3.pdf"
objItem.Attachments.Add "K:\filepath\filename4.pdf"
objItem.Attachments.Add "K:\filepath\filename5.pdf"
Set objItem = Save
End Sub
Click to expand...
 
Back
Top