Excel VBA – Sheet senden

Mit diesen VBA-Code kann man ein Excel-Sheet aus einer Excel-Datei alleine versenden. Dazu erzeugt der Code mit diesen einen Sheet eine neue Datei und sendet diese anschließend.

Sub einzelnes_Blatt_senden()Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String

Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
strPfad = "C:\Temp" 'entsprechend anpassen
strBlatt = ActiveSheet.Name
Sheets(strBlatt).Copy
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name
strDatei = ActiveWorkbook.FullName
strBodyText = "Mit freundlichen Grüßen" & Chr(13) & Chr(13) & "Name"

'// Mail erzeugen

With Mail
'.To = ""
'.CC = ""
.Subject = "" 'Betreff
.BodyFormat = 2 '2 = HTML, 1 = Text
.Attachments.Add strDatei 'Anhang
.Body = strBodyText 'Bodytext / Signatur
End With
Workbooks(Dir(strDatei)).Close
Kill (strDatei)
Mail.Display
End Sub
Share

You may also like...

Schreibe einen Kommentar

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr darüber, wie deine Kommentardaten verarbeitet werden.