Hallo Excel-Freunde,
mit folgendem Code will ich eine Mail verschicken und die Excel-Datei schliessen:
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.SentOnBehalfOfName =
.To =
.CC =
.Subject =
.Attachments.Add ActiveWorkbook.FullName
strTxt = "Sehr geehrte Damen und Herren,"
strTxt =
.Htmlbody = strTxt
.Send
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Allerdings fragt er, ob ich es zulassen möchte, dass eine Anwendung automatisch in meinem Auftrag sendet.
Diese muss ich dann mit ja oder nein wegklicken...
Wie kann ich das umgehen?
Danke für Eure Hilfe.
Viele Grüße
Marco