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