leider kann ich hier nur eine Mailadresse eingeben.
Kann das jemand ändern? Wäre sehr dankbar. Kann hier nicht mit z.B. Range(A1) arbeiten. Hier _ soll eine Pdf erzeugt und mit Outloo versendet werden.
Sub sendmail()
Dim sBlatt As String
Dim sPdfDateiF5 As String
Dim OutApp As Object
Dim OutMail As Object
' speichern unter als PDF:
sPdfDateiF5 = "D:\" & "Transportverzögerung" & ".PDF"
' speichert das aktuelle Blatt (=ActiveSheet) als PDF
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPdfDateiF5, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
' Bezug zu Outlook herstellen...
Set OutApp = CreateObject("Outlook.Application")
' ...neue E-Mail erzeugen
Set OutMail = OutApp.CreateItem(0)
' Werte den Eigenschaften zuweisen...
OutMail.To = "klausmende58@gmail.com"
OutMail.CC = ""
OutMail.BCC = ""
OutMail.Subject = Range("A29") & Range("k29")
OutMail.Body = Range("J118") & Range("J120") & Range("J123") & Range("J125")
' Anhang hinzufügen:
OutMail.Attachments.Add sPdfDateiF5
' ...und abschicken
'OutMail.Send
.Display
' Objekte sauber auflösen
Set OutMail = Nothing
Set OutApp = Nothing
' Tabelle schließen
' Application.DisplayAlerts = True
'Application.Quit
End Sub