Fax Export mit vb.net/dvapi32

Hallo,

für den Mailexport gibt es mit "DVEmlFromMailItem" eine bequeme Möglichkeit über die API Mails für andere Anwendungen zur Weiterverarbeitung zur Verfügung zu stellen. Die Funktion tut Ihren Dienst aber tatsächlich nur mit Mails. Fax und Voiceeinträge verweigern die Funktion. Ich habe deshalb eine eigene Funktion geschrieben, die die Faxdatei exportiert und einige Angaben zum Fax speichert:

Private Sub SaveFax() 


Dim oApp As DvApi32.IApplication 
Dim oAccount As DvApi32.Account 
Dim oArchive As DvApi32.Archive 
Dim oFaxItem As DvApi32.FaxItem 
Dim oMessageItems As DvApi32.MessageItems 


Dim Export, NewFile, Pfad As String 
Dim i As Integer 
Export = "D:\Test" 
Pfad = "group\fax\in" 


oApp = CreateObject("DVOBJAPILib.DvISEAPI") 
oAccount = oApp.Logon("", "", "", "", "", "AUTH") 
oArchive = oAccount.ArchiveFromID(Pfad) 
oMessageItems = oArchive.AllItems 


For i = 0 To oMessageItems.Count - 1 
If oMessageItems.Item(i).Type = DvApi32.DvItemTypes.DvFaxItem Then 
oFaxItem = oMessageItems.Item(i) 
FileOpen(2, Export + "\" + Pfad + "\fax" & Trim(Str(i + 1)) & ".txt", OpenMode.Output) 
PrintLine(2, oFaxItem.Subject) 'Betreff (leider immer Fax) 
PrintLine(2, oFaxItem.Image) 'Dateiname zur TIF Datei 
PrintLine(2, My.Computer.FileSystem.GetFileInfo(oFaxItem.Image).LastWriteTime) 'LastWriteTime 
PrintLine(2, oFaxItem.To) 'An Feld ist leer 
PrintLine(2, oFaxItem.Type) 'Typ = 3 = Fax 
PrintLine(2, oFaxItem._ID) 
FileClose(2) 
NewFile = Export + "\" + Pfad + "\fax" & Trim(Str(i + 1)) & ".tif" 
FileCopy(oFaxItem.Image, NewFile) 
End If 
Next 


End Sub

Die Faxdatei (TIF) wird in den Exportordner kopiert, und eine Textdatei mit den Infos aus oFaxItem wird angelegt. Leider fehlen mir einige wichtige Infos die ich trotz langer Suche in verschiedenen Foren sowie bei Google nicht finden konnte. Ich bekomme über den Filenamen noch Datum und Uhrzeit, aber der Absender sowie die gerufene Nummer finde ich in oFaxItem nicht. Wer kann mir helfen?

Liebe Grüße Claudius

Hallo und vielen Dank für die schnelle Antwort.

Zitat

Hast Du mal versucht über die "Fields" an die Daten ran zu kommen? Das FaxItem besitzt die Möglichkeit darauf zuzugreifen. Ansonsten vielleicht auch mal ein MessageItem2 erzeugen (über den FileName sollte das möglich sein) und dort mit den Fields arbeiten.

Hast Du zufällig ein paar Zeilen Beispielcode wie ich an die Daten per MessageItem2 komme? Ich habe gegoogelt und verschiedene Beispiele versucht umzusetzen, bekomme aber einen Fehler nach dem anderen.

Ich habe nun aber noch eine zweite Baustelle:
"Normale" Mailordner kann ich ja mit "oArchive = oAccount.ArchiveFromID(Pfad)" bequem zuweisen.
Ich möchte nun aber auf Adressen zugreifen, die in freien Ordnern, bei einem anderen Benutzer oder in Unterordnern eines Adressbuchs (Persönlich bzw Global) abgelegt sind. Wenn ich eine andere Zuweisung als "oAddressbook = oAccount.GlobalAddressBook" oder "oAddressbook = oAccount.PersonalAddressBook" mache hagelt es auch nur Fehlermeldungen. Die Logik dahinter hier offensichtlich nicht so bequem auf Ordner zugreifen zu können habe ich auch irgendwie nicht verstanden.

Liebe Grüße Claudius

Hallo nochmal,

ich muss blind gewesen sein, dass ich das MessageItem2 Beispiel nicht selbst gefunden habe - es war nun wahrlich nicht sehr versteckt. Der Zugriff damit geht tatsächlich um einiges schneller und ich kann nun beim Faxexport auf Feldinformationen zugreifen die mir gefehlt haben. Ich habe sogar mit erstem Erfolg begonnen, die vordefinierte Routine DVEmlFromMailItem durch eine eigene Routine mit MessageItem2 Objekten abzulösen, da die vordefinierte Routine manchesmal einige Zicken machte.

Zum Thema Adressbuch über MessageItem2 bin ich jedoch nicht weitergekommen. Wenn ich mir den Inhalt von oFields auflisten lasse, bekomme ich viele Informationen aber keine Adressdaten. Trotzdem klappt nun der Zugriff auf beliebige Adressbücher und auch die Zusatzfelder seit David10 bekomme ich über GetField("feldname") ausgelesen. Damit komme ich nun hoffentlich an alle Daten die ich benötige

Vielen Dank für das entfernen des berühmten "Brett vorm Kopf"
Claudius