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 = "MYMAILHERE@gmail.com"
.Subject
.Attachments.Add objOriginalItem
.Display

.Send
End With


Next

ExitRoutine:
Set objOriginalItem = Nothing
Set newMail = Nothing

End Sub