Habe ein kleines Problem :-) brauche ein bisschen Hilfe.
Habe den unteren Code bei einer Arbeitsmappe eingebaut, es sendend die ganze Arbeitsmappe per E-Mail an den vorgegebenen Empfänger.
Möchte aber dass es nur 3 Arbeitsblätter (Sheet 1: Jahreskasse Sheet 2: Monatskasse Sheet 3: Tageskasse) von der ganzen Mappe versendet.
Die Blätter haben Makros und Formeln, also sollen die Werte und das Format eins zu eins in die versendete blätter bzw. mail mappe eingefügt werden, ohne Makros und Format ist es möglich?
Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Dim GruppenName, KasseMonat As String
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = ThisWorkbook.FullName
GruppenName = ThisWorkbook.Sheets("Menu").Range("B127")
KasseMonat = Month(CDate(ThisWorkbook.Sheets("Menu").Range("A123"))) & "/" & Year(CDate( _
ThisWorkbook.Sheets("Menu").Range("A123")))
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "kassenabrechnung@kasseleer.de"
.Subject = "Abrechnung - Team: " & TeamName & " - Monat: " & KasseMonat & " - " & Date _
& Time
.Attachments.Add AWS
.Body = "Bitte Drücken Sie auf Senden und die Kasse wird automatisch gesendet." & _
vbCrLf & "Vielen Dank."
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
MsgBox "NICHT VERGESSEN!!!" & vbNewLine & "Drucken Sie alle nötigen Dokumente falls benötigt.", _
vbInformation, "LEER - KASSE"
End Sub
Danke im Voraus,
Niko