OVH Cloud OVH Cloud

envoi d'un mail

6 réponses
Avatar
fth
Bonjour l'équipe,

voila mon soucis du jour:

j'ai un champ avec l'adresse mail de mon contact;
en faisant un double click, j'aimerais bien ouvrir un nouveau mail.
ci-joint, le début de code avec lequel je tente de réaliser cela:

Private Sub Cmail_DblClick(Cancel As Integer)
Dim admail As String

admail = "mailto:" & "[cmail]"
DoCmd.RunCommand admail


End Sub

...ou me gourre-je?

d'avance merci et bonne journée,

Frederic

6 réponses

Avatar
pierref
c'est quoi le champ en question ?
en tout cas pas de guillements autour du champ.

je crois que ca marche si tu fais :

admail = "mailto:" & [cmail]
shell admail

-----Message d'origine-----
Bonjour l'équipe,

voila mon soucis du jour:

j'ai un champ avec l'adresse mail de mon contact;
en faisant un double click, j'aimerais bien ouvrir un
nouveau mail.

ci-joint, le début de code avec lequel je tente de
réaliser cela:


Private Sub Cmail_DblClick(Cancel As Integer)
Dim admail As String

admail = "mailto:" & "[cmail]"
DoCmd.RunCommand admail


End Sub

....ou me gourre-je?

d'avance merci et bonne journée,

Frederic


.



Avatar
fth
Salut,

Le champs [cname] est le champ ou j'encode l'adresse email

Bàt,

Frederic
"pierref" wrote in message
news:75a701c430f2$485d4ef0$
c'est quoi le champ en question ?
en tout cas pas de guillements autour du champ.

je crois que ca marche si tu fais :

admail = "mailto:" & [cmail]
shell admail

-----Message d'origine-----
Bonjour l'équipe,

voila mon soucis du jour:

j'ai un champ avec l'adresse mail de mon contact;
en faisant un double click, j'aimerais bien ouvrir un
nouveau mail.

ci-joint, le début de code avec lequel je tente de
réaliser cela:


Private Sub Cmail_DblClick(Cancel As Integer)
Dim admail As String

admail = "mailto:" & "[cmail]"
DoCmd.RunCommand admail


End Sub

....ou me gourre-je?

d'avance merci et bonne journée,

Frederic


.



Avatar
pierref
ok

ca marche pas en passant par le shell ?
je trouve ca simple et ca prend la messagerie par défaut.

++

-----Message d'origine-----
Salut,

Le champs [cname] est le champ ou j'encode l'adresse email

Bàt,

Frederic
"pierref" wrote in
message

news:75a701c430f2$485d4ef0$
c'est quoi le champ en question ?
en tout cas pas de guillements autour du champ.

je crois que ca marche si tu fais :

admail = "mailto:" & [cmail]
shell admail

-----Message d'origine-----
Bonjour l'équipe,

voila mon soucis du jour:

j'ai un champ avec l'adresse mail de mon contact;
en faisant un double click, j'aimerais bien ouvrir un
nouveau mail.

ci-joint, le début de code avec lequel je tente de
réaliser cela:


Private Sub Cmail_DblClick(Cancel As Integer)
Dim admail As String

admail = "mailto:" & "[cmail]"
DoCmd.RunCommand admail


End Sub

....ou me gourre-je?

d'avance merci et bonne journée,

Frederic


.




.




Avatar
fth
Re salut,

j'ai comme message d'erreur "file not found"...

mon champ cmail n'est pas un fichier mais juste l'adresse mail du contact

peut etre y a t'il une autre solution que "shell" ?

D'avace merci

Frederic

"pierref" wrote in message
news:753301c430f8$7f243b00$
ok

ca marche pas en passant par le shell ?
je trouve ca simple et ca prend la messagerie par défaut.

++

-----Message d'origine-----
Salut,

Le champs [cname] est le champ ou j'encode l'adresse email

Bàt,

Frederic
"pierref" wrote in
message

news:75a701c430f2$485d4ef0$
c'est quoi le champ en question ?
en tout cas pas de guillements autour du champ.

je crois que ca marche si tu fais :

admail = "mailto:" & [cmail]
shell admail

-----Message d'origine-----
Bonjour l'équipe,

voila mon soucis du jour:

j'ai un champ avec l'adresse mail de mon contact;
en faisant un double click, j'aimerais bien ouvrir un
nouveau mail.

ci-joint, le début de code avec lequel je tente de
réaliser cela:


Private Sub Cmail_DblClick(Cancel As Integer)
Dim admail As String

admail = "mailto:" & "[cmail]"
DoCmd.RunCommand admail


End Sub

....ou me gourre-je?

d'avance merci et bonne journée,

Frederic


.




.




Avatar
pierref
Moi, je fais ca et ca marche.
admail = "mailto:" & [cmail]
shell admail

c'est peut etre ton champs qui va pas...
c'est une zone de texte ou un champ de table ?
as-tu vérifié la valeur de admail ?

par exemple,ca marche si tu fais :
shell "mailto:"

il faut donc que [cmail] renvoie bien

tiens moi au courant

a+


-----Message d'origine-----
Re salut,

j'ai comme message d'erreur "file not found"...

mon champ cmail n'est pas un fichier mais juste l'adresse
mail du contact


peut etre y a t'il une autre solution que "shell" ?

D'avace merci

Frederic

"pierref" wrote in
message

news:753301c430f8$7f243b00$
ok

ca marche pas en passant par le shell ?
je trouve ca simple et ca prend la messagerie par défaut.

++

-----Message d'origine-----
Salut,

Le champs [cname] est le champ ou j'encode l'adresse
email



Bàt,

Frederic
"pierref" wrote in
message

news:75a701c430f2$485d4ef0$
c'est quoi le champ en question ?
en tout cas pas de guillements autour du champ.

je crois que ca marche si tu fais :

admail = "mailto:" & [cmail]
shell admail

-----Message d'origine-----
Bonjour l'équipe,

voila mon soucis du jour:

j'ai un champ avec l'adresse mail de mon contact;
en faisant un double click, j'aimerais bien ouvrir un
nouveau mail.

ci-joint, le début de code avec lequel je tente de
réaliser cela:


Private Sub Cmail_DblClick(Cancel As Integer)
Dim admail As String

admail = "mailto:" & "[cmail]"
DoCmd.RunCommand admail


End Sub

....ou me gourre-je?

d'avance merci et bonne journée,

Frederic


.




.




.





Avatar
pierref
erreur de ma part.
excuse moi de t'avoir induit en erreur.
j'etais persuadé que ca marchait et apres test, je me suis
gouré.

désolé et bon courage.

ps : j'ai testé le code qu'on t'as donné dans l'autre
message et je n'arrive pas non plus a faire en sorte
d'ouvrir juste outlook.

tu peux par contre faire :
shell "outlook"

mais je sais pas si on peut lui faire passer l'email en
parametre...


-----Message d'origine-----
Re salut,

j'ai comme message d'erreur "file not found"...

mon champ cmail n'est pas un fichier mais juste l'adresse
mail du contact


peut etre y a t'il une autre solution que "shell" ?

D'avace merci

Frederic

"pierref" wrote in
message

news:753301c430f8$7f243b00$
ok

ca marche pas en passant par le shell ?
je trouve ca simple et ca prend la messagerie par défaut.

++

-----Message d'origine-----
Salut,

Le champs [cname] est le champ ou j'encode l'adresse
email



Bàt,

Frederic
"pierref" wrote in
message

news:75a701c430f2$485d4ef0$
c'est quoi le champ en question ?
en tout cas pas de guillements autour du champ.

je crois que ca marche si tu fais :

admail = "mailto:" & [cmail]
shell admail

-----Message d'origine-----
Bonjour l'équipe,

voila mon soucis du jour:

j'ai un champ avec l'adresse mail de mon contact;
en faisant un double click, j'aimerais bien ouvrir un
nouveau mail.

ci-joint, le début de code avec lequel je tente de
réaliser cela:


Private Sub Cmail_DblClick(Cancel As Integer)
Dim admail As String

admail = "mailto:" & "[cmail]"
DoCmd.RunCommand admail


End Sub

....ou me gourre-je?

d'avance merci et bonne journée,

Frederic


.




.




.