Microsoft Office Forums - View Single Post - VBA forward to gmail

gmayor · 02-04-2016, 06:54 AM

I would do things differently. As I understand it from your code, you want to send a copy of each message you send to another e-mail address but with any attachments removed? That being the case

Code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim olCopy As MailItem
Dim olAtt As Attachment
    Set olCopy = Item.Forward
    With olCopy
        For Each olAtt In olCopy.Attachments
            olAtt.Delete
        Next olAtt
        .To = "someone@gmail.com"
        .Send
    End With
lbl_Exit:
    Exit Sub
End Sub

should work.