Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim email As New NotesDatabase("", "") Dim doc As NotesDocument, memo As NotesDocument Dim body As NotesRichTextItem Set uidoc = ws.CurrentDocument If (uidoc.EditMode) Then Call uidoc.Save Set doc = uidoc.Document uidoc.EditMode = True If doc.am_init_approved(0) = "y" And doc.am_init_flag(0) <> "done" Then Set memo = email.CreateDocument memo.Form = "Memo" memo.Subject = "Congratulations! You are now a " & doc.GetItemValue("title_vis")(0) & "." memo.Remark = "I am pleased to announce you have now been approved as a " & doc.GetItemValue("title_vis")(0) memo.SendTo = "Field Technology" memo.CopyTo = "Field Technology" ' add a body and a doc link Set body = memo.CreateRichTextItem("Body") Call body.AppendDocLink(doc, "", "") Call uidoc.FieldSetText("am_init_flag", "done") Call uidoc.Save ' send the memo and close the form Call memo.Send(False) Call uidoc.Close(True) End If End Sub
Join the community of 500,000 technology professionals and ask your questions.