VBA Email mit Anhang als PDF
18.12.2020 10:31:48
Marko
ein ein funktionierendes Makro zu Erzeugung einer Email mit PDF Anhang habe ich erstellt.
Hierzu habe ich folgende Frage:
Die PDF Datei, wird logischer Weise mit dem ActiveSheet Name benannt ("Ausw1").
Besteht die Möglichkeit, die PDF Datei mit dem Namen aus der Zelle M1 im ActiveSheet zu benennen?
Wenn ja, wie geht das? Vielen Dank für Eure Hilfe...
Sub Grafik8_Klicken()
msg = MsgBox(Sheets("Tabelle1").Range("F6").Value, vbYesNo, "Microsoft Outlook")
If msg = vbYes Then
Dim app As Object
Dim file As String
Dim isNew As Boolean
file = ActiveSheet.Name & ".pdf" 'statt ActiveSheet Name soll der Name aus ActiveSheet Zelle _
_
_
M1 als Name des PDF erzeugt werden
ActiveSheet.Range("A1:G105").ExportAsFixedFormat xlTypePDF, 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 = Sheets("Tabelle1").Range("F4").Value
.CC = ""
.BCC = ""
.Subject = Sheets("Tabelle1").Range("F7").Value
.Body = "Hallo " & Sheets("Tabelle1").Range("F3").Value & "," & vbCrLf & vbCrLf _
& "mit dieser Mail erhalten Sie die Übersicht Ihres aktuellen Konzentrations-Bonus ( _
_
_
" _
& Sheets("Tabelle1").Range("F8").Value & ")." & vbCrLf & vbCrLf _
& "Haben Sie Fragen? Rufen Sie mich bitte an. "
.Attachments.Add Environ("TEMP") & "\" & file
.ReadReceiptRequested = True 'Lesebestätigung ein
.Display 'Email anzeigen
End With
If isNew Then app.Quit
Else
MsgBox "Keine E-Mail erstellt!", vbOKOnly, "Microsoft Outlook"
End If
End Sub
Anzeige