OVH Cloud OVH Cloud

Lien access vers outllook

5 réponses
Avatar
agnes
Bonjour,

je souhaite à partir de ma fiche contact envoyer un mail à un contact. J'ai
un champ Mail de type texte (lien hypertexte il faut ajouter le symbole #
..... #) or ce n'est pas partique car dès que l'on clic dessus il rajoute
automatiquement des # de partout.

Il faudrait que dès je clis sur l'adresse mail, outllook2003 s'ouvre
automatiquement.

Je vous remercie par avance de votre aide

A bientôt

AGNES

5 réponses

Avatar
Tisane
Bonjour Agnes,

je souhaite à partir de ma fiche contact envoyer un mail à un
contact. J'ai un champ Mail de type texte (lien hypertexte il faut
ajouter le symbole # ..... #) or ce n'est pas partique car dès que
l'on clic dessus il rajoute automatiquement des # de partout.
Il faudrait que dès je clis sur l'adresse mail, outllook2003 s'ouvre
automatiquement.


Une méthode simple :
l'adresse e-mail doit être saisie dans un champ de type Texte (oublie les #,
saisis les adresses normalement : par exemple).
- crée un bouton de commande (par exemple [@] ) qui peut remplacer
l'étiquette du champ
- sur sa propriété événementielle "Sur clic", copie et adapte le code
suivant :

Private Sub Bt_Email_Click()
On Error Resume Next
Bt_Email.HyperlinkAddress = "mailto: " & Me!Champ_Email
End Sub

Cela ouvrira Outlook et placera l'adresse e-mail dans la zone du
destinataire.
--
Tisane

Avatar
agnes
désolée

j'ai mis le code derrière un bouton.
lorsque je l'exécute outlook ne s'ouvre pas.
je l'ai exécuté pas à pas sur "mailto: " & Me.MailContact je retrouve
"mailto : " d'accord
sur Bt_Email.HyperlinkAddress il me marque <hors du contexte>

il me manque peut être un paramétrage, une Dll, je ne sais pas .

Merci quand même

agnes


Bonjour Agnes,

je souhaite à partir de ma fiche contact envoyer un mail à un
contact. J'ai un champ Mail de type texte (lien hypertexte il faut
ajouter le symbole # ..... #) or ce n'est pas partique car dès que
l'on clic dessus il rajoute automatiquement des # de partout.
Il faudrait que dès je clis sur l'adresse mail, outllook2003 s'ouvre
automatiquement.


Une méthode simple :
l'adresse e-mail doit être saisie dans un champ de type Texte (oublie les #,
saisis les adresses normalement : par exemple).
- crée un bouton de commande (par exemple [@] ) qui peut remplacer
l'étiquette du champ
- sur sa propriété événementielle "Sur clic", copie et adapte le code
suivant :

Private Sub Bt_Email_Click()
On Error Resume Next
Bt_Email.HyperlinkAddress = "mailto: " & Me!Champ_Email
End Sub

Cela ouvrira Outlook et placera l'adresse e-mail dans la zone du
destinataire.
--
Tisane





Avatar
Tisane
j'ai mis le code derrière un bouton.
lorsque je l'exécute outlook ne s'ouvre pas.
je l'ai exécuté pas à pas sur "mailto: " & Me.MailContact je retrouve
"mailto : " d'accord
sur Bt_Email.HyperlinkAddress il me marque <hors du contexte>
il me manque peut être un paramétrage, une Dll, je ne sais pas .


En effet, dans la fenêtre de l'éditeur VB, menu Outils | Références, vérifie
que Microsoft Outlook xx Object Library soit bien cochée.

--
Tisane


Bonjour Agnes,

je souhaite à partir de ma fiche contact envoyer un mail à un
contact. J'ai un champ Mail de type texte (lien hypertexte il faut
ajouter le symbole # ..... #) or ce n'est pas partique car dès que
l'on clic dessus il rajoute automatiquement des # de partout.
Il faudrait que dès je clis sur l'adresse mail, outllook2003 s'ouvre
automatiquement.


Une méthode simple :
l'adresse e-mail doit être saisie dans un champ de type Texte
(oublie les #, saisis les adresses normalement : par
exemple). - crée un bouton de commande (par exemple [@] ) qui peut
remplacer l'étiquette du champ
- sur sa propriété événementielle "Sur clic", copie et adapte le code
suivant :

Private Sub Bt_Email_Click()
On Error Resume Next
Bt_Email.HyperlinkAddress = "mailto: " & Me!Champ_Email
End Sub

Cela ouvrira Outlook et placera l'adresse e-mail dans la zone du
destinataire.
--
Tisane





Avatar
Tisane
j'ai mis le code derrière un bouton.
lorsque je l'exécute outlook ne s'ouvre pas.
je l'ai exécuté pas à pas sur "mailto: " & Me.MailContact je retrouve
"mailto : " d'accord
sur Bt_Email.HyperlinkAddress il me marque <hors du contexte>


En relisant ton message (plus attentivement ;-), je m'aperçois que tu n'as
peut-être pas remplacé "Bt_Email" par le nom de ton bouton.
--
Tisane


Bonjour Agnes,

je souhaite à partir de ma fiche contact envoyer un mail à un
contact. J'ai un champ Mail de type texte (lien hypertexte il faut
ajouter le symbole # ..... #) or ce n'est pas partique car dès que
l'on clic dessus il rajoute automatiquement des # de partout.
Il faudrait que dès je clis sur l'adresse mail, outllook2003 s'ouvre
automatiquement.


Une méthode simple :
l'adresse e-mail doit être saisie dans un champ de type Texte
(oublie les #, saisis les adresses normalement : par
exemple). - crée un bouton de commande (par exemple [@] ) qui peut
remplacer l'étiquette du champ
- sur sa propriété événementielle "Sur clic", copie et adapte le code
suivant :

Private Sub Bt_Email_Click()
On Error Resume Next
Bt_Email.HyperlinkAddress = "mailto: " & Me!Champ_Email
End Sub

Cela ouvrira Outlook et placera l'adresse e-mail dans la zone du
destinataire.
--
Tisane





Avatar
agnes
c'est bon. mille mercis


j'ai mis le code derrière un bouton.
lorsque je l'exécute outlook ne s'ouvre pas.
je l'ai exécuté pas à pas sur "mailto: " & Me.MailContact je retrouve
"mailto : " d'accord
sur Bt_Email.HyperlinkAddress il me marque <hors du contexte>


En relisant ton message (plus attentivement ;-), je m'aperçois que tu n'as
peut-être pas remplacé "Bt_Email" par le nom de ton bouton.
--
Tisane


Bonjour Agnes,

je souhaite à partir de ma fiche contact envoyer un mail à un
contact. J'ai un champ Mail de type texte (lien hypertexte il faut
ajouter le symbole # ..... #) or ce n'est pas partique car dès que
l'on clic dessus il rajoute automatiquement des # de partout.
Il faudrait que dès je clis sur l'adresse mail, outllook2003 s'ouvre
automatiquement.


Une méthode simple :
l'adresse e-mail doit être saisie dans un champ de type Texte
(oublie les #, saisis les adresses normalement : par
exemple). - crée un bouton de commande (par exemple [@] ) qui peut
remplacer l'étiquette du champ
- sur sa propriété événementielle "Sur clic", copie et adapte le code
suivant :

Private Sub Bt_Email_Click()
On Error Resume Next
Bt_Email.HyperlinkAddress = "mailto: " & Me!Champ_Email
End Sub

Cela ouvrira Outlook et placera l'adresse e-mail dans la zone du
destinataire.
--
Tisane