19.12.2018, 21:53
Hi Leute,
habe eine kleine Arbeitsmappe erstellt als arbeitszeitkarte die man per E-Mail sendet.
So weit so gut.... möchte aber das es nur dann jeweilige Arbeitsblatt versendet und nicht die ganze Arbeitsmappe, sowie wenn möglich ohne Formeln, Verknüpfungen und Makros.
Kann mir jemand da mit den vba code helfen?
[attachment=21459]
Ps. An Administrator...sry habe das selbe thema aus versehen in Beispiele und Workshopps erstellt...sry again :16:
Danke im Voraus,
Nikko
habe eine kleine Arbeitsmappe erstellt als arbeitszeitkarte die man per E-Mail sendet.
So weit so gut.... möchte aber das es nur dann jeweilige Arbeitsblatt versendet und nicht die ganze Arbeitsmappe, sowie wenn möglich ohne Formeln, Verknüpfungen und Makros.
Kann mir jemand da mit den vba code helfen?
Code:
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("Januar").Range("I3")
KasseMonat = Month(CDate(ThisWorkbook.Sheets("Januar").Range("B1"))) & "/" & Year(CDate(ThisWorkbook.Sheets("Januar").Range("B1")))
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "Abrechnung@mail.de"
.Subject = "Abrechnung - Kollege: " & GruppenName & " - Monat: " & KasseMonat & " - " & Date & Time
.Attachments.Add AWS
.Body = "Bitte Drücke auf Senden und die E-Mail wird automatisch gesendet." & vbCrLf & "Vielen Dank."
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
MsgBox "NICHT VERGESSEN!!!" & vbNewLine & "Drucke aus.", vbInformation, "Be Friend"
End Sub[attachment=21459]
Ps. An Administrator...sry habe das selbe thema aus versehen in Beispiele und Workshopps erstellt...sry again :16:
Danke im Voraus,
Nikko