Mailversand mit PDF-Anhang

skihase

Grünschnabel
Hallo zusammen,

ich habe folgendes Makro:


Sub Mailversand()
'
' Versand eines Dokumentes als Anlage an vorgegebene Mailadresse
Dim outl As Object
Dim Mail As Object
'Start einer Outlook-Instanz
Set outl = CreateObject("Outlook.application")
Set Mail = outl.createitem(olmailitem)
' Kopieren des gesamten Dokumentes und Einfügen in ein
' neu angelegtes Dokument
ChangeFileOpenDirectory "P:\"
ActiveDocument.SaveAs FileName:="Bestellung.doc", FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
' Anlegen der Mail
Mail.Subject = "Bestellung"
' Anhängen des neu erstellten Dokuments
Mail.attachments.Add "P:\Bestellung.pdf"
Mail.to = "bader"
Call Mail.Display(vbModal)
' Schließen des neu angelegten Dokumentes
ActiveDocument.Close
' Löschen des Dokumentes
Kill "P:\Bestellung.doc"
' Die Objektverweise wieder lösen
Set outl = Nothing
Set Mail = Nothing

End Sub

ich möchte nun aus dem WordDokument ein PDF schreiben und diese an die Email anhängen.
Das klappt aber nicht, kann mir jemand helfen?

vg Skihase
 
Hi,
habe gerade deinen Eintrag gelesen.
"ActiveDocument.SaveAs" speichert dein Dokument ja nur als neue Version - nicht als PDF !
(damit wäre "Kill "P:\Bestellung.doc"" auch nicht gerade das, was du willst).

Wie auch immer:

- als .doc kannst du das einfach senden per "ActiveDocument.SendMail"

- als .pdf geht es duch folgenden Code (am besten aufzeichnen was man machen will und dann bearbeiten):
(musste bei mir "P:\" durch "U:\" ersetzen)

' Speichern als PDF
ActiveDocument.ExportAsFixedFormat OutputFileName:="U:\Bestellung.pdf", _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, IncludeDocProps:=True, _
KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=True

' Anlegen der Mail
Mail.Subject = "Bestellung"
Mail.attachments.Add "U:\Bestellung.pdf"
Mail.To = "bader"
Call Mail.Display(vbModal)

' Löschen des Dokumentes
Kill "U:\Bestellung.pdf"
 

Anhänge

  • Bestellung.zip
    15,3 KB · Aufrufe: 3
Hallo,

danke für die Hilfe, es lag mal wieder nur an einer Kleinigkeit, dass das Makro nicht lief.
Ich habe jetzt noch etwas dazugefügt: Die Datei wird nach dem Erstellen des PDF geschlossen und das zwischengelagerte PDF gelöscht.
:)
 

Neue Beiträge

Zurück