Public Sub send_email(Sendto As String, subject As String, text_message As String)
Dim Maildb As Object
Dim MailDoc As Object
Dim Body As Object
Dim Session As Object
Start sesji lotusNotes
Set Session = CreateObject("Lotus.NotesSession")
'Hasło do pliku ID
Call Session.Initialize("abc123")
'Otwarcie pliku ID
Set Maildb = Session.GetDatabase("LnMail1/HeadQ", "mail\bartosm.nsf")
If Not Maildb.IsOpen = True Then
Call Maildb.Open
End If
Set MailDoc = Maildb.CreateDocument
'Dodanie atrybutów wiadomości
Call MailDoc.ReplaceItemValue("Form", "Memo")
Call MailDoc.ReplaceItemValue("SendTo", Sendto)
Call MailDoc.ReplaceItemValue("Subject", subject)
Set Body = MailDoc.CreateRichTextItem("Body")
Call Body.AppendText(text_message)
Call Body.AddNewLine(2)

MailDoc.SaveMessageOnSend = True

Call MailDoc.ReplaceItemValue("PostedDate", Now())
Call MailDoc.Send(False)

Set Maildb = Nothing
Set MailDoc = Nothing
Set Body = Nothing
Set Session = Nothing
End Sub