Bonjour républicain à tous les cytoyens développeurs
Pour adresser un email je dispose
d'un champ texte dans lequel est stocké l'adresse émail : "Tiers_Email"
d'un bouton "AdresserEmail"
Au bouton est associé le code suivant :
Private Sub AdresserEmail_Click()
Dim HLK As Hyperlink
Set HLK = AdresserEmail.Hyperlink
HLK.Address = "mailto:" & Me!Tiers_Email
Set HLK = Nothing
End Sub
ça marche, mais ce qui me gêne, c'est que :
1
Si le champ est vide, il lance cependant la messagerie apr défaut
(Outlook express)
2
Si dans le champ "Tiers_Email", il y a une adresse toto@123.fr
il appelle bien la messagerie avec l'adresse toto@123.fr
mais une fois toto@123.fr supprimé du champ,
si on clique à nouveau sur le bouton "AdresserEmail"
il continue à appeller la messagerie avec l'adresse toto@123.fr !!!
Comment faire pour supprimer ces petits inconvénients
Merci par avance pour votre aide
Républicaines salutations
Paul Florent
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
il faut du code un peu plus complet pour traiter tous les cas. tu as un exemple sur la page : http://officesystem.access.free.fr/ex_les_champs_e_mail.htm tu peux rajouter une ligne pour tester la valeur nulle de l'adresse.
if Isnull(Me.E_Mail) Then exit sub Set HLK = Cmd_E_Mail.Hyperlink If InStr(1, Me.E_Mail, "@") > 0 Then
-- @+ Raymond Access MVP http://www.OfficeSystemAccess.com/ http://officesystem.access.over-blog.com/ http://officesystem.access.free.fr/wiki/ Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office ! http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"Florent" a écrit dans le message de news:
| Bonjour républicain à tous les cytoyens développeurs | | Pour adresser un email je dispose | d'un champ texte dans lequel est stocké l'adresse émail : "Tiers_Email" | d'un bouton "AdresserEmail" | Au bouton est associé le code suivant : | | Private Sub AdresserEmail_Click() | Dim HLK As Hyperlink | Set HLK = AdresserEmail.Hyperlink | HLK.Address = "mailto:" & Me!Tiers_Email | Set HLK = Nothing | End Sub | | ça marche, mais ce qui me gêne, c'est que : | | 1 | Si le champ est vide, il lance cependant la messagerie apr défaut | (Outlook express) | 2 | Si dans le champ "Tiers_Email", il y a une adresse | il appelle bien la messagerie avec l'adresse | mais une fois supprimé du champ, | si on clique à nouveau sur le bouton "AdresserEmail" | il continue à appeller la messagerie avec l'adresse !!! | | Comment faire pour supprimer ces petits inconvénients | Merci par avance pour votre aide | Républicaines salutations | Paul Florent |
Bonjour.
il faut du code un peu plus complet pour traiter tous les cas. tu as un
exemple sur la page :
http://officesystem.access.free.fr/ex_les_champs_e_mail.htm
tu peux rajouter une ligne pour tester la valeur nulle de l'adresse.
if Isnull(Me.E_Mail) Then exit sub
Set HLK = Cmd_E_Mail.Hyperlink
If InStr(1, Me.E_Mail, "@") > 0 Then
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"Florent" <paul@florent.fr> a écrit dans le message de news:
ECCFBBA6-D8B4-4F24-810A-D34C28B9E44E@microsoft.com...
| Bonjour républicain à tous les cytoyens développeurs
|
| Pour adresser un email je dispose
| d'un champ texte dans lequel est stocké l'adresse émail : "Tiers_Email"
| d'un bouton "AdresserEmail"
| Au bouton est associé le code suivant :
|
| Private Sub AdresserEmail_Click()
| Dim HLK As Hyperlink
| Set HLK = AdresserEmail.Hyperlink
| HLK.Address = "mailto:" & Me!Tiers_Email
| Set HLK = Nothing
| End Sub
|
| ça marche, mais ce qui me gêne, c'est que :
|
| 1
| Si le champ est vide, il lance cependant la messagerie apr défaut
| (Outlook express)
| 2
| Si dans le champ "Tiers_Email", il y a une adresse toto@123.fr
| il appelle bien la messagerie avec l'adresse toto@123.fr
| mais une fois toto@123.fr supprimé du champ,
| si on clique à nouveau sur le bouton "AdresserEmail"
| il continue à appeller la messagerie avec l'adresse toto@123.fr !!!
|
| Comment faire pour supprimer ces petits inconvénients
| Merci par avance pour votre aide
| Républicaines salutations
| Paul Florent
|
il faut du code un peu plus complet pour traiter tous les cas. tu as un exemple sur la page : http://officesystem.access.free.fr/ex_les_champs_e_mail.htm tu peux rajouter une ligne pour tester la valeur nulle de l'adresse.
if Isnull(Me.E_Mail) Then exit sub Set HLK = Cmd_E_Mail.Hyperlink If InStr(1, Me.E_Mail, "@") > 0 Then
-- @+ Raymond Access MVP http://www.OfficeSystemAccess.com/ http://officesystem.access.over-blog.com/ http://officesystem.access.free.fr/wiki/ Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office ! http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"Florent" a écrit dans le message de news:
| Bonjour républicain à tous les cytoyens développeurs | | Pour adresser un email je dispose | d'un champ texte dans lequel est stocké l'adresse émail : "Tiers_Email" | d'un bouton "AdresserEmail" | Au bouton est associé le code suivant : | | Private Sub AdresserEmail_Click() | Dim HLK As Hyperlink | Set HLK = AdresserEmail.Hyperlink | HLK.Address = "mailto:" & Me!Tiers_Email | Set HLK = Nothing | End Sub | | ça marche, mais ce qui me gêne, c'est que : | | 1 | Si le champ est vide, il lance cependant la messagerie apr défaut | (Outlook express) | 2 | Si dans le champ "Tiers_Email", il y a une adresse | il appelle bien la messagerie avec l'adresse | mais une fois supprimé du champ, | si on clique à nouveau sur le bouton "AdresserEmail" | il continue à appeller la messagerie avec l'adresse !!! | | Comment faire pour supprimer ces petits inconvénients | Merci par avance pour votre aide | Républicaines salutations | Paul Florent |
Florent
Merci Raymond, je n'ai pas encore mis en oeuvre, mais ça devrait marcher A+ Paul
Merci Raymond, je n'ai pas encore mis en oeuvre, mais ça devrait marcher
A+
Paul
Merci Raymond, je n'ai pas encore mis en oeuvre, mais ça devrait marcher A+ Paul
Florent
Bonjour à tous. Raymond, (je réagis peut être un peu tard !) J'ai placé dans le code la ligne :
if Isnull(Me.E_Mail) Then exit subl
la ligne teste sans doute la valeur nulle, mais il se passe la chose suivante : dans mon champ Tiers_Email, j'ai l'adresse je clique sur le bouton, la messagerie se charge avec l'adresse Je ferme la messgarie, je supprime l'adresse du champ je clique sur le bouton et la messagerie se charge toujours avec l'adresse
et c'est ce que souhaiterais éviter ! j'ai fais différents essais, mais sans succès !!!
Pour vérifier la validité de l'adresse email, j'ai fait : (mon champ est réservé aux adresses émail)
Private Sub AdresserEmail_Click() Dim PA As Long PA = InStr(1, Me!Tiers_Email, "@")
If PA > 1 And InStr(PA, Me!Tiers_Email, ".") > PA + 1 Then Dim HLK As Hyperlink Set HLK = AdresserEmail.Hyperlink HLK.Address = "mailto:" & Me!Tiers_Email Else MsgBox ("L'adresse émail n'est pas valable"), , CurrentDb.Properties("AppTitle") End If Set HLK = Nothing End Sub
Dans ce cas, et après suppression de l'adresse émail, je reçois bien le message "L'adresse émail n'est pas valable", mais après il charge cependant la messagerie avec l'adresse précédente !
J'aimerais éviter cet inconvénient Merci par avance pour ton aide Paul
Bonjour à tous.
Raymond, (je réagis peut être un peu tard !)
J'ai placé dans le code la ligne :
if Isnull(Me.E_Mail) Then exit subl
la ligne teste sans doute la valeur nulle,
mais il se passe la chose suivante :
dans mon champ Tiers_Email, j'ai l'adresse abc@def.fr
je clique sur le bouton, la messagerie se charge avec l'adresse abc@def.fr
Je ferme la messgarie, je supprime l'adresse du champ
je clique sur le bouton et la messagerie se charge toujours avec l'adresse
abc@def.fr
et c'est ce que souhaiterais éviter !
j'ai fais différents essais, mais sans succès !!!
Pour vérifier la validité de l'adresse email, j'ai fait :
(mon champ est réservé aux adresses émail)
Private Sub AdresserEmail_Click()
Dim PA As Long
PA = InStr(1, Me!Tiers_Email, "@")
If PA > 1 And InStr(PA, Me!Tiers_Email, ".") > PA + 1 Then
Dim HLK As Hyperlink
Set HLK = AdresserEmail.Hyperlink
HLK.Address = "mailto:" & Me!Tiers_Email
Else
MsgBox ("L'adresse émail n'est pas valable"), ,
CurrentDb.Properties("AppTitle")
End If
Set HLK = Nothing
End Sub
Dans ce cas, et après suppression de l'adresse émail,
je reçois bien le message "L'adresse émail n'est pas valable",
mais après il charge cependant la messagerie avec l'adresse précédente !
J'aimerais éviter cet inconvénient
Merci par avance pour ton aide
Paul
Bonjour à tous. Raymond, (je réagis peut être un peu tard !) J'ai placé dans le code la ligne :
if Isnull(Me.E_Mail) Then exit subl
la ligne teste sans doute la valeur nulle, mais il se passe la chose suivante : dans mon champ Tiers_Email, j'ai l'adresse je clique sur le bouton, la messagerie se charge avec l'adresse Je ferme la messgarie, je supprime l'adresse du champ je clique sur le bouton et la messagerie se charge toujours avec l'adresse
et c'est ce que souhaiterais éviter ! j'ai fais différents essais, mais sans succès !!!
Pour vérifier la validité de l'adresse email, j'ai fait : (mon champ est réservé aux adresses émail)
Private Sub AdresserEmail_Click() Dim PA As Long PA = InStr(1, Me!Tiers_Email, "@")
If PA > 1 And InStr(PA, Me!Tiers_Email, ".") > PA + 1 Then Dim HLK As Hyperlink Set HLK = AdresserEmail.Hyperlink HLK.Address = "mailto:" & Me!Tiers_Email Else MsgBox ("L'adresse émail n'est pas valable"), , CurrentDb.Properties("AppTitle") End If Set HLK = Nothing End Sub
Dans ce cas, et après suppression de l'adresse émail, je reçois bien le message "L'adresse émail n'est pas valable", mais après il charge cependant la messagerie avec l'adresse précédente !
J'aimerais éviter cet inconvénient Merci par avance pour ton aide Paul
jerome crevecoeur
Bonjour,
dans ce cas ton champ n'est plus nul mais vide moi je fais: if Len(Me.E_Mail & "")=0 Then exit sub
Cordialement
PS: je suis certain que mon message s'affichera après celui de Raymond. D'ailleurs Raymond et ces devoirs de vacances?
Bonjour à tous. Raymond, (je réagis peut être un peu tard !) J'ai placé dans le code la ligne :
if Isnull(Me.E_Mail) Then exit subl
la ligne teste sans doute la valeur nulle, mais il se passe la chose suivante : dans mon champ Tiers_Email, j'ai l'adresse je clique sur le bouton, la messagerie se charge avec l'adresse .fr Je ferme la messgarie, je supprime l'adresse du champ je clique sur le bouton et la messagerie se charge toujours avec l'adresse et c'est ce que souhaiterais éviter ! j'ai fais différents essais, mais sans succès !!!
Pour vérifier la validité de l'adresse email, j'ai fait : (mon champ est réservé aux adresses émail)
Private Sub AdresserEmail_Click() Dim PA As Long PA = InStr(1, Me!Tiers_Email, "@")
If PA > 1 And InStr(PA, Me!Tiers_Email, ".") > PA + 1 Then Dim HLK As Hyperlink Set HLK = AdresserEmail.Hyperlink HLK.Address = "mailto:" & Me!Tiers_Email Else MsgBox ("L'adresse émail n'est pas valable"), , CurrentDb.Properties("AppTitle") End If Set HLK = Nothing End Sub
Dans ce cas, et après suppression de l'adresse émail, je reçois bien le message "L'adresse émail n'est pas valable", mais après il charge cependant la messagerie avec l'adresse précé dente !
J'aimerais éviter cet inconvénient Merci par avance pour ton aide Paul
Bonjour,
dans ce cas ton champ n'est plus nul mais vide moi je fais:
if Len(Me.E_Mail & "")=0 Then exit sub
Cordialement
PS: je suis certain que mon message s'affichera après celui de Raymond.
D'ailleurs Raymond et ces devoirs de vacances?
Bonjour à tous.
Raymond, (je réagis peut être un peu tard !)
J'ai placé dans le code la ligne :
if Isnull(Me.E_Mail) Then exit subl
la ligne teste sans doute la valeur nulle,
mais il se passe la chose suivante :
dans mon champ Tiers_Email, j'ai l'adresse abc@def.fr
je clique sur le bouton, la messagerie se charge avec l'adresse abc@def .fr
Je ferme la messgarie, je supprime l'adresse du champ
je clique sur le bouton et la messagerie se charge toujours avec
l'adresse abc@def.fr
et c'est ce que souhaiterais éviter !
j'ai fais différents essais, mais sans succès !!!
Pour vérifier la validité de l'adresse email, j'ai fait :
(mon champ est réservé aux adresses émail)
Private Sub AdresserEmail_Click()
Dim PA As Long
PA = InStr(1, Me!Tiers_Email, "@")
If PA > 1 And InStr(PA, Me!Tiers_Email, ".") > PA + 1 Then
Dim HLK As Hyperlink
Set HLK = AdresserEmail.Hyperlink
HLK.Address = "mailto:" & Me!Tiers_Email
Else
MsgBox ("L'adresse émail n'est pas valable"), ,
CurrentDb.Properties("AppTitle")
End If
Set HLK = Nothing
End Sub
Dans ce cas, et après suppression de l'adresse émail,
je reçois bien le message "L'adresse émail n'est pas valable",
mais après il charge cependant la messagerie avec l'adresse précé dente !
J'aimerais éviter cet inconvénient
Merci par avance pour ton aide
Paul
dans ce cas ton champ n'est plus nul mais vide moi je fais: if Len(Me.E_Mail & "")=0 Then exit sub
Cordialement
PS: je suis certain que mon message s'affichera après celui de Raymond. D'ailleurs Raymond et ces devoirs de vacances?
Bonjour à tous. Raymond, (je réagis peut être un peu tard !) J'ai placé dans le code la ligne :
if Isnull(Me.E_Mail) Then exit subl
la ligne teste sans doute la valeur nulle, mais il se passe la chose suivante : dans mon champ Tiers_Email, j'ai l'adresse je clique sur le bouton, la messagerie se charge avec l'adresse .fr Je ferme la messgarie, je supprime l'adresse du champ je clique sur le bouton et la messagerie se charge toujours avec l'adresse et c'est ce que souhaiterais éviter ! j'ai fais différents essais, mais sans succès !!!
Pour vérifier la validité de l'adresse email, j'ai fait : (mon champ est réservé aux adresses émail)
Private Sub AdresserEmail_Click() Dim PA As Long PA = InStr(1, Me!Tiers_Email, "@")
If PA > 1 And InStr(PA, Me!Tiers_Email, ".") > PA + 1 Then Dim HLK As Hyperlink Set HLK = AdresserEmail.Hyperlink HLK.Address = "mailto:" & Me!Tiers_Email Else MsgBox ("L'adresse émail n'est pas valable"), , CurrentDb.Properties("AppTitle") End If Set HLK = Nothing End Sub
Dans ce cas, et après suppression de l'adresse émail, je reçois bien le message "L'adresse émail n'est pas valable", mais après il charge cependant la messagerie avec l'adresse précé dente !
J'aimerais éviter cet inconvénient Merci par avance pour ton aide Paul
Florent
Merci de t'être interréssé à mon problème mais ça n'a rien réglé Paul
Merci de t'être interréssé à mon problème
mais ça n'a rien réglé
Paul
Essaye de mettre ça et ensuite d'executer pas à pas (Touche F8) Que vaut le champ Me.E_mail?
Msgbox "[" & Me.E_Mail & "]" Stop
If Len(Me.E_Mail & "")=0 Then exit sub End if
Merci de t'être interréssé à mon problème mais ça n'a rien réglé Paul
Raymond [mvp]
Je reviens.
Comment le champ a-t-il été vidé ? pour supprimer un lien hypertexte, passer par le menu contextuel-click droit-, lien hypertexte, supprimer le lien. ne pas supprimer le lien en faisant suppr dans le contrôle.
-- @+ Raymond Access MVP http://www.OfficeSystemAccess.com/ http://officesystem.access.over-blog.com/ http://officesystem.access.free.fr/wiki/ Pour débuter sur le forum: http://www.mpfa.info/
Cet été, j'en ai rien à coder, je me forme : les devoirs de vacances http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99
"jerome crevecoeur" a écrit dans le message de news: % Essaye de mettre ça et ensuite d'executer pas à pas (Touche F8) Que vaut le champ Me.E_mail?
Msgbox "[" & Me.E_Mail & "]" Stop
If Len(Me.E_Mail & "")=0 Then exit sub End if
Merci de t'être interréssé à mon problème mais ça n'a rien réglé Paul
Je reviens.
Comment le champ a-t-il été vidé ?
pour supprimer un lien hypertexte, passer par le menu contextuel-click
droit-, lien hypertexte, supprimer le lien.
ne pas supprimer le lien en faisant suppr dans le contrôle.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/
Cet été, j'en ai rien à coder, je me forme : les devoirs de vacances
http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99
"jerome crevecoeur" <spamailleurs.crevecoeur.spamailleurs.jerome@wanadoo.fr>
a écrit dans le message de news: %23RJnvKRyHHA.1568@TK2MSFTNGP05.phx.gbl...
Essaye de mettre ça et ensuite d'executer pas à pas (Touche F8)
Que vaut le champ Me.E_mail?
Msgbox "[" & Me.E_Mail & "]"
Stop
If Len(Me.E_Mail & "")=0 Then
exit sub
End if
Merci de t'être interréssé à mon problème
mais ça n'a rien réglé
Paul
Comment le champ a-t-il été vidé ? pour supprimer un lien hypertexte, passer par le menu contextuel-click droit-, lien hypertexte, supprimer le lien. ne pas supprimer le lien en faisant suppr dans le contrôle.
-- @+ Raymond Access MVP http://www.OfficeSystemAccess.com/ http://officesystem.access.over-blog.com/ http://officesystem.access.free.fr/wiki/ Pour débuter sur le forum: http://www.mpfa.info/
Cet été, j'en ai rien à coder, je me forme : les devoirs de vacances http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99
"jerome crevecoeur" a écrit dans le message de news: % Essaye de mettre ça et ensuite d'executer pas à pas (Touche F8) Que vaut le champ Me.E_mail?
Msgbox "[" & Me.E_Mail & "]" Stop
If Len(Me.E_Mail & "")=0 Then exit sub End if
Merci de t'être interréssé à mon problème mais ça n'a rien réglé Paul