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