Context: |
Function |
Library/Class: |
Utilities |
Function SendMail() As
SendMail (SendTo() As String, CopyTo() As String, Bcc() As String, Subject As String, BodyHdr As String, Filename As Variant, ConfirmDlg As Integer, AppendRtitem As NotesRichtextItem, KillFile As Integer, ShowPBar As Integer) As Integer
This function is creating a new blank memo document in the user’s mail database and calls then the CreateMemo() function to populate the memo with the necessary or provided information (parameters) to make it a valid (send able) memo document.
In case this function is called in a scheduled profile or from web-browser initiated profile, then the memo document is created in the Integra database.
Note: the memo document is not saved to file and only temporarily created as a container for the to be sent memo.
Parameters:
SendTo (Array of Strings)
List of people (or groups) that will receive the memo.
CopyTo (Array of Strings)
List of people (or groups) that will receive a copy of the memo.
List of people (or groups) that will receive a blind copy of the memo.
Heading text for the memo’s body part. The provided text will be placed before any attachment.
Single filename (String) or list of filenames (Array of Strings) of a file or files to be attached to the memo document. Filenames have to include the file path.
True or False. If True the user will be presented with a mail-send dialog allowing to enter the mail recipients, subject and body heading for the memo document.
AppendRtitem (NotesRichtextItem)
NotesRichtextItem object which rich text contents will be appended to the body field of the memo document.
True or False. If True the file passed in the parameter Filename will be deleted (from disk) after being attached to the memo document.
True or False. If True, a progress bar will be displayed whilst attaching the file(s).
Return Value:
Integer. True or False.
Sample:
|
Dim sendto() As String
Dim cc() As String
Dim bcc() As String
redim sendto(0)
redim cc(0)
redim bcc(0)
sendto(0) = “All Staff”
cc(0) = “”
bcc(0) = “”
If Not SendMail(sendto,cc,bcc,”SendMail Function”,”This is a body heading text”,””, False,Nothing,False,False) Then
Call MessageDialog(“An error has occurred while sending the mail”, 0, ”Send Mail”)
End If
|
|
|