Lotus Notes Mail extrahieren mit Anhang
23.10.2017 15:57:18
Thorben
ich habe ein Problem und zwar, kann ich mit dem Skript (hier als Zitat), zwar in Lotus Notes Anhänge exportieren, die direkt im Body der Mail sind, aber sollte der Anhang sich außerhalb von diesem, also als "reiner" Anhang dabei sein, funktioniert es nicht!
kann jemand Helfen?
'Prüfen ob Attachments innerhalb der Mail vorhanden sind
Set LNItem = doc.GETFIRSTITEM("Body")
If doc.HasEmbedded Then
int_Anhang = 1
x = 0
Worksheets("Mails").Cells(j, 3).Value = 0
On Error Resume Next
For Each LNAttachment In LNItem.EmbeddedObjects
y = 0
AttPath = ActiveWorkbook.path & "\01-Weiterleitung_Mail-Anhang\" & y & "-" + _
LNAttachment.Name
While Dir(AttPath) ""
y = y + 1
AttPath = ActiveWorkbook.path & "\01-Weiterleitung_Mail-Anhang\" & y & " _
-" + LNAttachment.Name
Wend
LNAttachment.ExtractFile (AttPath)
Worksheets("Mails").Cells(j, 3).Value = Worksheets("Mails").Cells(j, 3). _
Value + 1
Worksheets("Mails").Cells(j, 7 + x).Value = y & "-" + LNAttachment.Name
x = x + 1
Next
On Error GoTo Fehler
Debug.Print vbNewLine
End If