ich habe einen Code der mir ein bestimmtes Tabellenblatt via Mail versendet, jedoch funktioniert das nur mit einem Blatt.
Neu ist, dass ich mindestens zwei Blätter versenden will, mit unterschiedlichen Blattnamen. Da ich auf Google keine richtige Lösung dazu gefunden habe, würde ich gern auf eure Unterstützung bauen.
Der aktuell funktionierende Code sieht wie folgt aus:
Sub Mail_versenden()
Application.DisplayAlerts = False
Dim strBlatt As String
Dim strDatei As String
Dim OutApp As Object
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set OutApp = CreateObject("Outlook.Application")
Set Mail = OutApp.CreateItem(0)
strPfad = "O:\"
strBlatt = Worksheets("Summe").Name
Sheets(strBlatt).Copy
For Each wks In Worksheets
With wks
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Next wks
Application.CutCopyMode = False
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
strDatei = ActiveWorkbook.FullName
With Mail
.To = "Test@Test.de"
.Subject = "Hallo Test " & Date & " " & Time 'Betreff
.Body = "Hallo zusammen," & vbCrLf & "im Anhang findest du die ....."
.Attachments.Add strDatei 'Anhang
End With
Workbooks(Dir(strDatei)).Close
Kill (strDatei)
Mail.Display
Application.DisplayAlerts = True
End Sub