1. Home
  2. Knowledge Base
  3. Outlook
  4. Outlook Weiterleitung einer E-Mail mit Löschung

Outlook Weiterleitung einer E-Mail mit Löschung

Folgendes VB Script in Outlook sendet die aktuell ausgewählte E-Mail an eine definierte E-Mail-Adresse:

Sub WeiterleitenFilee()
'oMail As MailItem
Dim objMail_In As MailItem
Dim objMail_Out As MailItem


Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set myItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set myItem = ActiveInspector.CurrentItem
Case Else
End Select


Set objMail_In = myItem
Set objMail_Out = objMail_In.Forward

With objMail_Out
.To = "mailempfaenger@testmail.de" 'Empfänger
.Subject = "Fileee: " & objMail_In.Subject
.DeleteAfterSubmit = True
.Send
End With

End Sub
Was this article helpful?

Need Support?

Can't find the answer you're looking for?
Contact Support