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 : Sélectionner tout - Visualiser dans une fenêtre à part
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