Ist Outlook offen?
12.01.2005 22:35:09
Wolfi
in einem Beitrag von 2002 hat Rainer einen Code in dieses Forum gestellt. Genau das wäre es, was ich bräuchte. Ich möchte eine eMail mit Anlage per Outlook versenden. Das funktioniert auch ganz prima. Aber es wär natürlich schön, wenn ich vorher prüfen könnte, ob Outlook offen ist.
Ich belästige ja nur ungern jemanden, aber ich komme nicht dahinter, was hier falsch ist.
'Ist Outlook offen?
Sub Call_InstanceCheck()
'MsgBox InstanceCheck("outlook")
If InstanceCeck("Outlook") = True then
Msgbox("Outlook läuft")
End If
End Sub
Function InstanceCheck(Server As String) As Boolean
Dim myInstance As Object
InstanceCheck = False
On Error Resume Next
Select Case UCase(Server)
Case "EXCEL"
Set myInstance = GetObject(, "excel.application")
Case "OUTLOOK"
Set myInstance = GetObject(, "outlook.application")
Case "WORD"
Set myInstance = GetObject(, "word.application")
End Select
If Not myInstance Is Nothing Then InstanceCheck = True
On Error GoTo 0
Set myInstance = Nothing
End Function
Ich hab das ganze in ein Modul gesteckt und bekomme die Fehlermeldung:
Sub und Funktion nicht definiert!
Kann meinem Unwissen bitte jemand auf die Sprünge helfen?
Danke, Wolfi