Outlook Mail über VBA Excel Speichern als DOC oder PDF
05.08.2024 07:59:45
BwFHotte
mit der Bitte um Hilfe bei einem kleinen Problem. Im Anhang der kleine Code, wie ich von Outlook eine Mail ins Verzeichnis speichere als DOC Datei.
Der Code funktioniert.
was aber hin und wieder auffällt, dass einige Mails nicht gespeichert werden können.
Es kommt die Fehlermeldung von Outlook, das die Berechtigung oder Speicherort nicht möglich sind (so sinngemäß). genauer Wortlaut habe ich nicht parat.
Es handelt sich um ein Netzwerklaufwerk ,nur als Info falls es wichtig ist.
(Im Netz stand was von Mails die als Vorlage gesendet wurden, könnten Probleme machen).
Wenn einer sich mal den Code anschauen kann, ob es vielleicht noch eine Verbesserung gibt, wie man zuverlässig jegliche Mail abspeichern kann, ohne Probleme.
Sub Speichern
dim mail as mailitem
dim lzeile as String
set mail= activeExplorer.selection(1)
lzeile =Activesheet.cells(rows.count,1).end(xlup).value
mail.saveas "H:\ Test\00\"&lzeile &"\" &mail.subject &".doc",oldoc
end sub
Anzeige