Hallo liebe Gemeinde.
Ich habe ein Makro schon soweit vorbereitet um es über einen Button an Outlook weiterzueiten. (Aus Zelle A1 wird die E-Mailadresse ausgelesen)
Nun möchte ich jedoch statt dem xls einen pdf (ev. freepdf) Generator dazwischenschalten um dann statt der Excel-Datei eben das pdf als Mailanhang zu haben. Wie bekomme ich das gebacken?
Gruss und Dank vorab.
Christian
Option Explicit
Sub Excel_Workbook_via_Outlook_Senden()
Dim MyMessage As Object, MyOutApp As Object
Dim Qe As Integer
Dim AWS As String
If ThisWorkbook.Saved = False Then
Qe = MsgBox(„Diese Mappe wurde noch nicht gespeichert, und kann nicht versandt werden!“ _
& Chr$(13) & „Soll die Datei gespeichert werden?“, vbInformation + vbYesNo, „Sendefehler“)
If Qe = vbNo Then
MsgBox „Sendevorgang abgebrochen“
Exit Sub
Else
If Right(ThisWorkbook.Name, 3) „xls“ Then
Application.Dialogs(xlDialogSaveAs).Show
Else
ThisWorkbook.Save
End If
End If
End If
AWS = ThisWorkbook.FullName
Set MyOutApp = CreateObject(„Outlook.Application“)
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Range(„A1“)
.Subject = "Quartalsbericht Lieferantenbewertung " & Date
.Attachments.Add AWS
.Body = „Mail für normalen Textempfang“
.Display
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub