'-------------------------------------------------------------------------
' cdosample
'
' Beschreibung
' Einfaches Sample um per CDO eine Mailgox dynamisch zu öffnen und die Inhalte auszugeben
'
' Voraussetzung
' - Ausführender Benutzer muss das Postfach öffnen können
' - Verbindung zum DC/GC und Mailserver

' Eingabe
'
' Ausgabe:
'-------------------------------------------------------------------------

Option Explicit
on error resume next

const strHomeServer = "srv01"
const strMailbox = "Admin@msxfaq.local"

Const CdoDefaultFolderCalendar = 0
Const CdoDefaultFolderContacts = 5 
Const CdoDefaultFolderDeletedItems = 4 
Const CdoDefaultFolderInbox = 1 
Const CdoDefaultFolderJournal = 6 
Const CdoDefaultFolderNotes = 7
Const CdoDefaultFolderOutbox = 2 
Const CdoDefaultFolderSentItems = 3
const CdoDefaultFolderTasks = 8 

dim infostores, mapifolder, mailboxfolder, child, attachment
dim oMapiMessages, oMapiMessage, oMapiSession

If InStr(1,WScript.FullName,"cscript",vbTextCompare) = 0 Then   ' Prüfung ob mit CSCRIPT gestartet wurde
	wscript.echo "Bitte mit CSCRIPT aufrufen"
	wscript.quit (255)
end if

wscript.echo "CDOSample: started"
wscript.echo "CDOSample: Homeserver:" & strHomeServer
wscript.echo "CDOSample: Mailbox:" & strMailbox

Set oMapiSession = CreateObject("MAPI.Session")
if Err.Number <> 0 Then
	wscript.echo "CDOSample:  Error creating MAPI Session  Error: " & err.number
	err.clear : wscript.quit(1)
End If	

wscript.echo "CDOSample: try MapiConnect"
oMapiSession.Logon "", "", False, True, 0, true, strHomeServer & vbLf & strMailbox  
if Err.Number <> 0 Then
	wscript.echo "CDOSample:  Error MAPI Logon Error: " & err.number
	err.clear : wscript.quit(1)
end if

'~ set infostores = oMapiSession.InfoStores
'~ set mailboxfolder = infostores(2).RootFolder
'~ if Err.Number <> 0 Then
	'~ wscript.echo "CDOSample:  Error MAPI Get Rootfolder  Error: " & err.number
	'~ err.clear : wscript.quit(1)
'~ end if 	

Set mailboxfolder = oMapiSession.GetDefaultFolder(CdoDefaultFolderInbox)
wscript.echo "CDOSample: Mailbox successful opened"

wscript.echo "CDOSample: Currentfolder" & mailboxfolder.name

for each child in mailboxfolder.messages   'Ab hier kann ich dann alles machen
	wscript.echo "  Subject:" & child.subject , 5
	if child.Attachments.count > 0 then
		for each attachment in child.attachments
			wscript.echo "  Attachment:" & attachment.name,5
		next
	end if 
next


wscript.echo "CDOSample: Closing MAPI Connections"
set mailboxfolder = nothing
set infostores = nothing
oMapiSession.Logoff
Set oMapiSession = Nothing
wscript.echo "CDOSample: Done"