Envoyer un message Outlook

Bonjour,

Tu peux essayer ceci :

Private Sub BoutonEMail_Click()
'Ouvre l'application de messagerie par défaut

If Not (IsNull(Forms![TonForm]![LeChampCourriel])) Then

Application.FollowHyperlink "mailto:" & Forms![TonForm]![LeChampCourriel]

Else

MsgBox "Aucune adresse E-Mail enregistrée ! ", vbInformation, "Alerte"

End If

End Sub

Bonne journée.

Domi

Bonjour à tous
Dans un formulaire "contact" avec un champ adresse électronique, je
voudrais ajouter un bouton de commande qui ouvre un message Outlook avec
l'adresse électronique du contact affiché dans mon formulaire.
J'ai réussi à ouvrir l'onglet contact dans Outlook mais je bute sur le
message.
Merci de m'aider A+
Laurent Joyeux

Bonjour Domi,

merci pour ce script, il m'a été utile !

peux t'on ajouter des champs objet, contenu du message ?
je n'arrive pas à trouver la commande dans le code VB.

merci d'avance
Julien

Bonjour,

Tu peux essayer ceci :

Private Sub BoutonEMail_Click()
'Ouvre l'application de messagerie par défaut

If Not (IsNull(Forms![TonForm]![LeChampCourriel])) Then

Application.FollowHyperlink "mailto:" & Forms![TonForm]![LeChampCourriel]

Else

MsgBox "Aucune adresse E-Mail enregistrée ! ", vbInformation, "Alerte"

End If

End Sub

Bonne journée.

Domi

Bonjour à tous
Dans un formulaire "contact" avec un champ adresse électronique, je
voudrais ajouter un bouton de commande qui ouvre un message Outlook avec
l'adresse électronique du contact affiché dans mon formulaire.
J'ai réussi à ouvrir l'onglet contact dans Outlook mais je bute sur le
message.
Merci de m'aider A+
Laurent Joyeux

Bonjour,
la méthode mailto pose des problèmes de retour de chariot.
Regarde les méthodes proposées ici :
http://www.3stone.be/access/articles.php?lng=fr&pgˆ

a toi de choisir entre mapi, cdo et automation
a+
--
Arnaud
-----------------------------------------
Vous êtes novice ? :
http://www.mpfa.info
-----------------------------------------


"Julien" <Julien@discussions.microsoft.com> a écrit dans le message de news: 46B0E061-D54A-4DB6-BA99-6D22C3DF3D1A@microsoft.com...

Bonjour Domi,

merci pour ce script, il m'a été utile !

peux t'on ajouter des champs objet, contenu du message ?
je n'arrive pas à trouver la commande dans le code VB.

merci d'avance
Julien

Bonjour,

Tu peux essayer ceci :

Private Sub BoutonEMail_Click()
'Ouvre l'application de messagerie par défaut

If Not (IsNull(Forms![TonForm]![LeChampCourriel])) Then

Application.FollowHyperlink "mailto:" & Forms![TonForm]![LeChampCourriel]

Else

MsgBox "Aucune adresse E-Mail enregistrée ! ", vbInformation, "Alerte"

End If

End Sub

Bonne journée.

Domi

Bonjour à tous
Dans un formulaire "contact" avec un champ adresse électronique, je
voudrais ajouter un bouton de commande qui ouvre un message Outlook avec
l'adresse électronique du contact affiché dans mon formulaire.
J'ai réussi à ouvrir l'onglet contact dans Outlook mais je bute sur le
message.
Merci de m'aider A+
Laurent Joyeux