FORUM PLAN UPDATE: Date revision: This forum will remain open to new posts and responses until December 1, 2018. (After that date, you will still be able to view and search the forum.) Also, we're taking a second look at the best place to host future conversation. For now, keep using this forum, and stay tuned for more news.
Paul R Emery 17.Aug.16 03:32 PM a Web browser Domino Designer All Releases All Platforms
I apologize in advance but it has been some time since I have coded and can't seem to figure out the simple task of having my code below allow me to send an update email to a multi valued text field. That multi valued text field is being populated via a submit button from another multi valued text field which contains multiple people seperated by colon's.
I believe I need to make it an array but I can't seem to do it and have it work and have begun to go in circles with googling.
Below is my code (my issue is when trying to send to Doc.OtherManagers):
Dim Session As New NotesSession
Dim DB As NotesDatabase
Dim MailDoc As NotesDocument
Dim Doc As NotesDocument
Dim View As NotesView
Dim Body As NotesRichTextItem
Set DB = Session.CurrentDatabase
Set View = DB.GetView("(VacationReminderEmail)")
Set Doc = View.GetFirstDocument
If Doc Is Nothing Then
Do Until Doc Is Nothing
Set MailDoc = DB.Createdocument()
MailDoc.SendTo = Doc.Manager(0)
MailDoc.CopyTo = Doc.OtherManagers(0)
MailDoc.Subject = Doc.TeamMember(0) & " is on vacation beginning on " & Doc.StartDate(0) & " and returning on " & Doc.EndDate(0)
Set Body = New NotesRichTextItem( MailDoc, "Body" )
Set Doc=View.GetNextDocument( Doc )