Thanks a lot for your quick response. I reffered the IBM article also. If I try
to add a MailOption field, I will have to change the current desing a lot.
But your idea is great. I change my code to workaround your idea. In that I
found another problem. When I execute this code, on the server console this
message appears :
"Router: Message ....... contains no recipients"
But I debugged my code and found that the recipient is passed through the
parameter. At this point I am stuck again. Please help me.
Your help is greatly greatly appreciated.
with regards, Nalaka.
The code I use :
----------------
Sub tpMailSend(strFrom As String, strSendTo As String, strCCTo As String,
strBCCTo As String, strSubject As String, strBody As String, reqDoc As
NotesDocument)
Print "22"
Print "<br>"
Print strFrom
Print "<br>"
Print strSendTo
Print "<br>"
Dim session As New NotesSession
Dim rtitem As NotesRichTextItem
Dim mailBox As New NotesDatabase("", "mail.box")
Dim maildoc As New NotesDocument(mailBox)
maildoc.Form = "Memo"
maildoc.From = strFrom
maildoc.SendTo = strSendTo
maildoc.CopyTo = strCCTo
maildoc.BlindCopyTo = strBCCTo
maildoc.Subject = strSubject
Set rtitem = New NotesRichTextItem(maildoc, "Body")
Call rtitem.AddNewLine(1)
Call rtitem.AppendText(strBody)
Call rtitem.AppendDocLink(reqDoc,"Request Doc Link")
Call rtitem.AddNewLine(2)
Call rtitem.AppendText("Thanking You,")
Call rtitem.AddNewLine(1)
Call rtitem.AppendText(strFrom)
Print "222"
Print "<br>"
'Call maildoc.Send(False)
Call maildoc.Save(False, False)
Print "2222"
Print "<br>"
End Sub
Hi Jake,
Thanks a lot for your quick response. I reffered the IBM article also. If I try to add a MailOption field, I will have to change the current desing a lot.
But your idea is great. I change my code to workaround your idea. In that I found another problem. When I execute this code, on the server console this message appears : "Router: Message ....... contains no recipients"
But I debugged my code and found that the recipient is passed through the parameter. At this point I am stuck again. Please help me.
Your help is greatly greatly appreciated.
with regards, Nalaka.
The code I use : ----------------
Sub tpMailSend(strFrom As String, strSendTo As String, strCCTo As String, strBCCTo As String, strSubject As String, strBody As String, reqDoc As NotesDocument) Print "22" Print "<br>" Print strFrom Print "<br>" Print strSendTo Print "<br>" Dim session As New NotesSession Dim rtitem As NotesRichTextItem Dim mailBox As New NotesDatabase("", "mail.box") Dim maildoc As New NotesDocument(mailBox) maildoc.Form = "Memo" maildoc.From = strFrom maildoc.SendTo = strSendTo maildoc.CopyTo = strCCTo maildoc.BlindCopyTo = strBCCTo maildoc.Subject = strSubject Set rtitem = New NotesRichTextItem(maildoc, "Body") Call rtitem.AddNewLine(1) Call rtitem.AppendText(strBody) Call rtitem.AppendDocLink(reqDoc,"Request Doc Link") Call rtitem.AddNewLine(2) Call rtitem.AppendText("Thanking You,") Call rtitem.AddNewLine(1) Call rtitem.AppendText(strFrom) Print "222" Print "<br>" 'Call maildoc.Send(False) Call maildoc.Save(False, False) Print "2222" Print "<br>" End Sub