Henri Kuiper's Weblog

Wel een beetje quick en dirty :)
Maar het werkt.

'Constants
Const olOutlookInternal = 0
Const olFolderContacts = 10

Dim olkApp, olkNS, olkFolder, olkContact, olkProperty
Dim objShell, strUser
Dim objFileSystem, objOutputFile
Dim strOutputFile
Dim strLine


'Get Outlook ready
Set olkApp = CreateObject("Outlook.Application")
Set olkNS = olkApp.GetNamespace("MAPI")
Set olkFolder = olkNS.GetDefaultFolder(olFolderContacts)

Set objShell = WScript.CreateObject("WScript.Network")
strUser = objShell.UserName

' generate a filename base on the username
strOutputFile = "./" & strUser & "-contactexport.csv"


'Get filesystem up and running
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)


'Main Routine

objOutputFile.WriteLine("Naam;E-mailadres")

For Each olkContact In olkFolder.Items
If olkContact.Email1Address <> "" Then
objOutputFile.WriteLine(olkContact.FullName & ";" & olkContact.Email1Address)
end if
Next



Set olkApp = Nothing
Set olkNS = Nothing
Set olkFolder = Nothing
Set olkContact = Nothing
Set olkProperty = Nothing
Set objShell = Nothing

Labels: export email.wscript, outlook