Sending notes containing URL links with visual basic 6

HCL Domino Domino Forum
1

Hello

I am using visual basic 6.0 lotus API to send a lotus note with an application.

I want this note to have an url link in the message. So the person

who receives the note just click on the link to open it.

I don’t want to put the full URL http://<www.myurl.com> in the message,

I just want to put a link “click here” the user clicks and it goes to the page.

The richtextstyle property PassThruHTML with tag doesn’t work,

I don’t know why. Do you kow other solutions ?

Set Session = CreateObject("Notes.NOTESSESSION")

    

DbLocation = Session.GetEnvironmentString("MailFile", True)

Set db = Session.GetDatabase("", DbLocation) 'GetDatabase(Server Name, Database Path from which mail has to be sent)



db.OPENMAIL



Set doc = db.CreateDocument

doc.Form = "Memo" 'doc type is memo



doc.SendTo = RecupererDestPour(adresse)



If Trim(adresseCC) <> "" Then

    doc.CopyTo = RecupererDestCC(adresseCC) 'Copy to MailID

End If



If Trim(adresseCCC) <> "" Then

    doc.BlindCopyTo = RecupererDestCCC(adresseCCC) 'Copy to MailID

End If



'MailId from which the mail has to be sent

doc.principal = "Integration-Cid PROJET"

doc.Subject = frmMsgDiffusion.objet.Text & frmMsgDiffusion.objetlibre.Text



Set rTItem = doc.CreateRichTextItem("Body")

Set style = Session.CreateRichTextStyle

style.PassThruHTML = True

Call rTItem.AppendStyle(style)

Call rTItem.AppendText("<a href=/"http://www.google.com/">link</a>")

Thank you in advance

Nicolas

2

Subject: sending notes containing URL links with visual basic 6

have a look into the Designer Help…look for “NotesRichTextDocLink” and you’ll find your answer

3

Subject: RE: sending notes containing URL links with visual basic 6

Can you tell me how to use “NotesRichTextDocLink” to make a web link. thank you in advance