Excel per Outlook macht Probleme
30.10.2012 09:49:27
Hartmut
ich das Problem, dass beim Aktivieren des nachfolgenden Makros eine Speicherabfrage kommt. Drücke ich auf abbrechen schliesst dummerweise noch das Outlook.
Siehe Anhang Printscreen.
Geht das Verschicken auch ohne die Speicherabfrage?
Danke für euer Hilfe.
Lieber gruss aus Zürich
Hartmut
https://www.herber.de/bbs/user/82381.xls
Sub 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)
ActiveWorkbook.Save
With Nachricht
ActiveWorkbook.Save
.To = "XXXXXXX@XX.ch"
.Subject = "Bestellung Zusatzauflage " & Date & Time
.attachments.Add AWS
.Body = "Lieber H."
.Display
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub