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