static private void SendMessage(string SendTo, string name, string Subj, string Text)
        {
            Domino.NotesSession session = new Domino.NotesSession();
            
            session.Initialize(Password)

            var db = session.GetDatabase("", "mail/yachik");

            if (!db.IsOpen)
            {
                db.Open();
            }
            var cd = db.AllDocuments;
            var doc = db.CreateDocument();
            doc.AppendItemValue("Form", "Memo");

            SendTo = name + "<" + SendTo + ">";

            doc.ReplaceItemValue("SendTo", SendTo);
                            
            doc.AppendItemValue("Subject", Subj);

            NotesRichTextItem _richTextItem = doc.CreateRichTextItem("Body");

            _richTextItem.AppendText(Text);

            var oItemValue = doc.GetItemValue("SendTo");
            
            doc.SaveMessageOnSend = true;
            
            doc.Send(false, ref oItemValue);
        }

session.Initialize(Password)

session.Initialize()

Public Sub sendEmail(EMailSendTo As String, EmailSubject As String, EMailBody As String)

    Dim objNotesSession As Object
    Dim objNotesMailFile As Object
    Dim objNotesDocument As Object
    Dim objNotesField As Object
    Dim sendmail As Boolean

    Dim dbString As String

 
On Error GoTo SendMailError
    Set objNotesSession = CreateObject("Notes.NotesSession")
On Error Resume Next
    
    dbString = objNotesSession.GetEnvironmentString("MailFile", True)
    Set objNotesMailFile = objNotesSession.GETDATABASE(MailServer, dbString)
    'Open Mail
    objNotesMailFile.OPENMAIL
  On Error GoTo 0

    'Create New Memo
    Set objNotesDocument = objNotesMailFile.createdocument

    Dim oWorkSpace As Object, oUIdoc As Object
    Set oWorkSpace = CreateObject("Notes.NotesUIWorkspace")
    Set oUIdoc = oWorkSpace.CurrentDocument
    
    'Create 'Subject Field'
    Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", EmailSubject)

    'Create 'Send To' Field
    Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo", EMailSendTo)


    'Create 'Blind Copy To' Field
    Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", EmailSubject)

    'Create 'Body' of memo
    Set objNotesField = objNotesDocument.CREATERICHTEXTITEM("Body")

    With objNotesField
        .APPENDTEXT EMailBody
        .ADDNEWLINE 1
    End With

    'Send the e-mail

    Call objNotesDocument.Save(True, False, False)
    objNotesDocument.SaveMessageOnSend = True
    'objNotesDocument.Save
    objNotesDocument.Send (0)

    'Release storage
    Set objNotesSession = Nothing
    Set objNotesMailFile = Nothing
    Set objNotesDocument = Nothing
    Set objNotesField = Nothing

    'Set return code
    sendmail = True

    Exit Sub

SendMailError:
    Dim Msg
    Msg = "Error # " & Str(Err.Number) & " was generated by " _
                & Err.Source & Chr(13) & Err.Description
    MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
    sendmail = False
End Sub

            
            session.Initialize(Password)

            var db = session.GetDatabase("", "mail/yachik");

            if (!db.IsOpen)
            {
                db.Open();
            }
            var cd = db.AllDocuments;
            var doc = db.CreateDocument();
 

             session.Initialize();
            NotesDbDirectory dir = session.GetDbDirectory("Local");
            NotesDatabase db = dir.OpenMailDatabase();

            if (!db.IsOpen)
            {
                db.Open();
            }
            var cd = db.AllDocuments;
            var doc = db.CreateDocument();