'Pensez à activer la référence : Lotus Notes Automation Classes
Sub envoimaillotus()
Const maxi = 1
Dim maildb As Object, username As String, maildbname As String, maildoc2 As Object, maildoc As Object, attachME As Object
Dim session As Object, attachment As String, Recipient(1 To maxi) As String, RecipientCC(1 To maxi) As String, RecipientBCC(1 To maxi) As String
Dim embedobj As Object, listeA As String, listeCC As String, listeBCC As String, i As Integer
Set session = CreateObject("notes.notessession")
username = session.username
Set maildb = session.getdatabase("", "")
If maildb.IsOpen <> True Then
maildb.openmail
End If
Set maildoc = maildb.createdocument
maildoc.form = "Memo"
Recipient(1) = "toto@dfljgdfl.fr"
maildoc.sendto = Recipient
maildoc.Subject = "Coucou"
maildoc.body = "Petit message"
maildoc.SAVEMESSAGEONSEND = True
maildoc.send 0, Recipient
Set maildb = Nothing
Set maildoc = Nothing
Set maildoc2 = Nothing
Set attachME = Nothing
Set session = Nothing
Set embedobj = Nothing
End sub