Bonjour à tous,

je n'arrive pas à trouver une solution à mon problème, la solution n'existe peut être pas.
Je souhaiterais envoyer un mail sous lotus notes 8.5 avec une copie d'une plage de feuille Excel. Impossible de trouver le code à utiliser.

Voila sous sa version très simplifié le code que j'utilise pour l'envoi de mail automatique sous excel 2010 vers Lotus notes. Je voudrais pouvoir coller ce que j'ai copié dans lotus, votre aide me serait precieuse.

Merci à vous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Set Session = CreateObject("Notes.NotesSession")
Set Maildb = Session.GetDataBase("", MailDbName)
If Maildb.IsOpen = True Then
Else
Maildb.OPENMAIL
End If
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.form = "Memo"
MailDoc.Sendto = "test@test.fr"
Worksheets("Feuil1").Range("A1:C3").CopyPicture
 
MailDoc.Send 0, Recipient