Doric

Schönen guten Tag,

ich habe hier im Forum einen VBA Code gefunden, womit ich ganz praktisch eMails an meine Mitarbeiter weiterleiten kann. Leider steht dann beim Empfänger ich als Absender drin, statt der ursprüngliche Absender. Beim Antworten der Nachricht denkt nicht jeder dran.

Kann man diesen Code so anpassen, das der ursprüngliche Absender beim Mitarbeiter steht? Ähnlich wie "Aktionen" -> "Diese Nachricht erneut senden"

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 Mitarbeiter1()

Dim objMail As Outlook.MailItem

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

End Sub
Sub Mitarbeiter2()

Dim objMail As Outlook.MailItem

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

End Sub

Ich habe so für jeden Mitarbeiter einen Butten in der Symbolleiste. Da geht das Weiterleiten sehr schnell.

Vielleicht könnte mir da jemand weiterhelfen?

Grüße

Doric