Discussion :

[samia21]

Bonjour,

Je n’arrive pas a faire en sorte que lorsque je clique sur une adresse mail de ma base, Access me renvoi directement vers lotus notes pour pouvoir envoyer un mail à l’adresse sélectionnée.

J’ai trouvé ce code sur internet mais je n’y connais rien !
Ou dois- je mettre ce code ? Et est il juste ?

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Public Sub SendNotesMail(ByVal Subject As String, ByVal Attachment As String, _
ByVal Recipient As String, ByVal ccRecipient As String, _
ByVal bccRecipient As String, ByVal BodyText As String, _
ByVal SaveIt As Boolean, ByVal Password As String)
 
Dim Maildb As Object 'La base des mails
Dim UserName As String 'Le nom d'utilisateur
Dim MailDbName As String 'Le nom de la base des mails
Dim MailDoc As Object 'Le mail
Dim AttachME As Object 'L'objet pièce jointe en RTF
Dim Session As Object 'La session Notes
Dim EmbedObj As Object 'L'objet incorporé
 
'Crée une session notes
Set Session = CreateObject("Notes.NotesSession")
 
'*** Cette ligne est réservée aux versions 5.x et supérieur : ***
Session.Initialize (Password)
 
'Récupère le nom d'utilisateur et crée le nom de la base des mails
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
 
'Ouvre la base des mails
Set Maildb = Session.GETDATABASE("", MailDbName)
If Not Maildb.ISOPEN Then Maildb.OPENMAIL
 
'Paramètre le mail à envoyer
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.CopyTo = ccRecipient
MailDoc.BlindCopyTo = bccRecipient
MailDoc.Subject = Subject
MailDoc.Body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt
 
'Prend en compte les pièces jointes
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
MailDoc.CREATERICHTEXTITEM ("Attachment")
End If
 
'Envoie le mail
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
 
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub

Merci

[marot_r]

Il y a une FAQ sur ce sujet.

http://access.developpez.com/faq/?pa...ion#mail_lotus

A+

[samia21]

Merci mais ce code vient justement du FAQ !
J’avais fais des recherches et j’avais trouvé ce code mais le problème c’est que je ne le comprend pas et que je ne sais pas ou le mettre.

[marot_r]

Bon s'il vient de la FAQ on va le suposer juste au départ.

Pour l'utiliser il te suffit de créer un nouveau module et de recopier le code dedans. Ensuite dans ton programme par exemple sur le click d'un bouton tu écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SendNotesMail(TonSujet, NomDuFichierAttache, eMailDestinataire, eMailDestinataireCopie, eMailDestinataireCopieCachee, TexteMessage, SauvegarderOuiNon, MotPasse)

Tous ces paramêtres sont des chaînes de caractères, sauf SauvegarderOuiNon qui est un boulean, et peuvent être prise dans des champs de ton formulaire.

A+

[samia21]

Désolé, J'ai essayer d'appliquer ce que tu m'a dit mais cela ne marche pas et je ne comprend pas le code.

[marot_r]

Oops je m'apperçois que j'ai oublié call devant le nom de la procédure.

Cela devrait être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
call SendNotesMail(TonSujet, NomDuFichierAttache, eMailDestinataire, eMailDestinataireCopie, eMailDestinataireCopieCachee, TexteMessage, SauvegarderOuiNon, MotPasse)

Que ne comprends-tu pas dans le code ?

A+

[samia21]

Merci pour ta réponse.

J'ai mis le code dans un module comme tu me la dit.
Puis dans mon formulaire j'ai un champs avec des adresses mail. Dans un évènement, cur clic, j'ai mis lotre code qui appel le module.
- Déja, je voudrais savoir si cela change quelques chose si le type du champs était du texte ou un lien hypertexte?

En essayant d'appliquer voila les erreurs que Access ma affiché:
- Erreur d'execution '438' propriété ou méthode non généré par cet objet.
Et sa ma surligné: "Session.Initilize (Password)" dans le module.
Alors j'ai essayé de le mettre en comentaire car d'après le module cette ligne est réservée aux versions 5.x et supérieur.

Mais Access ma affiché une autre erreur malgrès tout: Erreur d'exécution '7000' Notes error: Destinataires introuvables. et m'a surligné "MailDoc.SEND 0, Recipient

[marot_r]

Je sais que c'est possible mais je ne l'ai jamais fait et je n'ai pas la possibilité de le tester.

Je te suggère d'essayer de faire fonctionner le code en utilisant un module de test qui se contente d'appeler la fonction avec des paramètres en dur.

Une fois que cela fonctionne, tu pourras t'essayer avec des données venant de ton formulaire.

A+

[samia21]

Je doute y arriver! je ne suis que débutante en VB.
Merci quand même pour ta réponse.
Si quelqu'un d'autre peut m'aider....sa serait super!!