Option Explicit
Sub Main
Dim intReturn As Integer
Dim varServer As Variant
Dim varUsername As Variant
Dim varPassword As Variant
Dim intWaitingMailAction As Integer
Dim intNoWaitingMailAction As Integer
varServer = "mail.mailserver.com"
varUsername = "username"
varPassword = "password"
intWaitingMailAction = 1
intNoWaitingMailAction = 0
intReturn = Action2.CheckForMail (varServer, varUsername, varPassword, intWaitingMailAction, intNoWaitingMailAction)
If intReturn = 0 Then
MsgBox "Failure"
MsgBox( Action2.GetLastError )
ElseIf intReturn = 1 Then
MsgBox "Success"
End If
End Sub