I have this code that perfectly forwards all my outlook mails to gmail. Only one thing is missing: In gmail, there is "no subject". Can anyone help me modify the code below to include the original subject in the forwarded mail?
In "this outlook session":
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim varEntryID As Variant
Dim objOriginalItem As MailItem
Dim newMail As MailItem
For Each varEntryID In Split(EntryIDCollection, ",")
Set objOriginalItem = Application.GetNamespace("MAPI").GetItemFromID(var EntryID)
Do Until objOriginalItem.Attachments.Count = 0
objOriginalItem.Attachments.Remove (1)
Loop
Set newMail = CreateItem(olMailItem)
With newMail
.To = "[email protected]"
.Subject
.Attachments.Add objOriginalItem
.Display
.Send
End With
Next
ExitRoutine:
Set objOriginalItem = Nothing
Set newMail = Nothing
End Sub
Bookmarks