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
EDIT : Cette macro marche mais je souhaite que le message ne s'envoie pas automatiquement, et j'aimerais pouvoir renseigner le destinataire
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
Partager