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
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