Member
Beiträge: 12
| hd3000 - 21.02.25 16:48
Dim objOutlook As Object
On Error Resume Next
Set objOutlook = CreateObject("Outlook.Application")
If Err.Number <> 429 Then
p_bolOutlook = True
Set objOutlook = Nothing
End If
Err.Clear
Ungünstig ist die Fehlerbearbeitung.
Ich würde es so machen, dann erkennt man ob ein Fehler die Ursache für das Verhalten ist.
Public p_bolOutlook As Boolean
Sub main()
Dim objOutlook As Object
On Error GoTo suberr
p_bolOutlook = False
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlook = Nothing
p_bolOutlook = True
Exit Sub
suberr:
If Err.Number <> 429 Then
MsgBox Err.Description
End If
Err.Clear
End Sub
Edited by Hops 03.03.25 10:36
|
