VBA et Lotus Note - envoi de mails
Bonjour,
J'utilise une macro sous excel pour envoyer des mails via LOTUS. Savez vous :
1) comment ajouter un accusé de réception?
J'ai ceci dans ma macro mais ca ne fonctionne pas :
Code:
MailDoc.AppendItemValue "ReturnReceipt", "1"
Essayé également de remplacer "1" par True, idem
2) comment ajouter sa signature (car les mails partent bien, mais il n'y a pas ma signature)
3) Est il possible de saisir le corps du mail dans une cellule lotus ? Car pour le moment il faut saisir le mail dans la macro, ce qui n'est franchement pas pratique pour l'utilisateur
Extrait de ma macro :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| Dim objNotesField As Object
....
Set objNotesField = MailDoc.CreateRichTextItem("Body")
With objNotesField
.AppendText "Bonjour" & Prenom
.AddNewLine 2
.AppendText "*************************************************************************************************"
.AddNewLine 2
.AppendText "Ce message a été envoyé avec le fichier que j'ai joint."
.AddNewLine 2
.AppendText "Le fichier Envoi mail par Lotus du : " & Date & " à " & Time
.AddNewLine 2
.AppendText "est en pièce jointe"
.AddNewLine 2
.AppendText "--------------------------------------------------------------------------------------------------"
.AddNewLine 2
.AppendText "Cet e-mail a été généré par un processus automatique."
.AddNewLine 2
.AppendText "Cordialement"
.AddNewLine 1
.AppendText "ABIVEN"
.AddNewLine 1
.AppendText "tel :"
.AddNewLine 1
End With |
