eMail Adresse mit VBA aus Nachrichten holen

Moin Leute!

Ich bastele zur Zeit ein wenig mit VBA und Outlook herum. Versuche derzeit, einen Ordner zu überwachen und jedesmal, wenn eine neue eMail in diesen Ordner eingeht, von dieser die eMail Adresse zu bekommen. Die Überwachung funktioniert, jetzt weiß ich nur leider net, wie ich an die Absenderadresse dieser eMail komme….Hier mal das, was ich bis jetzt habe:

\'(!–#pragma asynchronous–) //Sollten spitze Klammern sein, mag er aber net

Option Explicit

Dim myOlApp, myNameSpace, myFolder
Dim k, MailCount, CurrentMailCount

Const DEF = 100

Set myOlApp = CreateObject(\“Outlook.Application\“)
Set myNameSpace = myOlApp.GetNameSpace(\“MAPI\“)
Set myFolder = myNameSpace.GetDefaultFolder(5) \’olFolderSentMail

MailCount = myFolder.Items.Count
Do
WScript.Sleep 1000
CurrentMailCount = myFolder.Items.Count
if MailCount < CurrentMailCount then for k=MailCount+1 to CurrentMailCount [/i][b] Hier sollte dann die Absender-Adresse herausgefiltert werden[/b] [i] next MailCount = CurrentMailCount end if Loop Until DEF <> 100

Hat da jemand eine Ahnung, wie der Code ungefähr aussehen sollte?

Thx schonmal
Marcus

//EDIT:
Hab noch ein wenig was ausprobiert. Kann mir jetzt mit \“SenderName\“ den Namen ausgeben lasse, aber wenn ich das gleiche mit \“SenderAdress\“ versuche, bekomme ich folgende Fehlermeldung:

Fehler: Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: \’myItem.SenderAdress\‘
Code: 800A01B6
Quelle: Laufzeitfehler in Microsoft VBScript

Habe dafür ein anderes, weitaus kleineres Script zum testen genommen:

DIM myOlApp, myNamespace, myFolder, sender

Set myOlApp = CreateObject(\“Outlook.Application\“)
Set myNamespace = myOlApp.GetNamespace(\“MAPI\“)
Set myFolder = myNamespace.GetDefaultFolder(6)
Set myItem = myFolder.Items(2)

sender = myItem.SenderAdress
wscript.echo sender

[Editiert am 30/8/2004 von Stone]