aus Excel PDF an E-Mail anhängen

Private Sub CommandButton2_Click()
Dim sPathPDF$
Dim objOutlook As Object, objMail As Object
'PDF erstellen
With ThisWorkbook
'Pfad wo die PDF gespeichert werden soll, hier wo die Excel liegt
sPathPDF = IIf(Right$(.Path, 1) = "\", .Path, .Path & "\")
'Pfad + PDF-File-Name, hier wird der Namer der Excel verwendet
sPathPDF = sPathPDF & Range("K12") & "pdf"
'oder so, mit anderen Dateinamen
'sPathPDF = sPathPDF & "Maine PDF Datei.pdf"
'Abfrage ob Datei ersetzt werden soll, bei nein Abbruch
If Dir(sPathPDF, vbNormal)  "" Then
If MsgBox("Vorhandene Datei ersetzen?", vbYesNo + vbQuestion) = vbNo Then
Exit Sub
End If
End If
'nur eine Tabelle als PDF ***********************************************
Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sPathPDF, Quality:=xlQualityStandard, IncludeDocProperties:= _
False, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
'Mail erstellen ************************************
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = Range("C16").Value  'An-Empfänger
.CC = "" 'Cc-Empfänger
.BCC = "" 'BCc-Empfänger
.Subject = Range("C24").Value
.Body = "Anbei Ihre Rechnung" 'Nachricht
.Attachments.Add sPathPDF 'Anlage
.Display 'Mail anzeigen
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub