VBA anpassen PDF als E Mail
16.04.2021 10:44:13
Jörn
ich möchte das folgende VBA anpassen, so dass in einer Box die gewünschte E Mailadresse eingegeben werden kann.
Sub sendPDf()
Dim app As Object
Dim file As String
Dim isNew As Boolean
file = ActiveSheet.Name & ".pdf"
ActiveSheet.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 = *** hier soll die freiwählbare E Mail Adresse stehen ***
.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
.ReadReceiptRequested = True 'Lesebestätigung ein
.Display 'Email anzeigen
End With
If isNew Then app.Quit
End Sub
Ich habe versucht dieses einzufügen, hat aber nicht geklappt:
Dim varEingabe As Variant
varEingabe = InputBox(Prompt:="Empfänger der E-Mail", _
Title:="Tabellenblatt versenden", _
Default:="Mustermann@gmx.de")
If varEingabe vbNullString Then
If Dir(strFullPath) vbNullString Then
Kill strFullPath
End If
Kann mir jemand bitte helfen? Bitte berücksichtigt, dass ich nur mit dem Makrorecorder umgehen kann.
Gruß Jörn