View Single Post
  #3  
Old February 6th 08, 02:47 AM posted to microsoft.public.outlook.program_vba
Tony29
external usenet poster
 
Posts: 5
Default Resend an attachment which is an email

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.

"Michael Bauer [MVP - Outlook]" wrote:



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:

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


Ads