J'ai cr=E9e un champ hypertexte dans une table afin d'y=20
enregistrer des Emails.
Depuis le formulaire qui me permet de saisir ces Emails=20
je voudrai que le lien m'active mon logiciel de=20
messagerie et me pr=E9sente la boite d'envoi. Hors c'est le=20
logicile de navigation internet qui est activ=E9!!!
Il y a toujour http: d'ajout=E9.
comment faire pour avoir un Mailto =E0 la place .
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
www.eztree-msdn.com \(Laurent Jordi\) Enlever le s à infos pour me contacter par mail
Salut...
Essaye ça (Client est le champ hyper text)
Private Sub Client_Exit(Cancel As Integer) If Len(Client) > 7 Then If Left(Client, 7) <> "mailto:" And InStr(1, Client, "@") > 0 Then Client = "mailto:" & Client End If ElseIf Client <> "" Then If InStr(1, Client, "@") > 0 Then Client = "mailto:" & Client End If End If End Sub
@+
LJ
"Erick" a écrit dans le message de news:132501c43b1c$712b1b30$ J'ai crée un champ hypertexte dans une table afin d'y enregistrer des Emails. Depuis le formulaire qui me permet de saisir ces Emails je voudrai que le lien m'active mon logiciel de messagerie et me présente la boite d'envoi. Hors c'est le logicile de navigation internet qui est activé!!! Il y a toujour http: d'ajouté. comment faire pour avoir un Mailto à la place .
Merci à vous
Salut...
Essaye ça (Client est le champ hyper text)
Private Sub Client_Exit(Cancel As Integer)
If Len(Client) > 7 Then
If Left(Client, 7) <> "mailto:" And InStr(1, Client, "@") > 0 Then
Client = "mailto:" & Client
End If
ElseIf Client <> "" Then
If InStr(1, Client, "@") > 0 Then
Client = "mailto:" & Client
End If
End If
End Sub
@+
LJ
"Erick" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:132501c43b1c$712b1b30$3501280a@phx.gbl...
J'ai crée un champ hypertexte dans une table afin d'y
enregistrer des Emails.
Depuis le formulaire qui me permet de saisir ces Emails
je voudrai que le lien m'active mon logiciel de
messagerie et me présente la boite d'envoi. Hors c'est le
logicile de navigation internet qui est activé!!!
Il y a toujour http: d'ajouté.
comment faire pour avoir un Mailto à la place .
Private Sub Client_Exit(Cancel As Integer) If Len(Client) > 7 Then If Left(Client, 7) <> "mailto:" And InStr(1, Client, "@") > 0 Then Client = "mailto:" & Client End If ElseIf Client <> "" Then If InStr(1, Client, "@") > 0 Then Client = "mailto:" & Client End If End If End Sub
@+
LJ
"Erick" a écrit dans le message de news:132501c43b1c$712b1b30$ J'ai crée un champ hypertexte dans une table afin d'y enregistrer des Emails. Depuis le formulaire qui me permet de saisir ces Emails je voudrai que le lien m'active mon logiciel de messagerie et me présente la boite d'envoi. Hors c'est le logicile de navigation internet qui est activé!!! Il y a toujour http: d'ajouté. comment faire pour avoir un Mailto à la place .
