Ausgewählte Blätter mail senden (Outlook und WebMail)

[cysu11]

Hi Niko,


lade doch mal deine Datei hoch, damit wir probieren können!

LG
Alexandra

[schauan]

Hallöchen,

Option Explicit

Sub senden()
Dim AWS As String: AWS = Environ$("temp") & "\Temp.xls"
Dim olApp As Object
Dim olMail As Object
Dim blnQuit As Boolean
Dim Nachricht As Object, OutApp As Object
Dim GruppenName, KasseMonat As String
GruppenName = ThisWorkbook.Sheets("Menu").Range("B7")
KasseMonat = Month(CDate(ThisWorkbook.Sheets("Menu").Range("A3"))) & "/" & Year(CDate(ThisWorkbook.Sheets("Menu").Range("A3")))
'Laufzeitfehler übergehen 
On Error Resume Next
'Aktive Outlookinstanz übernehmen 
Set olApp = GetObject(, "Outlook.Application")
'Falls Outlook nicht geöffnet 
If olApp Is Nothing Then
'Merkvariable setzen 
blnQuit = True
'Neue Outlookinstanz öffnen 
Set olApp = CreateObject("Outlook.Application")
End If
'Bei Laufzeitfehlern wieder abbrechen 
On Error GoTo 0

'Zu versendentes Tabellenblatt in eigene Datei auslagern 
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Copy
'Die Datei temporär speichern 
Workbooks(Workbooks.Count).SaveAs Filename:=AWS
'Neue Nachricht in Outlook erzeugen 
Set Nachricht = olApp.CreateItem(0)
With Nachricht
' With olMail 
'Zu versendende Datei in Variable übergeben 
      .To = "MyBill@ausgaben.de"
      .Subject = "Abrechnung - Gruppe: " & GruppenName & " - Monat: " & KasseMonat & " - " & Date & Time
      .Attachments.Add AWS
      .Body = "Bitte Drücken Sie auf Senden und die abrechnung wird im flug gesendet." & vbCrLf & "Vielen Dank."
      .Display
End With
'Pfad und Name der temporären Datei in Variable übergeben 
'Temporäre Datei schließen, ohne zu speichern 
ActiveWorkbook.Close False
'Temporäre Datei löschen 
Kill AWS
'Wenn neue Outlookinstanz geöffnet, diese wieder schließen 
'If blnQuit Then olApp.Quit 

'Speicherbereiche freigeben 
Set olMail = Nothing
Set olApp = Nothing
Set OutApp = Nothing
Set Nachricht = Nothing
MsgBox "NICHT VERGESSEN !" & vbNewLine & "Aus… Drucken.", vbInformation, "Kollegius"
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

[Niko]

Es läuft…und läuft   Ganz großes Danke
 
Was für eine Geburt!...jetzt weiß ich auch wo ich denn Fehler bis jetzt hatte beim Vergleich.
 
Es hat sich wenigstens gelohnt….habe was dazu gelernt
 
Danke nochmals, echt super  :15:



Nikko