Envoi de mail à partir de LotusNotes
Bonjour,
Je souhaite créer un bouton sur un formulaire, qui ouvre lotus notes (8.5), sans écrire de destinataire ou mettre une forme (@----.fr) et qui spécifie l'objet, sans pièces jointes.
Quelqu'un aurait une idée?
J'ai trouvé ce code mais j'ai l'impression que rien ne se passe
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
29
30
| Sub envoi_mail()
Dim Session As Object
Dim db As Object
Dim doc As Object
Dim Fichier As Object
'Etablit la connexion avec Notes
Set Session = CreateObject("Notes.NotesSession")
'Etablit la connexion avec la base Mail
Set db = Session.GETDATABASE("", "")
'Ouvre la base Mail
Call db.OPENMAIL
'crée un nouvel E-Mail
Set doc = db.CREATEDOCUMENT()
With doc
.Form = "Memo"
.SendTo = "Julien_guyon@hotmail.fr"
.Subject = "Petit test+fichier"
.Body = "Voici le fichier! "
.From = Session.COMMONUSERNAME
.PostedDate = Now
.SAVEMESSAGEONSEND = True
End With
'Envoyer mail
Call doc.SEND(True)
Set Session = Nothing
Set db = Nothing
Set doc = Nothing
End Sub |
EDIT : Cette macro marche mais je souhaite que le message ne s'envoie pas automatiquement, et j'aimerais pouvoir renseigner le destinataire
