Il faut créer utiliser les objets Notes. Voici un exemple (cela peut être une fonction qui recoit comme arguments:
- pstrSendToMembers : A qui envoyer
- pstrCopyToMembers : Qui est en copie
- pstrSubject : Le sujet du memo
- pstrBody : Le texte du memo
'Créer une session
Set Session = CreateObject("Notes.NotesSession")
'Récupérer le nom de l'utilisateur Notes (pour le champ From)
UserName = Session.UserName
'Ouvrir la base de mail
Set Maildb = Session.getdatabase("", "")
If Maildb.IsOpen = True Then 'Already open for mail
Else
Maildb.OpenMail
End If
'Créer et remplir le memo
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
MailDoc.SendTo = pstrSendToMembers
MailDoc.CopyTo = pstrCopyToMembers
MailDoc.Subject = pstrSubject
MailDoc.Body = pstrBody
'Dans le cas ou l'on désir sauvegarder le message mettre a true
MailDoc.SaveMessageOnSend = False
MailDoc.From = UserName
'BONUS Si l'on veux y inclure le fichier excel ....
'Set up the embedded object and attachment and attach it
ActiveWorkbook.Save
Attachment = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachement")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
'Envoyer le document
MailDoc.Send 0