vbs script afzender mail weergeven

[Anoniem2]

in deze vbs wil ik dat het email adres word weergegeven van de afzender dzeg maar hij geeft nu de grote aan mailbox items en daar wil ik dat email adres bij komt in het tekst betand\r\n\r\nSet objFSO = CreateObject(\"Scripting.FileSystemObject\") \r\nSet objResultsFile = objFSO.CreateTextFile(\"C:\\stuff\\mailboxes.csv\", True) \r\n\r\nstrComputer = \".\" \r\nSet objWMIService = GetObject(\"winmgmts:\\\\\" & strComputer & \"\\root\\MicrosoftExchangeV2\") \r\nSet colItems = objWMIService.ExecQuery (\"Select * from Exchange_Mailbox\") \r\n\r\nFor Each objItem in colItems \r\nobjResultsFile.Write objItem.MailboxDisplayName & \" , \"\r\nobjResultsFile.Write objItem.MailboxTotalItems & \" , \" \r\nobjResultsFile.Write objItem.Size \r\nobjResultsFile.Writeline \r\nNext \r\n\r\nobjResultsFile.Close

[Anoniem2]

Het is alweer een tijdje geleden dat ik daarmee iets heb gedaan maar volgens mij staat het email adres van de afzender in het attribuut SenderMailAddress van het object objitem in de collectie colitems.\n\nDus: objitem.SenderMailAddress

[Anoniem2]

ik heb het het geprobeert met dit obj item maar dan krijg ik. object doesn\'t support this property or method.\r\nheb hem zo ingevoerd \r\n\r\nSet objFSO = CreateObject(\"Scripting.FileSystemObject\") \r\nSet objResultsFile = objFSO.CreateTextFile(\"C:\\stuff\\mailboxes.csv\", True) \r\n\r\nstrComputer = \".\" \r\nSet objWMIService = GetObject(\"winmgmts:\\\\\" & strComputer & \"\\root\\MicrosoftExchangeV2\") \r\nSet colItems = objWMIService.ExecQuery (\"Select * from Exchange_Mailbox\") \r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\nFor Each objItem in colItems \r\n\r\n\r\nobjResultsFile.Write objItem.MailboxDisplayName & \" , \"\r\n\'objResultsFile.Write objItem.MailboxTotalItems & \" , \" \r\nobjResultsFile.Write objItem.Size & \" , \"\r\nobjResultsFile.write objitem.SenderMailAddress \r\n\r\nobjResultsFile.Write from\r\nobjResultsFile.Writeline \r\nNext \r\n\r\nobjResultsFile.Close

[Anoniem2]

Ik heb nog even in wat oude spullen gekeken en wat ik je vertelde gebruikte ik in Outlook, dus niet in Exchange.

[Anoniem2]

en moet die van exchange hebben deze