Hallo,
ich suche seit einer ganzen Weile nach einer Möglichkeit den Abschlußstatus von Faxsendungen zu kontrollieren.
Da es nicht funktioniert die Versandbestätigung außer an den User(Faxsender) auch an den Administrator weiter zu leiten, und mir eine Regel (mit Weiterleitung, XMedia) auf das Ausgangsarchiv auch nicht hilft, da dabei die originale Betreffzeile verloren geht, möchte ich es gerne per DvAPI32 versuchen.
Mit folgendem VB-Skript kann ich die Betreffzeilen der abgehenden und gesendeten Faxe auslesen.
' Skript ##############################
Dim strTo As String
Dim fso As New FileSystemObject
Dim txtfile As TextStream
Dim oApp As DvApi32.DavidAPI
Dim oAcc As DvApi32.Account
Dim oArchive As DvApi32.Archive
Dim oItem As DvApi32.MessageItem
Dim oItems As DvApi32.MessageItems
Dim oTaskItem As DvApi32.TaskItem
Set oApp = CreateObject("DVOBJAPILib.DvISEApi")
Set oAcc = oApp.Logon("", "", "", "SYSTEM", "", "AUTH")
Set oArchive = oAcc.GetArchive("\\ntserver09\David\Archive\USER\10008000\Out") 'GetSpecialArchive(DvArchivePersonalToDo)
Set oItems = oArchive.AllItems
MsgBox oItems.Count
For Each oItem In oItems
' Betreffzeile lesen
strTo = strTo & oItem.Subject & vbNewLine
Next
' Betreffzeilen in txt-File speichern
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
txtfile.WriteLine (strTo)
txtfile.Close
oAcc.Logoff
' ##################################
Damit erhalte ich folgendes erfreuliches Ergebnis.
' Ergebnis ############################
Bestell-Nr.: 11664 Fax-Bestellung
Bestell-Nr.: 11663 Fax-Bestellung
M P S
M P S
Bestell-Nr.: 11659 Fax-Bestellung
Bestell-Nr.: 11658 Fax-Bestellung
Bestell-Nr.: 11656 Fax-Bestellung
...
' ##################################
Was mir jetzt noch fehlt, ist der Abschlußstatus und wenn möglich Datum und Urzeit. Ich schaffe es aber nicht, diese Eigenschaften auszulesen.
Wie kann ich das realisieren? Die Daten sind ja vorhanden, wenn ich das Tobit InfoCenter öffne.
MfG
Sebastian