 |
 |
When I enter addresses in the Sub sendmail of the Auto-Failover agent and make them uncommented I get the error:
Auto-Failover: sendEmail: 19: FORALL alias variable was previously declared: USERADDRESS
Here is what I have:
Sub sendEmail
Dim docMemo As New NOTESDOCUMENT(db)
Set fview = db.GetView("failover")
Set fdoc = fview.GetFirstDocument
If (fdoc Is Nothing) Then
Exit Sub
End If
Dim userAddress(6) As String
' Add e-mail address of people to notify when fail over occurs
userAddress(0) = "bhumphre@marasconewton.com"
' userAddress(1) = ""
' userAddress(2) = ""
' userAddress(3) = ""
' userAddress(4) = ""
' userAddress(5) = ""
While Not (fdoc Is Nothing)
Set fitem = fdoc.GetFirstItem( "email" )
Forall userAddress In fitem.Values
Call docMemo.ReplaceItemValue("SendTo", userAddress)
Call docMemo.ReplaceItemValue("Subject","A registration failover has occured!!!")
Call docMemo.ReplaceItemValue("From","reg@notes.net")
Call docMemo.ReplaceItemValue("Form","Memo")
Call docMemo.Send(False)
End Forall
Set fdoc = fview.GetNextDocument(fdoc)
Wend
End Sub |
Go back |
| |
|