EMailversand
29.08.2008 09:29:37
Petra
mit folgenden Makro versende ich EMails:
Sub Datei_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.Path & "\" & "Text.TXT"
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "max.mustermann@web.de;eva.neu@gmx.de"
.Subject = "Testsendung Verkaufsdaten-Daten " & Date & " " & Time
.attachments.Add AWS
' .Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
.Body = "Das ist ein Test." & vbCrLf & ""
'Hier wird die Mail nochmals angezeigt
' .Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
'Outlook schliessen
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Mein Problem: Outlook blendet nochmals eine Frage ein, ob wirklich gesendet werden soll. Klickt der Anwender auf NEIN, wird ein Fehler ausgelöst.
Wie kann ich das auf elegante Weise verhindern?
Liebe Grüße Petra