Anzeige

 Mailversand mit PDF-Anhang


#1
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
 
#2
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

#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.
:)
 
Anzeige

Neue Beiträge

Anzeige