Note
The Microsoft Office Assistant has been deprecated in the release of the Microsoft Office system.
Displays an alert and returns a Long that indicates which button the user pressed. You can choose to display this alert either through the Microsoft Office Assistant or as a normal message box.

Syntax

expression.DoAlert(bstrAlertTitle, bstrAlertText, alb, alc, ald, alq, varfSysAlert)

expression A variable that represents an Assistant object.

Parameters

Name Required/Optional Data Type Description
bstrAlertTitle Required String Sets the title of the alert.
bstrAlertText Required String Sets the text of the alert.
alb Required Determines which buttons are displayed on the alert.
alc Required Determines the icon that is displayed on the alert.
ald Required Determines which button is set as the default button of the alert. If this argument is set to a value greater than the number of buttons, an error is returned.
alq Required Always set this to msoAlertCancelDefault. Any other setting may return an error.
varfSysAlert Required Boolean Is True if the alert is displayed in a message box or False if the alert is displayed through the Office Assistant.

Return Value
Integer

Remarks

The return values of the DoAlert method corresponds to the values of the vbMsgBoxResult enumerated type (for example, vbYes, vbNo, or vbCancel). In addition to these values, the following values may also be returned:

Example
The following example displays an alert through the Office Assistant and displays a message box indicating which button the user pressed. If the assistant is disabled, the alert is displayed in a normal message box.

Visual Basic for Applications 
Sub AssistantAlert() With Application.Assistant Select Case _ .DoAlert( _ "Test", _ "Click a button.", _ msoAlertButtonYesAllNoCancel, _ msoAlertIconCritical, _ msoAlertDefaultSecond, _ msoAlertCancelFirst, _ False) Case vbYes: MsgBox "The user clicked Yes." Case vbNo: MsgBox "The user clicked No." Case vbCancel: MsgBox "The user clicked Cancel." Case 8: MsgBox "The user clicked Yes To All" 'This is the return value for YesToAll Case Else End Select End With End Sub

See also: