VBA forward to gmail - how to include original subject in forwarded mail?

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

Thank you, I got your line incorporated in a new code that forwards all my outlook mails as desired, including the original subject:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim varEntryID As Variant
Dim objForwardedItem As MailItem
Dim objOriginalItem As MailItem
Dim newMail As MailItem
On Error Resume Next
For Each varEntryID In Split(EntryIDCollection, ",")
'denne under lagt til
Set objOriginalItem = Application.GetNamespace("MAPI").GetItemFromID(varEntryID) 'det er denne som henter originalsender adresse....ser det ut til...
Set newMail = CreateItem(olMailItem)
With newMail
.To = "[email protected]"
.Attachments.Add objOriginalItem
.Subject = objOriginalItem.Subject
.Display
.Send
End With

Next

End Sub