E-Mail-Weiterleitung Outlook 2003 ohne Anhang mithilfe eines VBA Skriptes

[kalle10000 10]

Tach zusammen,

 

ich habe gerade ein VBA Skript gefunden, womit ich E-Mails weiterleiten kann.

 

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

 

Dim objMail_In As Outlook.MailItem

Dim objMail_Out As Outlook.MailItem

Dim aryEntryIDs() As String

Dim lngCount As Long

 

'jedes neue MailItem durchgehen

aryEntryIDs = Split(EntryIDCollection, ",")

For lngCount = 0 To UBound(aryEntryIDs)

 

Set objMail_In = Application.Session.GetItemFromID(aryEntryIDs(lngCount))

Set objMail_Out = objMail_In.Forward

 

With objMail_Out

.To = "AndyGrothe@P-Serv.de"

.Subject = "weitergeleitet: " & objMail_In.Subject

.Send

End With

 

Next lngCount

 

End Sub

 

Ich muss jetzt aber noch irgendwie die Anhänge vor der Weiterleitung löschen. Kann mir bitte jemand helfen?

 

Thx im Voraus.