Envoi mail via gmail a partir d'Excel
Lorafyan
Messages postés
3
Statut
Membre
-
Lorafyan Messages postés 3 Statut Membre -
Lorafyan Messages postés 3 Statut Membre -
Bonjour à tous,
Ceci est mon premier message, je suis quasi novice en VBA, je me suis "formée" via les différents tuto et explications que j'ai pu trouver ici et là mais pour cette fonction je coince (et mon collègue aussi).
Nous avons bien regardé tous les deux si une solution existait pour notre problème mais nous n'avons rien trouvé, la seule discussion trouvée sur ce sujet n'ayant jamais abouti a une réponse/ solution.
J'ai besoin d'utiliser un fichier excel qui permettrait à nos agents d'accueil lorsqu'ils reçoivent un appel d'envoyer directement (via un simple bouton) un mail au destinataire après avoir complété un formulaire de contact (onglet fiche_contact).
Ce fichier me sert aussi de fichier de suivi des contacts, j'ai réussi à coder pour obtenir l'enregistrement des infos saisies dans l'onglet suivi_contact (reprise des infos sur fiche_contact colonne A à T de l'onglet suivi_contact) puis la création d'un pdf qui s'enregistre automatiquement dans mon fichier de sauvegarde, puis l'effacement des infos saisies dans le formulaire fiche_contact une fois que l'agent clique sur le bouton "ENREGISTRER ET EFFACER".
Il n'y a que la partie envoi du mail qui me pose problème, le reste fonctionne.
Voici les obligations qui sont les miennes:
Tous les destinataires ont une boite mail pro avec un nom de domaine spécifique (renommer domaineautre.fr dans mon onglet LISTE), tous les expéditeurs ont en plus une boite mail gmail professionnel.
Je souhaite donc passer par gmail, je ne pourrai pas utiliser outlook (interdit par ma hiérarchie) de plus comme plusieurs agents peuvent utiliser ce fichier, cela me semble plus simple.
Dans l'absolue je souhaiterais que le code cherche l'expéditeur en D7 et le destinataire en D10 de la feuille FICHE_CONTACT, j'ai essayé de passer en direct par la saisie de ma boite mail et celle d'un collègue en lieu et place du D7 et D10 mais j'ai toujours la même erreur
et quand je regarde l'erreur
le code saisi pour cet envoi est
Par avance, merci de m'avoir lu, désolée pour la longueur du message , et de votre aide
Bonne journée
PS: j'aurais voulu vous insérer mon fichier complet pour que vous ayez le code intégral mais je n'ai pas trouvé comment faire ...
Ceci est mon premier message, je suis quasi novice en VBA, je me suis "formée" via les différents tuto et explications que j'ai pu trouver ici et là mais pour cette fonction je coince (et mon collègue aussi).
Nous avons bien regardé tous les deux si une solution existait pour notre problème mais nous n'avons rien trouvé, la seule discussion trouvée sur ce sujet n'ayant jamais abouti a une réponse/ solution.
J'ai besoin d'utiliser un fichier excel qui permettrait à nos agents d'accueil lorsqu'ils reçoivent un appel d'envoyer directement (via un simple bouton) un mail au destinataire après avoir complété un formulaire de contact (onglet fiche_contact).
Ce fichier me sert aussi de fichier de suivi des contacts, j'ai réussi à coder pour obtenir l'enregistrement des infos saisies dans l'onglet suivi_contact (reprise des infos sur fiche_contact colonne A à T de l'onglet suivi_contact) puis la création d'un pdf qui s'enregistre automatiquement dans mon fichier de sauvegarde, puis l'effacement des infos saisies dans le formulaire fiche_contact une fois que l'agent clique sur le bouton "ENREGISTRER ET EFFACER".
Il n'y a que la partie envoi du mail qui me pose problème, le reste fonctionne.
Voici les obligations qui sont les miennes:
Tous les destinataires ont une boite mail pro avec un nom de domaine spécifique (renommer domaineautre.fr dans mon onglet LISTE), tous les expéditeurs ont en plus une boite mail gmail professionnel.
Je souhaite donc passer par gmail, je ne pourrai pas utiliser outlook (interdit par ma hiérarchie) de plus comme plusieurs agents peuvent utiliser ce fichier, cela me semble plus simple.
Dans l'absolue je souhaiterais que le code cherche l'expéditeur en D7 et le destinataire en D10 de la feuille FICHE_CONTACT, j'ai essayé de passer en direct par la saisie de ma boite mail et celle d'un collègue en lieu et place du D7 et D10 mais j'ai toujours la même erreur
et quand je regarde l'erreur
le code saisi pour cet envoi est
Dim iMsg As Object, iConf As Object, Flds As Object
Set iMsg = CreateObject("cdo.message")
Set iConf = CreateObject("cdo.configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Adapter suivant votre serveur de mail. (exemple pour Gmail.)=> Hormail "smtp.live.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
'En principe, 25 fonctionne avec tout les serveurs.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
'Si le serveur demande une authentification,
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxx@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mdp@"
'Si votre serveur demande une connexion sûre (SSL)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
.Update
End With
With iMsg
Set .Configuration = iConf
.From = Range("d7")
.To = Range("d10")
.Subject = "Nouvelle fiche contact"
.HTMLBody = "<BODY><FONT face=calibri color=#000000 size=11>" & _
"Bonjour <br><br> Une nouvelle fiche contact vous étant destinée est disponible, merci d'y donner suite sous 8 jours ouvrés.<br> Bonne journée<br></FONT></BODY>"
.Send
End With
MsgBox "Votre message a bien été envoyé!"
Par avance, merci de m'avoir lu, désolée pour la longueur du message , et de votre aide
Bonne journée
PS: j'aurais voulu vous insérer mon fichier complet pour que vous ayez le code intégral mais je n'ai pas trouvé comment faire ...
Configuration: Windows / Firefox 76.0
A voir également:
- Envoi mail excel gmail
- Gmail connexion - Guide
- Programmer envoi mail gmail - Guide
- Liste déroulante excel - Guide
- Gmail envoyer un mail - Guide
- Créer un compte gmail - Guide
2 réponses
Bonjour,
j'ai déjà rencontré ce type de problème avec .Send pour la simple et bonne raison qu'une PC d'entreprise bloque des envois automatiques de mail par macro (logique)
Essayer de supprimer le .Send et regardez s'il y a une différence ("envoyer" à votre charge)
j'ai déjà rencontré ce type de problème avec .Send pour la simple et bonne raison qu'une PC d'entreprise bloque des envois automatiques de mail par macro (logique)
Essayer de supprimer le .Send et regardez s'il y a une différence ("envoyer" à votre charge)
