Sujet Précédent Sujet Suivant

Envoi mail via gmail a partir d'Excel

Fermé
Lorafyan Messages postés 3 Date d'inscription mercredi 3 juin 2020 Statut Membre Dernière intervention 3 juin 2020 - 3 juin 2020 à 12:36
Lorafyan Messages postés 3 Date d'inscription mercredi 3 juin 2020 Statut Membre Dernière intervention 3 juin 2020 - 3 juin 2020 à 13:06
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 

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:

2 réponses

Réponse 1 / 2
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 165
3 juin 2020 à 12:50
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)
0
Réponse 2 / 2
Lorafyan Messages postés 3 Date d'inscription mercredi 3 juin 2020 Statut Membre Dernière intervention 3 juin 2020
3 juin 2020 à 13:00
Merci de votre réponse rapide !!!
Effectivement sans . Send, le reste du script se déroule sans soucis.
Mais du coup je n'envoie rien, je dois donc me tourner vers nos informaticiens pour qu'ils me débloquent cette fonctionnalité c'est bien cela?
0
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 165
3 juin 2020 à 13:03
Tu peux essayer de leur demander mais avec les stratégies de sécurité d'une entreprise, pas sûr qu'ils acceptent ;)

La seule solution, c'est d'envoyer soi-même le mail, sans automatiser cette tâche, pour le moment.
0
Lorafyan Messages postés 3 Date d'inscription mercredi 3 juin 2020 Statut Membre Dernière intervention 3 juin 2020 > Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022
3 juin 2020 à 13:06
C'est moche parce que l'envoi du mail était notre 1er but de ce fichier car il est rarement fait et nous perdons des contacts...
Je tente quand même avec mes informaticiens.
Merci beaucoup
0

Discussions similaires

Échec d’envoie message messenger
Kris68 -
Colibri -

2 réponses