Aug 29 2008
DvAPI EML-Export unter .Net
Eigentlich sollte der Export einer DavidZehn Mail ins EML-Format dank der DvAPI kein großes Problem sein. Ein entsprechendes Beispiel gibt es sogar in der API Dokumentation:
Private Declare Function DVEmlFromMailItem Lib "DvApi32" (ByVal oMailItem As DvApi32.MailItem, ByVal strFileName As String) As Long
Private Sub eMail2eml_Click()
'Save all MailItems entries as .eml
Dim oApp As DvApi32.IApplication
Dim oAccount As DvApi32.Account
Dim oArchive As DvApi32.Archive
Dim oMailItem As DvApi32.MailItem
Dim oMessageItems As DvApi32.MessageItems
Dim Filename As String
Dim i As Integer
Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
Set oAccount = oApp.Logon("", "", "", "", "", "AUTH")
Set oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalIn)
Set oMessageItems = oArchive.AllItems
For i = 0 To oMessageItems.Count - 1
If oMessageItems.Item(i).Type = DvApi32.DvItemTypes.DvEMailItem Then
oMailItem = oMessageItems.Item(i)
Filename = Space(260)
If DVEmlFromMailItem(oMailItem, Filename) <> 0 Then
' In Filename are the saved EML file
FileCopy Filename, "c:\" & oMailItem.Subject & ".eml"
End If
End If
Next
End Sub
Aber leider funktioniert dieses Beispiel unter .Net nicht, denn die Funktion FileCopy wirft hier eine Exception “Illegales Zeichen im Pfad”.
Das Problem liegt in der Zeile “Filename = Space(260)“, welche die Variable mit 260 Leerzeichen initialisiert.
In diese Variable wird von der API der temporäre Filename der EML Datei geschrieben, aber die überzähligen Leerzeichen werden dabei nicht entfernt.
.Net kann diese Leerzeichen nicht verarbeiten und wirft eine Exception. Auch ein Trim(Filename) hilft nicht weiter.
Aber man kann den temporären Filenamen einfach zerlegen und schneidet damit alle Leerzeichen nach dem eigentlichen Filenamen ab:
For i = 0 To oMessageItems.Count - 1
If oMessageItems.Item(i).Type = DvApi32.DvItemTypes.DvEMailItem Then
oMailItem = oMessageItems.Item(i)
Filename = Space(260)
If DVEmlFromMailItem(oMailItem, Filename) <> 0 Then
' In Filename are the saved EML file
Filename = Filename.Substring(0, Filename.LastIndexOf(".tmp") + 4)
FileCopy Filename, "c:\" & oMailItem.Subject & ".eml"
End If
End If
Next
Ein weiterer Lösungsansatz wäre, mit der IWshRuntimeLibrary zu arbeiten, denn der CopyFile Befehl des FileSystemObject (IWshRuntimeLibrary.FileSystemObject()) stört sich nicht an den Leerzeichen:
For i = 0 To oMessageItems.Count - 1 If oMessageItems.Item(i).Type = DvApi32.DvItemTypes.DvEMailItem Then oMailItem = oMessageItems.Item(i) Filename = Space(260) If DVEmlFromMailItem(oMailItem, Filename) <> 0 Then Dim objFileSystemObject As New IWshRuntimeLibrary.FileSystemObject() ' In Filename are the saved EML file objFileSystemObject.CopyFile(Filename, "c:\" & oMailItem.Subject & ".eml") End If End If Next
:
