[AC-2003] Mailto et cdo [Résolu]

[maringot]

Bonjour,

Dans ma fiche client j'ai un champ avec une adresse mail.
J'aimerais, quand je clique dessus, envoyer un mail à mon client avec ou sans pièce jointe.

Cela fait plusieurs jours que je lis les tuto et le forum pour trouver la solution qui me conviendrais. Mais je ne suis pas sûr d'avoir tout saisis.

Si je comprends bien, soit on paramètre le champ en lien hypertexte, on écrit l'adresse mail dans le champ précédée de mailto et outlook s'ouvre et envoie le message ? Sauf que ça ne marche pas il ne trouve pas le serveur. (Microsoft Outlook est coché dans le VBA).

Sinon il y a la solution du CDO qui m'intéresse plus (via un smtp). Mais je n'ai pas compris comment le champ doit être paramétré (texte ou lienhypertexte) et quel code dans quel module et quel code dans quel évènement du champ.

Quelqu'un pourrait-il prendre le temps d'expliquer à une novice du mail via access les diverses manipulations nécessaires à cette procédure ? car ce que je trouve sur le net est un peu confus pour moi.

En vous remerciant par avance,
Maringot

[LedZeppII]

Bonjour,

La méthode lien hypertexte avec mailto n'est pas très élaborée.
Elle sert juste à créer un nouvel email avec le destinataire pré-rempli.

Si tu as Outlook (celui de la suite Office), c'est la méthode la plus simple pour créer et envoyer des emails.
FAQ : Interaction avec d'autres applications > Applications Office > Outlook

A+

[maringot]

Bonjour LedZepII,

Donc je mets ce code dans un module ?
Je paramètre le champ "Email" en texte ?

Et après je fais quoi ?

Merci pour tes infos,
Maringot

[LedZeppII]

Bonjour,

Donc je mets ce code dans un module ? Oui, dans un module de code.
Je paramètre le champ "Email" en texte ? Oui.

Ensuite il faut ajouter un bouton pour envoyer l'email, et écrire le code de la procédure événementielle "Sur Clic".

La procédure de la faq a plusieurs arguments

Code :

1
2
3
4
5
Public Sub CreateEmail( _
    Recipient As String, _
    Subject As String, _
    Body As String, _
    Optional Attach As Variant)

Recipient : c'est l'adresse email du destinataire. A récupérer sur le formulaire.
Subject : Sujet/Titre de l'email.
Body : le contenu (texte) de l'email.
Attach : argument facultatif pour la/les pièce(s) jointe(s).

Exemple de procédure événementielle "Sur Clic" :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub CmdEnvoyerEmail_Click()
Dim sAdresseMail As String
Dim sSujet As String
Dim sMessage As String
Dim sFichierAttache As String
Dim bModeTest As Boolean
 
' Mode Test (True = Oui ; False = Non)
bModeTest = True
 
' Adresse Email
If bModeTest=True Then
    ' En phase de test
    sAdresseMail = "mon.adresse@provider.fr"
Else
    ' En phase opérationnelle
    sAdresseMail = Me.NomControleAdresseEmail
End If
 
' Sujet
sSujet = "Test"
 
' Texte du message
sMessage = "Bonjour," & VbCrLf
sMessage = sMessage & VbCrLf
sMessage = sMessage & "Ceci est un message de test" & VbCrLf
sMessage = sMessage & VbCrLf
sMessage = sMessage & "Slts" & VbCrLf
 
' Fichier Attaché
sFichierAttache = "C:\WINDOWS\Bulles de savon.bmp"
' Si on ne veut pas de Fichier
sFichierAttache = ""
 
' Appel de la procédure de la FAQ pour créer et envoyer l'email
If Len(sFichierAttache) > 0 Then
   ' Pour envoyer avec le fichier
   CreateEmail sAdresseMail, sSujet, sMessage, sFichierAttache
Else
   ' Pour envoyer sans fichier
   CreateEmail sAdresseMail, sSujet, sMessage
End If
 
End Sub

A+

[maringot]

Bonjour,

Merci pour ces informations, elles vont m'être précieuses.

Cordialement,

Maringot