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