Discussion :

[The Ditch]

Bonjour,

J'ai un formulaire qui contient 3 adresses mail différentes.
J'aimerais créer un bouton qui me permet d'envoyer un courrier a une des adresses de mon formulaire.
Il faut probablement utiliser un mailto, mais je ne vois pas comment récupérer l'adresse mail contenue dans mon champ mail.

Pouvez-vous me renseigner?

Merci

Didier

Oups, je viens de me rendre compte que j'ai posté au mauvais endroit.
http://www.developpez.net/forums/f65...ce/access/ihm/
Pouvez-vous déplacer mon post?

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Pour envoyer un mail tu as au moins deux possibilités. La première est l'utilisation de la bibliothèque CDO, la seconde, la passage par Outlook.

Pour le CDO, je n'ai rien sous la main, pour Outlook, jette un oeil ici

[xavsuderrone]

Salut The Ditch,

J'etais moi aussi interesse par cette fonction et ayant du mal a appliquer le code precise dans la FAQ ou Tutos, je me suis lance dans des recherches ailleurs.

J'ai finalement trouve un blog detaillant la demarche, joignant le code. Par contre c'est en anglais.

J'ai pu integre un module, appele la fonction, configure Outlook tout en suivant la demarche. voici le site ICI

Je te joins egalement une base tres simple, qui pourra te montrer comment est organise l'envoi de mails, a partir d'une mailist, en cliquant sur un bouton.

http://www.datastrat.com/Download/EmailSenate2K.zip

Aucun virus detecte.

En esperant que cela t'aide,

Salut

[Heureux-oli]

J'ai mis aussi comment utiliser Outlook dans Access, mais c'est en français.

[The Ditch]

Merci pour vos réponses.

Heureux-oli, ta db d'exemple est superbe, mais un peu compliqué pour moi, enfin pour le moment.

Je pensais a quelque chose de plus "basique".

Mon formlaire est basé sur une table qui contient un 3 champs eMail (eleve, tuteur1 et tuteur2).
Je voulais mettre 3 boutons ( mailto eleve, mailto tuteur1 et mailto tuteur2)dans mon formulaire qui sur clic ouvre outlook et met la valeur du champ email dans le A du mail.

Didier

[Heureux-oli]

Salut,

C'était le code qui fallait regarder plus que la DB.
Mais bon, 1 2 3 on y va.

Pour envoyer un mail, il faut utiliser Outlook (j'espère que c'est ton cas).
Tu dois ajouter à ton projet la référence Outlook.

Dans le VBE : Outils Références et choisir Outlook

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
Sub envoyerMail()
'Déclaration des variables
Dim oApp As Outlook.Application
Dim oMail As MailItem
'Affectation des objets
'Outlook doit être ouvert 
Set oApp = Outlook.Application
Set oMail = oApp.CreateItem(olMailItem)
'On récupère les données du formulaire pour compléter le message
oMail.To = Me.moncontroleTo
oMail.Subject = Me.MoncontroleSubject
oMail.Body = Me.MoncontroleCorpsDuMessage
'Envoi du message
oMail.Send
'Libération des objets
Set oMail = Nothing
Set oApp = Nothing
 
End Sub

[Jacques-Henri]

Bonsoir the ditch,
Comme le disent très bien les autres ,plusieurs possibilités permettent de s'en sortir pour utiliser le mail à partir d'access.
Moi-même je voulais quelque chose de simple en partant de la même idée :
Un champs texte libellé sous la forme adresse mail que je pouvais modifier sans problème et juste à côté un bouton de commande qui me permettait de lancer Outlook , en quelque sorte automatiser le préfixe mailto avec du code VBA sur "événement sur clic".
Alors voici ce que je te propose et qui fonctionne très bien chez moi:

Code :

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

1
2
3
Private Sub Commande_Click()
Application.FollowHyperlink "mailto:" & Me![E mail]
End Sub

E mail est le champ texte ainsi nommé.
Tu peux ajouter en début de code une msgbox si le champ est nul par exemple , c'est ce que j'ai fait d'ailleurs.
Fais nous savoir si c'est bien cela que tu recherchais et si c'est OK.
A bientôt .