Tabellenblatt mit Outlook versenden
15.04.2006 09:31:22
Reinhard
ich habe in der Recherche sehr viel Code zu Outlook gefunden, aber irgendwie nicht das Richtige.
Nachfolgendr Code ist von Ramses (rainer) und da ist das "Mail.Send" dran schuld dass es nicht klappt :-( ".Send" nützt auch nichts.
Also, welchen Code brauche ich um ein Tabellenblatt mit Outlook zu emailen ohne dass die Email mit ":Display" angezeigt wird?
Danke und Gruß
Reinhard
Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "xyz@gmx.net"
.Subject = "Testmeldung von Excel2000 " & Date & Time
.Attachments.Add AWS
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
Mail.Send
End With
'Outlook schliessen
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Anzeige