Outlooküberprüfung
09.07.2006 09:42:59
Peter
wer kann helfen?
Ich möchte in einem Netzwerk vor dem Versand einer E- Mail aus Excel heraus überprüfen, ob Outlook geöffnet ist.
Wenn Outlook geschlossen ist soll es geöffnet werden.
Folgende Ansätze habe ich gefunden:
'Test ob Outlook gestartet ist
Public
Sub Test()
Dim myOutlook As Object
On Error Resume Next
Set myOutlook = GetObject(, "OUTLOOK.Application")
On Error GoTo 0
If Not myOutlook Is Nothing Then
MsgBox "Outlook läuft"
Else
MsgBox "Outlook läuft nicht"
End If
Set myOutlook = Nothing
End Sub
'Outlook öffnen
Application.ActivateMicrosoftApp xlMicrosoftMail
Danke Peter
Anzeige