Hallo Xperten,
ich möchte ein Makro erstellen, welches in einem bestimmten Folder unter Outlook2000 alle eMails durchforstet und sämtliche Anhänge aus den eMails löscht.
Wer kann mir dabei helfen? Ich bin zwar recht fit in VB, habe aber echte Probleme mit dem Outlook-Objektmodell.
Gruß und Dank an alle, die mir helfen können.
(Woly)
Ein Blick in die Hilfe …
… und alles sollte klar sein 
Ich zitiere:
Remove Method Example
This Visual Basic for Applications example uses the Remove method to remove all attachments from a forwarded message before sending it on to John Y. Chen.
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem.Forward
Set myAttachments = myItem.Attachments
While myAttachments.Count \> 0
myAttachments.Remove 1
Wend
myItem.Recipients.Add "John Y. Chen"
myItem.Send
If you use VBScript, you do not create the Application object. This example shows how to perform the same task using VBScript.
Set myItem = Application.ActiveInspector.CurrentItem.Forward
Set myAttachments = myItem.Attachments
While myAttachments.Count \> 0
myAttachments.Remove 1
Wend
myItem.Recipients.Add "John Y. Chen"
myItem.Send
Das mit VBScript fetzt übrigens. Wenn man auf große Benutzer-Schnittstellen verzichten kann, geht alles auch damit. man braucht lediglich das Notepad dazu.
Kristian