Imap Object : Alert Event |
Visual Basic |
---|
Public Event Alert( _ ByVal Message As String _ ) |
Private Sub Imap1_Alert(ByVal Message As String) On Error GoTo OnError ' use intrinsic error handling ' Display the message to the user. MsgBox Message Exit Sub OnError: ' Any error jumps here Debug.Print "Error #" + CStr(Err.Number) + ": " + Err.Description End Sub