Outlook beenden
06.11.2007 16:06:35
carsten.marschall@mwag.de
Ergebnis: funktioniert auf einem PC völlig ohne Probleme!!!, auf einem anderen PC auch bis auf das Schließen des Outlook (es gibt keine Fehlermeldung) also Outlook bleibt geöffnet. Das möchte ich aber nicht.
wenn man auf diesem Rechner Outlook einmal geöffnet anklickt und danach den VBA für das Schließen separat durchführt dann wird Outlook auch geschlossen.
Kann mir bitte jemand helfen?
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
'Sub closeOutLook()
Set Mail = Nothing
outl.Quit
Set outl = Nothing
End Sub