Skip to end of metadata
Go to start of metadata

You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Next » 

Dim oCLMailActionEvent
Set oCLMailActionEvent = GetObject("Cosmolink.CLMailActionEvent")

 Beispiel mit Errorhandling
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

  • No labels