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 qui envoie un mail automatiquement, mais je veux juste l'ouverture de LotusNote avec objet et corps de texte

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