Envoyer un mail à partir d'Access

Raymond

18/10/2003 à 16:43

Bonjour.

encore plus simple.
déclare le champ de type lien hypertexte.
dans le champ tu rentres: mailto: et il suffit de
cliquer dessus pour ouvrir la messagerie par défaut avec cette valeur
indiquée dans le champ destinataire
il faut que ton adresse soit précédée par mailto:
de même si tu entres http://...... tu ouvriras directement l'explorateur
internet.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.

"AB" a écrit dans le message de
news:

Bonjour,
Est-il possible, dans un formulaire dans lequel figure un champ "e-mail",
de

faire unclic droit, et dans le menu contextuel qui s'ouvre, d'avoir une
ligne "envoyer un message", et d'ouvrir OE pour envoyer un message, avec
l'adresse qui s'inscrit automatiquement dans la rubrique "destinataire" ?
AB

Pierre CFI

18/10/2003 à 16:56

trop simple, mon fils :O))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Raymond" a écrit dans le message de news:

Bonjour.

encore plus simple.
déclare le champ de type lien hypertexte.
dans le champ tu rentres: mailto: et il suffit de
cliquer dessus pour ouvrir la messagerie par défaut avec cette valeur
indiquée dans le champ destinataire
il faut que ton adresse soit précédée par mailto:
de même si tu entres http://...... tu ouvriras directement l'explorateur
internet.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.

"AB" a écrit dans le message de
news:
Bonjour,
Est-il possible, dans un formulaire dans lequel figure un champ "e-mail",
de

faire unclic droit, et dans le menu contextuel qui s'ouvre, d'avoir une
ligne "envoyer un message", et d'ouvrir OE pour envoyer un message, avec
l'adresse qui s'inscrit automatiquement dans la rubrique "destinataire" ?
AB

Raymond

18/10/2003 à 17:27

Bonjour Pierre.

on prend un moment de détente quand même !

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.

"Pierre CFI" a écrit dans le message de
news:

trop simple, mon fils :O))

--
Pierre CFI

Pierre CFI

18/10/2003 à 18:10

oui, dure semaine !!!

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Raymond" a écrit dans le message de news:

Bonjour Pierre.

on prend un moment de détente quand même !

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.

"Pierre CFI" a écrit dans le message de
news:
trop simple, mon fils :O))

--
Pierre CFI

AB

19/10/2003 à 10:42

Merci : effectivement, trop simple !
Juste un truc, pour gagner du temps : vu que les adresses mail ont déjà été
saisies, comment faire pour automatiquement ajouter mailto: avant les
adresses. Je peux exporter la table, et faire ça facilement dans Excel, mais
y a-t-il un moyen plus rapide dans Access ?
Et puisqu'on y est, n'y a-t-il pas un moyen de n'entrer que l'adresse mail
dans ce champ ? Si j'édite une liste, je vais me retrouver avec mailto:
devant chaque adresse : pas génial...
A+
André

Pierre CFI wrote:
|| oui, dure semaine !!!
||
|| --
|| Pierre CFI
|| MVP Microsoft Access
|| Mail : http://cerbermail.com/?z0SN8cN53B
||
|| Site pour bien commencer
|| http://users.skynet.be/mpfa/
|| Site perso
|| http://access.cfi.free.fr
|| "Raymond" a écrit dans le message de
|| news:
||| Bonjour Pierre.
|||
||| on prend un moment de détente quand même !
|||
||| --
||| @+
||| Raymond Access MVP.
||| http://access.seneque.free.fr/
||| http://access2003.free.fr/
||| http://users.skynet.be/mpfa/charte.htm pour une meilleure
||| efficacité de tes interventions sur MPFA.
|||
|||
||| "Pierre CFI" a écrit dans le message de
||| news:
|||| trop simple, mon fils :O))
||||
|||| --
|||| Pierre CFI

Raymond

19/10/2003 à 11:11

Bonjour.

2 solutions:

1- tu laisses tes adresses comme elles sont sans le mailto dans un champ
texte. tu ajoutes un bouton de commande à côté du champ texte et tu places
ce code dans l'événement clic:
Private Sub Commande0_Click()
Dim HLK As Hyperlink
Set HLK = Me.Commande0.Hyperlink
HLK.Address = Me.monadresse
HLK.Follow
set HLK = Nothing
End Sub

2- tu modifies toutes tes adresses dans ton champ hyperlink avec une requête
mise à jour:
UPDATE Table1 SET Table1.lelien = "Mailto:" & [lelien]
WHERE (((Left([lelien],7))<>"Mailto:" And (Left([lelien],7)) Is Not Null));
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.

"AB" a écrit dans le message de
news:%

Merci : effectivement, trop simple !
Juste un truc, pour gagner du temps : vu que les adresses mail ont déjà
été

saisies, comment faire pour automatiquement ajouter mailto: avant les
adresses. Je peux exporter la table, et faire ça facilement dans Excel,
mais

y a-t-il un moyen plus rapide dans Access ?
Et puisqu'on y est, n'y a-t-il pas un moyen de n'entrer que l'adresse mail
dans ce champ ? Si j'édite une liste, je vais me retrouver avec mailto:
devant chaque adresse : pas génial...
A+
André

AB

19/10/2003 à 12:02

De permanence le dimanche, Raymond ?
Grand merci pour tes explications, et bon week-end !
André

Raymond wrote:
|| Bonjour.
||
|| 2 solutions:
||
|| 1- tu laisses tes adresses comme elles sont sans le mailto dans un
|| champ texte. tu ajoutes un bouton de commande à côté du champ texte
|| et tu places ce code dans l'événement clic:
|| Private Sub Commande0_Click()
|| Dim HLK As Hyperlink
|| Set HLK = Me.Commande0.Hyperlink
|| HLK.Address = Me.monadresse
|| HLK.Follow
|| set HLK = Nothing
|| End Sub
||
|| 2- tu modifies toutes tes adresses dans ton champ hyperlink avec une
|| requête mise à jour:
|| UPDATE Table1 SET Table1.lelien = "Mailto:" & [lelien]
|| WHERE (((Left([lelien],7))<>"Mailto:" And (Left([lelien],7)) Is Not
|| Null)); --
|| @+
|| Raymond Access MVP.
|| http://access.seneque.free.fr/
|| http://access2003.free.fr/
|| http://users.skynet.be/mpfa/charte.htm pour une meilleure
|| efficacité de tes interventions sur MPFA.
||
||
|| "AB" a écrit dans le message de
|| news:%
||| Merci : effectivement, trop simple !
||| Juste un truc, pour gagner du temps : vu que les adresses mail ont
||| déjà été saisies, comment faire pour automatiquement ajouter
||| mailto: avant les adresses. Je peux exporter la table, et faire ça
||| facilement dans Excel, mais y a-t-il un moyen plus rapide dans
||| Access ?
||| Et puisqu'on y est, n'y a-t-il pas un moyen de n'entrer que
||| l'adresse mail dans ce champ ? Si j'édite une liste, je vais me
||| retrouver avec mailto: devant chaque adresse : pas génial...
||| A+
||| André

AB

19/10/2003 à 22:41

Bonsoir,
J'ai suivi la première méthode : adresses mail dans un champ texte nommé
"mail".
A côté, un bouton (commande186), avec le code suivant :
Private Sub Commande186_Click()
Dim HLK As Hyperlink
Set HLK = Me.Commande186.Hyperlink
HLK.Address = Me.Mail
HLK.Follow
Set HLK = Nothing
End Sub

Lorsque je clique sur le bouton, j'ai un messsage d'avertissement sur les
dangers des liens hypertexte, puis si je continue, erreur à la ligne
HLK.Follow
Why ???
AB

Raymond wrote:
|| Bonjour.
||
|| 2 solutions:
||
|| 1- tu laisses tes adresses comme elles sont sans le mailto dans un
|| champ texte. tu ajoutes un bouton de commande à côté du champ texte
|| et tu places ce code dans l'événement clic:
|| Private Sub Commande0_Click()
|| Dim HLK As Hyperlink
|| Set HLK = Me.Commande0.Hyperlink
|| HLK.Address = Me.monadresse
|| HLK.Follow
|| set HLK = Nothing
|| End Sub
||
|| 2- tu modifies toutes tes adresses dans ton champ hyperlink avec une
|| requête mise à jour:
|| UPDATE Table1 SET Table1.lelien = "Mailto:" & [lelien]
|| WHERE (((Left([lelien],7))<>"Mailto:" And (Left([lelien],7)) Is Not
|| Null)); --
|| @+
|| Raymond Access MVP.
|| http://access.seneque.free.fr/
|| http://access2003.free.fr/
|| http://users.skynet.be/mpfa/charte.htm pour une meilleure
|| efficacité de tes interventions sur MPFA.
||
||
|| "AB" a écrit dans le message de
|| news:%
||| Merci : effectivement, trop simple !
||| Juste un truc, pour gagner du temps : vu que les adresses mail ont
||| déjà été saisies, comment faire pour automatiquement ajouter
||| mailto: avant les adresses. Je peux exporter la table, et faire ça
||| facilement dans Excel, mais y a-t-il un moyen plus rapide dans
||| Access ?
||| Et puisqu'on y est, n'y a-t-il pas un moyen de n'entrer que
||| l'adresse mail dans ce champ ? Si j'édite une liste, je vais me
||| retrouver avec mailto: devant chaque adresse : pas génial...
||| A+
||| André

Raymond

20/10/2003 à 07:52

Bonjour.

fais cette modif:
HLK.Address = "mailto:" & Me.Mail

Mail n'est pas très judicieux comme nom, car il sera peut-être un jour un
mot réservé access.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.

"AB" a écrit dans le message de
news:

Bonsoir,
J'ai suivi la première méthode : adresses mail dans un champ texte nommé
"mail".
A côté, un bouton (commande186), avec le code suivant :
Private Sub Commande186_Click()
Dim HLK As Hyperlink
Set HLK = Me.Commande186.Hyperlink
HLK.Address = Me.Mail
HLK.Follow
Set HLK = Nothing
End Sub

AB

20/10/2003 à 13:54

Bonjour Raymond,
Cette fois, ça marche, mais j'ai encore un petit souci !
Lorsque je clique sur le bouton, OE s'ouvre, et je peux rédiger et envoyer
mon message : c'est nickel.
Le souci, c'est que cette manip ouvre DEUX instances d'OE, au lieu d'une
seule !
Pas dramatique, mais pour le moins curieux...
Si tu as une explication...(sachant que l'adresse mail est du simple texte)
Bien noté ta remarque sur le nom Mail.
Cordialement,
André

Raymond wrote:
|| Bonjour.
||
|| fais cette modif:
|| HLK.Address = "mailto:" & Me.Mail
||
|| Mail n'est pas très judicieux comme nom, car il sera peut-être un
|| jour un mot réservé access.
|| --
|| @+
|| Raymond Access MVP.
|| http://access.seneque.free.fr/
|| http://access2003.free.fr/
|| http://users.skynet.be/mpfa/charte.htm pour une meilleure
|| efficacité de tes interventions sur MPFA.
||
||
|| "AB" a écrit dans le message de
|| news:
||| Bonsoir,
||| J'ai suivi la première méthode : adresses mail dans un champ texte
||| nommé "mail".
||| A côté, un bouton (commande186), avec le code suivant :
||| Private Sub Commande186_Click()
||| Dim HLK As Hyperlink
||| Set HLK = Me.Commande186.Hyperlink
||| HLK.Address = Me.Mail
||| HLK.Follow
||| Set HLK = Nothing
||| End Sub

Envoyer un mail à partir d'Access

10 réponses

Veuillez sélectionner un problème