Zusammenfassen von Makros

Sub EMail_Paket()
'E-Mail Pakete
Dim app   As Object
Dim file  As String
Dim isNew As Boolean
Dim olAPP As Object
Dim olOldBody As String
'Tab 2  = KoBo Tabelle
file = Sheets("Tabelle2").Range("BC3").Text & ".pdf"
Sheets("Tabelle2").Range("B3:AB61").ExportAsFixedFormat xlTypePDF, Environ("TEMP") & "\" & file
'Tab 3  = KoBo vorläufige Abrechnung
file = Sheets("Tabelle3").Range("L21").Text & ".pdf"
Sheets("Tabelle3").Range("A1:G633").ExportAsFixedFormat xlTypePDF, Environ("TEMP") & "\" & file
'Tab 15 = KoBo Abschlagsrechnung
file = Sheets("Tabelle15").Range("L21").Text & ".pdf"
Sheets("Tabelle15").Range("A1:G61").ExportAsFixedFormat xlTypePDF, Environ("TEMP") & "\" & file
On Error Resume Next
Set app = GetObject(, "Outlook.Application")
If app Is Nothing Then
Set app = CreateObject("Outlook.Application")
isNew = True
End If
With app.CreateItem(0)
.GetInspector.Display
.To = Sheets("Tabelle50").Range("M17").Value
.Cc = ""
.BCC = ""
.Subject = Sheets("Tabelle50").Range("L20").Value
.htmlbody = "" _
& Sheets("Tabelle50").Range("S41") _
& "

" & Sheets("Tabelle50").Range("S42") _
& "

" & Sheets("Tabelle50").Range("S43") _
& "

" & Sheets("Tabelle50").Range("S44") _
& "



	Bewerten Sie hier bitte das Excel-Portal
	

	

" & .htmlbody
.Attachments.Add Environ("TEMP") & "\" & file
.ReadReceiptRequested = True
End With
If isNew Then app.Quit
End Sub