wie kann man mit Excel feststellen ob Outlook 2000 gerade läuft und wie startet man Outlook wenn es noch nicht gestartet ist?
Liebe Grüße
Vera
Function InstanceCheck(Server As String) As Boolean
Dim myInstance As Object
InstanceCheck = False
On Error Resume Next
Select Case UCase(Server)
Case "OUTLOOK"
Set myInstance = GetObject(, "outlook.application")
End Select
If Not myInstance Is Nothing Then InstanceCheck = True
On Error GoTo 0
Set myInstance = Nothing
End Function
Sub Oeffnen()
If InstanceCheck("Outlook") = True Then
Exit Sub
End If
Application.ActivateMicrosoftApp xlMicrosoftMail
End Sub