|
Guten Abend,
leider bin ich völliger Anfänger.
Ich habe in meiner Word einen Button eingefügt.
Bei Klick auf den Button soll sich die Word in eine PDF umwandeln und sich eine E-Mail mit Anhang öffnen.
Mit der Aufzeichnung klappt es nicht. Hat jemand einen Code zur Hand? DANKE
Mit nachstehendem Code geht es auch nicht:
Private Sub CommandButton1_Click()
Dim app As Object
Dim file As String
Dim isNew As Boolean
file = ActiveDocument.Name & ".pdf"
ActiveDocument.ExportAsFixedFormat wdExportFormatPDF, Environ("TEMP") & "\" & file
On Error Resume Next
Set app = GetObject(, "Outlook.Application")
If app Is Nothing Then
Set app = CreateObject("Outlook.Application")
isNew = True
End If
With app.CreateItem(0)
.To = "bd31@gmx.de"
.CC = ""
.BCC = ""
.Subject = "Anlage: " & file
.Body = "Sehr geehrte Damen und Herren." & vbCr _
& vbCr _
& "Anbei das Excel-Dokument als PDF." & vbCr _
& vbCr _
& "Mit freundlichen Grüßen."
.Attachments.Add Environ("TEMP") & "\" & file
End With
If isNew Then app.Quit
End Sub
|