Thema Datum  Von Nutzer Rating
Antwort
10.10.2019 04:15:10 Tom
NotSolved
10.10.2019 07:48:04 Mase
NotSolved
10.10.2019 09:33:01 Tom
NotSolved
Blau Programm schon offen?
 10.10.2019 10:18:05 Mase
NotSolved
16.10.2019 05:29:15 Tom
NotSolved
16.10.2019 07:42:52 Mase
NotSolved
16.10.2019 20:01:50 Flotter Feger
NotSolved
16.10.2019 20:36:13 Mase
NotSolved
16.10.2019 20:36:56 Mase
NotSolved
16.10.2019 22:45:29 Flotter Feger
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 14:53:24 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
10.10.2019 10:18:05		 Views:
463		 Rating:
     
Antwort:
  Ja
Thema:
Programm schon offen?

Hi Tom,

 

check this out:

Sub checkOL()
    'Dim-Anweisung für EarlyBinding -> zur Verwendung der IntelliSense
    'Dim olApp As Outlook.Application
    '
    'Dim-Anweisung für LateBindung -> dadurch keine Referenz auf das OL-Objektmodell notwendig
    Dim olApp As Object
    '
    On Error GoTo err
    '
    'Hier wird geprüft, ob Outlook ist einer Objektvariablen zugewiesen
    'falls nicht offen, wird ein Fehler erzeugt und der Programmcode
    'wird ab Sprungmarke err: fortgeführt
    Set olApp = GetObject(, "Outlook.Application")
    '
    With olApp
        'Dein Code
    End With
    '
err:
'Wenn Outlook nicht offen war, hat die Eigeschaft .Number des Errorobjects den Wert 429
'Auf deisen Wert wird geprüft; wenn true dann über createObject eine OL-Instanz erzeugt und der Objektvariablen zugewiesen
If err.Number = 429 Then
    Set olApp = CreateObject("Outlook.Application")
    Resume Next 'wenn zugeweisen, den Programmcode oben ab näöchster Zeile wieder ausführen
End If
'
If err.Number <> 0 Then
    Debug.Print err.Number; err.Description
End If
'
Set olApp = Nothing
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.10.2019 04:15:10 Tom
NotSolved
10.10.2019 07:48:04 Mase
NotSolved
10.10.2019 09:33:01 Tom
NotSolved
Blau Programm schon offen?
 10.10.2019 10:18:05 Mase
NotSolved
16.10.2019 05:29:15 Tom
NotSolved
16.10.2019 07:42:52 Mase
NotSolved
16.10.2019 20:01:50 Flotter Feger
NotSolved
16.10.2019 20:36:13 Mase
NotSolved
16.10.2019 20:36:56 Mase
NotSolved
16.10.2019 22:45:29 Flotter Feger
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 13:38:27 Tom
NotSolved
19.10.2019 14:53:24 Mase
NotSolved