Ich habe hier einen funktionierenden Code der mir alle Blätter meiner Exceldatei als PDF speichert und per Mail sendet.
Wie muss ich den Code ändern dass nur ein Tabellenblatt gespeichert und gesendet wird, nicht alle Tabellenblätter.
Vielen Dank
Sub send_Mail()
Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "Tabelle.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
mePDFD = ThisWorkbook.Path & "Tabelle.pdf"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "muster.max@gmx.at; max.muster@gmx.at"
.Subject = "Tabelle" 'Betreffzeile
.body = "Anbei das Excel Dokument als PDF." & vbCr _
& vbCr _
& "Mit freundlichen Grüßen" & vbCr _
& vbCr _
& "User"
.Attachments.Add mePDFD
.Display
'.Send
Kill mePDFD
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub