Versions Compared

Version Old Version 2 New Version 3
Changes made by

dbaldauf

dbaldauf

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

Allgemein

Code Block
languagevb
Dim oCLMailActionEvent
Set oCLMailActionEvent = GetObject("Cosmolink.CLMailActionEvent")

Expand
titleBeispiel mit Errorhandling
Code Block
languagevb
Option Explicit

Dim oCLMailActionEvent
On Error Resume Next
    Set oCLMailActionEvent = GetObject("Cosmolink.CLMailActionEvent")

    If Err.Number <> 0 Then
        cRM.DialogMessageBox "Der Vorgang wird beendet." & vbCrLf & "Es ist ein unerwartetes Verhalten beim Laden des 'Cosmolink.CLMailActionEvent' aufgetreten." & vbCrLf & vbCrLf & "Ursprung: " & Err.Source & vbCrLf & "Code: " & Err.Number & vbCrLf & "Beschreibung: " & Err.Description, "(c) " & Year(Date) & " cosmolink", vbExclamation
        Err.Clear
        WScript.Quit()
    End If
On Error GoTo 0

Eigenschaften / Properties

CurrentMailItem

Beschreibung:

Das Objekt für die E-Mail, auf der die Aktion ausgeführt wird.

Type:

CLMailItem

Result

Beschreibung:

Das Objekt für die Ausführungsergebnis der Aktion.

Type:

CLMailActionEventResult

Table of Contents