Outlook Email Merge with Attachment

[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

 

[Michael Bauer [MVP - Outlook]]

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:

 

[Ann Campbell]

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:

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.

 

[Michael Bauer [MVP - Outlook]]

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:

 

[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:

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

 

[Michael Bauer [MVP - Outlook]]

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.

--
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:

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!!

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.

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