Office-Forum > Microsoft Outlook

VBA Word-Anhang als pdf speichern

(1/1)

henfoni:
Hallo,

ich weiß diese Frage gabs wahrscheinlich schon etliche Male, aber ich bin durchs googeln nicht wirklich schlauer geworden.
Ich möchte folgendes tun: Ich möchte eine in Outlook 2010 markierte Mail mit Hilfe eines Makros öffnen und falls eine Word-Datei angehängt ist, diese als pdf in einem festvorgegeben Pfad speichern.
Ich bin im Moment nur soweit, dass ich die markierte Mail öffnen und den Anhang (egal welchen Typs) einfach im Datei-System speichere..
Allerdings konvertiert er die Datei auf diese Weise natürlich nicht richtig.
Ich habe gelesen, dass man einen PDF-Creator als Drucker anstoßen soll. Wie kann ich denn den Office-eigenen PDF-Creator anstoßen (die Foren-Einträge, die ich gefunden hatte, waren immer älter, wobei vorher runtergeladene pdf-creator zum Einsatz kamen).
Hier der Code bisher, und schon mal Danke für jegliche Unterstützung!

Sub Markierte_Mail_Open()
   Dim mi As MailItem
   If Not ActiveExplorer Is Nothing Then
      If TypeName(ActiveExplorer.Selection.Item(1)) = "MailItem" Then
         Set mi = ActiveExplorer.Selection.Item(1)
         mi.Attachments.Item(1).SaveAsFile "C:\Temp\test.pdf"
      End If
   End If
   Set mi = Nothing
End Sub

henfoni:
für alle die es interessiert, hab eigentlich den kompletten Code fertig. Nur er führt die entscheidende Aktion, das pdf erstellen, nicht aus.
Wenn ich ein Word-Makro in der Form:

            activedocument.ExportAsFixedFormat "C:\TEMP\moin.pdf", _
            wdExportFormatPDF

mache, klappt es wunderbar. Wenn ich allerdings den Code aus Outlook über

            Dim myWordApp As Object
            Set myWordApp = CreateObject("Word.Application")
            myWordApp.Documents.Open "C:\TEMP\blabla.doc"
            myWordApp.activedocument.ExportAsFixedFormat "C:\TEMP\moin.pdf", _
            wdExportFormatPDF

aufrufe, erstellt er es nicht! Sehr merkwürdig, in Word VBA geht es, in Outlook nicht. Weiß jemand warum?

henfoni:
Es klappt, der Verweis zu Microsoft Word Object Library fehlte.

Navigation

[0] Themen-Index

Beim Bedanken trat ein Fehler auf
Bedanken...
Zur normalen Ansicht wechseln