You are viewing this page out of context. To see it in the context it is intended please click here.

About This Page

Reply posted by Nalaka Malalagama on Mon 2 Jun 2003 in response to Alternative to the Domino HTTP Stack

Re: Problem!

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