logo

New Response

« Return to the main article

You are replying to:

  1. 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

Your Comments

Name:
E-mail:
(optional)
Website:
(optional)
Comment: