Option Explicit
 
Sub Excel_Sheet_via_Outlook_Senden()
 
Dim Emailadresse As String
Dim CCEmailadresse As String
Dim pfad As String
Dim name As String
Dim Betreff As String
Dim Nachricht As Object, OutApp As Object
Dim AWS As String

'###########################################
'### HIER KANNST DU DEINE DATEN ANPASSEN ###
'###########################################

'Hier Empfängermailadresse eintragen
Emailadresse = "Deine@empfängermail.de"
'Hier die CC Emailadresse eintragen (Wenn gewünscht)
CCEmailadresse = ""
'Pfad für die PDF selbst einstellen
pfad = "K:\"
'Dateiname der PDF selbst wählen oder 'ActiveWorkbook.Name' nutzen. Suchs dir aus ;)
name = "test"
'Hier den Betreff der Email eintragen
Betreff = "Betreff PDF - " & name & ".pdf"

'##########################################################
'### AB HIER NICHTS ÄNDERN WENN DU DICH NICHT AUSKENNST ###
'### AUSNAHME: DER TEXT DER NACHRICHT. DEN STELLST DU   ###
'###           ZWEIMAL EIN. FÜR HTML UND TEXTMAILS      ###
'##########################################################

If Emailadresse = "" Then GoTo abbruch
 
'Die Datei speichern als PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        pfad & name & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    
'Email versenden
    Set OutApp = CreateObject("Outlook.Application")
    AWS = pfad & name & ".pdf"
    'InitializeOutlook = True
    Set Nachricht = OutApp.CreateItem(0)
    With Nachricht
        .To = Emailadresse
        .cc = CCEmailadresse
        .Subject = Betreff
        .Attachments.Add AWS
'#############################################################
'### HIER KANNST DU DEINEN MAILTEXT FÜR TEXTMAILS ANPASSEN ###
'#############################################################
        .body = "Dies ist die aktuelle " & name & ".pdf" & vbNewLine & vbNewLine & _
                "Stand: " & Date
'#############################################################
'### HIER KANNST DU DEINEN MAILTEXT FÜR HTMLMAILS ANPASSEN ###
'#############################################################
        .HTMLBody = "Dies ist die aktuelle " & "<b><u><font color=""#ff0000"">" & name & ".pdf </font></u></b><br /><br />" & _
                "Stand: " & Date
        .Send
    End With
    Set OutApp = Nothing
    Set Nachricht = Nothing

MsgBox "Die Email wurde erfolgreich an " & Emailadresse & " versendet!" & vbNewLine & vbNewLine & _
        "ACHTUNG!!! Outlook muss geöffnet sein um die Datei zu versenden."
        
Exit Sub

abbruch:
MsgBox "Der Vorgang wurde abgebrochen.", vbInformation, "Abbruch"
End Sub