Beim speichern einer Excel-Datei werden Inhalte dieser Datei mittels VBA an Email-Empfänger gesendet.
Das funktioniert mit folgendem Code einwandfrei:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Sub out()
Dim outh
outh = Shell("C:\Programme\Microsoft Office\Office10\OUTLOOK.EXE")
'Sub EMail_senden()
Dim outl As Object
Dim Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = "QR"
Mail.Body = ActiveSheet.Range("V14").Value
Mail.To = "carsten.marschall@mwag.de"
Mail.Send
End Sub
Problem:
Wie schließe ich Outlook wieder
Habe vor End Sub
'Outlook schliessen
outh.Quit
eingabaut. Ergebnis: geht nicht...
Kann mir bitte einer helfen...