Resend an attachment which is an email

[Tony29]

There are a lot of questions/answers related to finding and saving
attachments but I think this is a little different.

I receive emails from a site's (e-mail address removed) indicating that the
email that I sent it could not be delivered. However I know that if I send
my email again it will eventually be delivered. It's just a glitch with
xxx.com.

The email that I receive from (e-mail address removed) contains as an
attachment the email that I sent in the first place - there is nothing else
that would help me identify the original email that I sent (which by now is
somewhere in my Sent Items folder).

I want to take the attachment from the returned email and simply resend it.

I have so far ...

I have found the email that has been returned by (e-mail address removed) and
then called ...
Public Sub ProcessUndeliveredResponseFromxxx(eMail As MailItem)

Dim Attachment As Outlook.Attachment
For Each Attachment In eMail.Attachments
If Right(Attachment.FileName, 4) = ".msg" Then

' This is me guessing
Dim NewEmail As Outlook.MailItem
NewEmail = Attachment
NewEmail.Send
Set NewEmail = Nothing
' This is the end of guessing

End If
Next
Set Attachment = Nothing

End Sub

Can someone provide the missing/incorrect logic?

TIA

 

[Michael Bauer [MVP - Outlook]]

First, you need to save the attachment as a file; call its SaveAsFile
method. you can then create the MailItem with the CreateItemFromTemplate
function.

--
Best regards
Michael Bauer - MVP Outlook
Outlook Categories? The Tool:
<http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>

Am Mon, 4 Feb 2008 21:08:00 -0800 schrieb Tony29:

 

[Tony29]

Thanks for your help - it took me a while to realise that I should use the
saved attachment as the template (sleep helps!) but I got there. Your
suggestion works as follows ...

For Each Attachment In eMail.Attachments
If Right(Attachment.FileName, 4) = ".msg" Then
Attachment.SaveAsFile TempFolder & Attachment.FileName
Set NewItem = Application.CreateItemFromTemplate _
(TempFolder &
Attachment.FileName)
NewItem.Send
eMail.UnRead = False
eMail.Delete
Kill TempFolder & Attachment.FileName
End If
Next

Thanks.