Ich versuche per Script EML Dateien aus meinen Infocenter zu exportieren, die API Ansteuerungen ist aus der Dokumentation von Tobit. Leider passiert nichts und ich habe keine Ahnung warum, kennt sich jemand mit der Tobit API so aus und zeigt mir meinen Fehler?
Dim $oApp, $oAccount, $oArchive, $oMailItem, $oMessageItems, $oMessageItem, $Filename, $Item, $oUser, $DVEmlFromMailItem
$oApp = ObjCreate("DVOBJAPILib.DvISEAPI")
$oAccount = $oApp.Logon("", "", "", "", "", "AUTH")
$oArchive = $oAccount.GetSpecialArchive(101)
$oMessageItems = $oArchive.AllItems
MsgBox(0, "", "Anzahl der gefunden Mails: " & $oMessageItems.Count)
$sFileName = @SystemDir & '\shell32.dll'
$stString = DllStructCreate("wchar[260]")
$open = DllOpen("DVAPI32.DLL")
For $i = 0 To $oMessageItems.Count - 1
$oMessageItem = $oMessageItems.Item($i)
If $oMessageItem.Type = 0 Then
$oMailItem = $oMessageItems.Item($i)
$Filename = $stString
MsgBox(0, "", $oMailItem.Subject)
MsgBox(0, "", DllCall($open, "init", "DVEmlFromMailItem", "", "oMessageItem", "Filename"))
If DllCall($open, "none", "DVEmlFromMailItem", "oMailItem", $Filename) <> 0 Then
FileCopy($Filename, @WorkingDir&"\" & $oMailItem.Subject & ".eml")
EndIf
EndIf