Hallo alle zusammen,
wie der Titel schon verrät habe ich aktuell das Problem das die Funktion DVEmlFromMailItem mir nicht für alle Mails den Dateipfad zurück gibt.
Wie folgt sieht mein Code derzeit aus:
For Each mailToExport In theArchive.GetTobitArchiv().MailItems.OfType(Of MailItem)
Try
Dim fileName = Space(260)
Dim returnCode As Long = Nativ.DVEmlFromMailItem(mailToExport, fileName)
If returnCode <> 0 Then
fileName = Trim(fileName)
fileName = Replace(fileName, Chr(0), "")
fileName = Trim(fileName)
If (Not String.IsNullOrEmpty(fileName)) Then
fileName = IO.Path.GetFullPath(fileName)
CopyAndAdjustEml(mailToExport, fileName, targetFile, theArchive, direction)
store.Add(identifierOfMail)
Else
Console.WriteLine($"Email filepath is not available | MailId: {mailToExport._ID} - Subject: {mailToExport.Subject}")
End If
End If
Catch ex As Exception
Console.WriteLine(ex.ToString())
End Try
Next
Leider sehe ich einfach nicht warum es, vorallem bei Ausgehenden Mails, so ist.
Hat da jemand vielleicht eine Idee?
Ich danke euch schonmal im Vorraus!