nachdem ich zu meinem letzten Beitrag leider keine Antwort bekommen habe, hier auf ein neues.
Ziel ist es aus einem Exel Blatt eine pdf zu erstellen und diese direkt als Anhang per Mail anzeigen.
Habe alles soweit fertig, aber an einer Funktion beiß ich mir die Zähne aus :(
Wie schaff ich es, dass der Dateiname sich aus einer Zelle ergibt und nicht aus dem Namen des Arbeitsblattes?
Sub per_Mail_versenden()
Dim app As Object
Dim file As String
Dim isNew As Boolean
file = ThisWorkbook.Name & ".pdf"
Mailadresse = Range("F16").Value
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 = Mailadresse
.CC = ""
.BCC = ""
.Subject = "Anlage: Bestellung"
.Body = "Sehr geehrte Damen und Herren," & vbCr _
& vbCr _
& "Anbei unsere Bestellung als PDF." & vbCr _
& vbCr _
& "Mit freundlichen Grüßen"
.Attachments.Add Environ("TEMP") & "\" & file
.Display
End With
If isNew Then app.Quit
End Sub
Wär euch wirklich sehr dankbar!!!
LG Stuesen