> Ann, probably you have to call objItem.Save in the end.
>
[quoted text clipped - 35 lines]
> > Thanks,
> > Ann
Please show what you've changed exactly.

Signature
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]" <m...@mvps.org>
> wrote:
[quoted text clipped - 41 lines]
> files attached to the merge template email; however, when the merge
> completed, the sent emails did not have the attached files.
Ann Campbell - 27 Feb 2007 15:14 GMT
On Feb 27, 1:27 am, "Michael Bauer [MVP - Outlook]" <m...@mvps.org>
wrote:
> Please show what you've changed exactly.
>
[quoted text clipped - 52 lines]
> > 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
Michael Bauer [MVP - Outlook] - 28 Feb 2007 06:08 GMT
Ok, I thought that :-) As mentioned, please write:
objItem.Save.

Signature
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:
> On Feb 27, 1:27 am, "Michael Bauer [MVP - Outlook]" <m...@mvps.org>
> wrote:
[quoted text clipped - 66 lines]
> Set objItem = Save
> End Sub