@mailsend equivalent in LS

HCL Domino Domino Forum
1

i need to find an equivalent for a @mailsend function in LS. But i have found only uidocument.Send or notesdocument.send function, which has not the same paramenters …

Does this equivalent exists in LS?

2

Subject: RE: @mailsend equivalent in LS

This topic has been treated numerous time.

A code sample (thank goes to Steve Castledine)

Sub sendMail(recipient As String,sender As String,subject As String,body As String)

    If recipient<>"" Then

           

            Dim session As New notessession

            Dim db As NotesDatabase

            Set db=session.currentdatabase

           

            Dim docMail As NotesDocument

            Set docMail=db.CreateDocument

           

            Dim senderdomain As String

            senderdomain=Strright(sender,"@")

           

            docMail.Form="Memo"

            docMail.SaveOptions="0"

            docMail.SendTo = recipient

            docMail.Subject = subject

           

            docMail.Principal = | <| + sender + |@|+senderdomain+|>|

            docMail.From = sender

            docMail.AltFrom = sender

            docMail.SendFrom = sender

            docMail.INetFrom = sender

            docMail.tmpDisplaySentBy = sender

            docMail.tmpDisplayFrom_Preview = sender

            docMail.DisplaySent = sender

           

            Dim rtitem As NotesRichTextItem

            Set rtitem = New NotesRichTextItem ( docMail, "Body" )

            Call rtitem.AppendText ( body )

           

            Call docMail.Send( False )

           

    End If

End Sub