Outlook - eMails erneut senden statt weiterleiten, VBA-Code anpassen

Function GetCurrentItem() As Object
Dim objApp As Outlook.Application
Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"  
Set GetCurrentItem = _
objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"  
Set GetCurrentItem = _
objApp.ActiveInspector.CurrentItem
Case Else
End Select
End Function
Sub user1()

Dim objMail As Outlook.MailItem

Set objItem = GetCurrentItem()
Set objMail = objItem.Forward
objMail.To = "user1@intern.de"  
objMail.Send
objItem.Delete
Set objItem = Nothing
Set objMail = Nothing

End Sub
Sub user2()

Dim objMail As Outlook.MailItem

Set objItem = GetCurrentItem()
Set objMail = objItem.Forward
objMail.To = "user2@intern.de"  
objMail.Send
objItem.Delete
Set objItem = Nothing
Set objMail = Nothing

End Sub