Outlook Email Merge with Attachment
 

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

Outlook Email Merge with Attachment
 

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?...4&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!!

Thanks,
Ann

Outlook Email Merge with Attachment
 

On Feb 26, 1:08 am, "Michael Bauer [MVP - Outlook]"
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?...4&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!!

Thanks,
Ann

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.

Outlook Email Merge with Attachment
 

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?...4&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]"
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?...4&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!!

Thanks,
Ann

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.

Outlook Email Merge with Attachment
 

On Feb 27, 1:27 am, "Michael Bauer [MVP - Outlook]"
wrote:
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?...4&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]"
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?...4&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!!

Thanks,
Ann

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

Outlook Email Merge with Attachment
 

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?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am 27 Feb 2007 07:14:33 -0800 schrieb Ann Campbell:

On Feb 27, 1:27 am, "Michael Bauer [MVP - Outlook]"
wrote:
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?...4&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]"
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?...4&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!!

Thanks,
Ann

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