[Mark41]

Hallo, folgendes Problem.

Ich möchte einzelne Emails per Knopfdruck mit einem Makro an eine bestimmte Adresse weiterleiten. Genutzt wird Outlook 2003. Kann mir da jemand einen vorgefertigten VBA Code geben? Bin für jede Hilfe dankbar.

mfg

[Mark41]

Hat sich erledigt, habe selbst eins geschrieben

mfg

[dastriebel]

wäre schön, wenn Du uns an Deinem Makro teilhaben lässt

[Mark41]

Kein Problem, hier der Code, viel spaß damit

mfg



Sub test()



Dim objMail_In As Outlook.MailItem

Dim objMail_Out As Outlook.MailItem



Set objMail_In = ActiveInspector.CurrentItem

Set objMail_Out = objMail_In.Forward



With objMail_Out

.To = "[email protected]" '<- hier Empfänger eintragen

.Subject = "weitergeleitet: " & objMail_In.Subject

.Send

End With



End Sub