Insérer adresse mail Gmail via VBA

Bonjour,

Je viens vers vous afin de pouvoir solutionner un petit problème que je viens de rencontrer sur une base de données existante qui fonctionne depuis quelques années grâce aux différentes aides reçues au moment de la conception de celle-ci.
Cette base fonctionne sur le principe suivant :
J'ai un formulaire d'accueil qui reprend différentes données sur les utilisateurs et qui permet à l'aide d'un bouton de commande de prendre contact par mail avec Outlook application avec tel utilisateur dont l'adresse mail figure sous un champ e mail.
Cette procédure fonctionne parfaitement.
Toutefois on m'a demandé d'ajouter un lien afin de prendre contact avec Gmail et voici mon code qui fonctionne très bien.
Gmail s'ouvre sur un nouveau message mais je n'arrive pas à trouver le code pour que l'adresse mail du contact(detinataire) se place automatiquement au bon endroit (destinataire).
Quelqu'un aurait-il une idée.
Un très grand merci pour votre aide.
Cordialement

Voici la partie code qui m'ouvre Gmail sur nouveau mail mais ce que j'aimerais donc c'est que l'adresse mail du destinataire sous le champ e mail vienne se placer au bon endroit :

Code:

---

1 2	If msgbox("Envoyer mail Gmail ?", vbYesNo + vbInformation, "ATTENTION") = vbYes Then Call Application.FollowHyperlink("https://mail.google.com/mail/u/1/#inbox?compose=new")

---

Bonjour,

Pour interagir avec un navigateur vous devez utiliser une bibliothèque.

https://arkham46.developpez.com/arti...b/?page=page_3

Avant que le pitoyable Google change sa politique d'accès on pouvait utiliser la bibliothèque CDO qui permettait de converser directement avec le serveur Gmail sans trop de contraintes.

Avec d'autres FAI la méthode CDO, plus accessible que de passer par un navigateur, fonctionne toujours.

Cordialement,

Bonjour Loufab,

Merci pour la réponse rapide et explicative et merci également d'avoir mis le code sous balise, j'avais omis.
Effectivement Google a renforcé sa sécurité mais conjointement rendu plus difficile l'accès.
Et bien je vais examiner mon souci à partir du lien proposé.

Encore merci pour votre temps disponible.
Je reviendrai vers vous pour information et que cela serve aux "forumeurs".
Cordialement

Bonjour,

Malheureusement ce lien ne m'a pas bcp aidé.
Puisque le code permet l'ouverture du gmail sur réception messages, n'y a t-il pas moyen de compléter ce code pour ouvrir gmail sur nouveau avec adresse mail du destinataire repris dans un champ e mail ?

Merci pour votre aide et votre temps disponible.

Code:

---

1 2	If msgbox("Envoyer mail Gmail ?", vbYesNo + vbInformation, "ATTENTION") = vbYes Then Call Application.FollowHyperlink("https://mail.google.com/mail/u/1/#inbox?compose=new" ... CODE A COMPLETER)

---

Pièce jointe 635903

bonsoir,
une solution ici
avec cette url à adapter:

Code:

---

https://mail.google.com/mail/?view=cm&fs=1&to=someone@example.com&su=SUBJECT&body=BODY&bcc=someone.else@example.com

---

Bonsoir Tee_grandbois,

Tout d'abord merci pour ta prompte réponse.

Et bien oui ça marche mais l'URL est à adapter comme écrit : Gmail s'ouvre bien sur nouveau mais uniquement avec CCi complété.
C'est déjà un grand progrès.

Je vais voir ce qu'il y a lieu de modifier/adapter pour ouverture sur nouveau avec l'adresse mail du destinataire (to ..).
Et je pense que la solution n'est pas loin et donc j'en ferai profiter les habitués du forum.
Je reviens sur le forum dès la solution trouvée; Enfin, j'espère :lol:

Super merci
Voici le code adapté

Code:

---

1 2	If msgbox("Envoyer mail Gmail ?", vbYesNo + vbInformation, "ATTENTION") = vbYes Then Call Application.FollowHyperlink("https://mail.google.com/mail/?view=cm&fs=1&to=someone@example.com&su=SUBJECT&body=BODY&bcc=someone.else@example.com")

---

je pensais que la solution serait simple à adapter, visiblement il n'en est rien :

Code:

---

1 2	If msgbox("Envoyer mail Gmail ?", vbYesNo + vbInformation, "ATTENTION") = vbYes Then Call Application.FollowHyperlink("https://mail.google.com/mail/?view=cm&fs=1&to=" & TonAdresse@mail)

---

Bonjour tee_grandbois,

Alors petite rectification : après nouvel essai; le premier code envoyé fonctionne bien tant pour l'adresse mail de l'expéditeur (to) que pour le destinataire sauf que j'avais mal libellé avec le "to".

Code:

---

1 2	If msgbox("Envoyer mail Gmail ?", vbYesNo + vbInformation, "ATTENTION") = vbYes Then Call Application.FollowHyperlink("https://mail.google.com/mail/?view=cm&fs=1&to=someone@example.com&su=SUBJECT&body=BODY&bcc=someone.else@example.com"

---

Par ailleurs, je n'ai pas dû fournir bcp d'efforts puisque le second code reçu fonctionne très bien également avec l'adresse du destinataire dans le code

Code:

---

&to=" &TonAdresse@gmail

---

.
Seulement pour cela marche, il faut absolument placer les guillements ".." ici il s'agissait

Code:

---

&to=" & "TonAdresse@gmail"

---

sinon erreur.
Voici donc le code complet avec les guillemets indispensables

Code:

---

1 2	If msgbox("Envoyer mail Gmail ?", vbYesNo + vbInformation, "ATTENTION") = vbYes Then Call Application.FollowHyperlink("https://mail.google.com/mail/?view=cm&fs=1&to=" & "TonAdresse@mail")

---

Seul problème restant à solutionner c'est que la fenêtre Gmail n'apparait plus lors de l'exécution de l'un ou l'autre code précédent. Ce qui est gênant si l'on ne veut finalement pas envoyer le mail et revenir à la fenêtre Gmail pour telle ou telle raison.
Je regarde à cela assez vite.
Super merci :bravo::bravo:

bonjour,

Citation:

---

Seulement pour cela marche, il faut absolument placer les guillements ".." ici il s'agissait

Code:

---

&to=" & "TonAdresse@gmail"

---

sinon erreur.
Voici donc le code complet avec les guillemets indispensables

---

Oui si c'est une adresse "en dur", mais tu passes par le contrôle d'un formulaire pour alimenter l'adresse du destinataire.
Dans cet exemple de code, j'utilise une variable mais ce serait pareil si c'était un contrôle (champ) du formulaire où les guillemets sont déjà inclus dans la chaîne:

Code:

---

1 2 3 4

Dim stAdrMail As String stAdrMail = "monadresse.mail@gmail.com" If MsgBox("Envoyer mail Gmail ?", vbYesNo + vbInformation, "ATTENTION") = vbYes Then _ Call Application.FollowHyperlink("https://mail.google.com/mail/?view=cm&fs=1&to=" & stAdrMail)

---

Citation:

---

Seul problème restant à solutionner c'est que la fenêtre Gmail n'apparait plus lors de l'exécution de l'un ou l'autre code précédent.

---

c'est étonnant, j'ai bien une fenêtre qui s'ouvre. Certes, ce n'est pas le Gmail "classique" qui s'ouvre mais uniquement la fenêtre "Brouillon de message" que l'on peut toujours supprimer en utilisant l'icône "Corbeille" en bas à droite si on ne souhaite pas l'envoyer:

Pièce jointe 635960

je pense que le compte Gmail doit être activé lors de l'exécution

Hello,

Je comprends mieux le fait des guillemets ou pas.
Oui, exactement pour la fenêtre Gmail, j'ai pu en faire l'expérience on peut supprimer le brouillon mais cela ferme l'application Gmail.
Effectivement, le compte Gmail doit être activé mais n'est-il pas activé (non visible) lors de l'apparition du brouillon ?
Toutefois , je vais y réfléchir pour la faire apparaître cette fenêtre en arrière plan identiquement lors de l'ouverture classique Gmail avec affichage sur nouveau.
Jusqu'à maintenant, je suis sur le bon chemin avec ton aide pour résoudre mon problème de départ, reste une petite astuce à trouver :D

Encore un grand merci

Citation:

---

Toutefois , je vais y réfléchir pour la faire apparaître cette fenêtre en arrière plan identiquement lors de l'ouverture classique Gmail avec affichage sur nouveau.

---

Je pense que les possibilités doivent être limitées sans doute pour cause de sécurité.

Bonsoir,

Oui probablement.
De toute façon je donnerai la suite pour information et indiquerai si résolu le cas échéant.
Happy WE

Bonjour,

Après moults essais, pas su revenir sur la fenêtre classique Gmail.
Par ailleurs la solution proposée par tee_grandbois me satisfait amplement.
Dès l'envoi du mail ou dès la suppression du mail lors de l'affichage sur nouveau avec adresse mail du destinataire, je reviens sur mon formulaire dont la capture d'écran apparaît sur un échange de discussion.
Merciiiiiiiii