Add Attachment to Item in Outbox

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have following code to add attachment to selected items in outbox. I would
like to add code to test the TO: value and attach a specifice email based on
value.


Sub AddAttachmentToSelectedMessages()
Dim objItem As MailItem
If ActiveExplorer.Selection.Count = 0 Then Exit Sub

For Each objItem In ActiveExplorer.Selection
objItem.Attachments.Add ("C:\ap.xls")
objItem.Save
Next
End Sub

I tried to add line such as:

If objItem.To = "(e-mail address removed)" then
objItem.Attachments.Add ("C:\bob.xls") ... but it didn't work.

Any ideas to identify the TO value of teh email in the outbox??

Thanks,

Joel
 
It's better to read the addresses from each item's Recipients collection
instead.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --

Am Sun, 12 Nov 2006 07:49:02 -0800 schrieb Joel:
 
Back
Top