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