Sub Blatt_senden()
Sheets("Tabelle1").Copy
ActiveWorkbook.SendMail "empfaenger@provider.de", "Betreffzeile"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Public Sub Mail_Schreiben(Adresse As String, Gruppe As Boolean)
Dim Nachricht As Object, OutApp As Object
Dim intZ As Integer, strBody As String
If Gruppe = False Then 'keine Gruppe
'Select muss hier leider sein
Sheets("RL").Select
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
ThisWorkbook.Path & "\Buchungsbest.htm", "RL", _
"$A$1:$G$81", xlHtmlStatic, "Mappe1_4583", "")
.Publish (True)
.AutoRepublish = False
End With
Else 'Gruppe
End If
With Sheets("Optionen")
For intZ = 13 To 19
strBody = strBody & .Range("I" & intZ) & Chr(13)
Next
End With
Set OutApp = CreateObject("Outlook.Application")
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Adresse
.Subject = "Ihre Anfrage / Buchungsbestätigung"
.Attachments.Add ThisWorkbook.Path & "\Buchungsbest.htm"
.Body = strBody
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub