Discussion :

[arthur83fr]

Bonjour,
Me revoici avec un problème d'envoi de mail avec un bouton de commande excel vba
Je suis également allé dans le menu principal "Outils" sur le VBA, option "Références ...", activé "Microsoft CDO pour Windows 2000 Library" et appuyé sur OK
Mon problème est que cela ne fonctionne pas alors que ce code a été adapté à partir d'un code du net

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Send_Mail_Coup_Main()           ' Procedure d'envoi Mail Coup de Main
 
Dim myMail As CDO.Message
Set myMail = New CDO.Message
 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "azerty@gmail.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"
myMail.Configuration.Fields.Update
 
With myMail
.Subject = "Test Email from Test Prog Gest TSCP   Coup de main  " & Sheets("DonnéesDiverses").Range("C56").Value
.From = "azerty@gmail.com"
.To = "qsdfgh@free.fr"              
.CC = ""
.BCC = ""
.TextBody = "Bonjour," & vbCrLf & "_" & vbCrLf & Sheets("DonnéesDiverses").Range("D56").Value & vbCrLf & " " & vbCrLf & " La Présidente "
'.AddAttachment "C:\Users\toto\Desktop\email-via-gmail.txt"       ' si une piece jointe doit etre envoyée
End With
 
On Error Resume Next
myMail.Send
MsgBox ("Le Mail a été envoyé")
Set myMail = Nothing
 
End Sub

Tel quel j'ai le msgbox " message envoyé" mais rien dans ma boite mail
Si je supprime le "on error resume next" le message d'erreur est :

Erreur d'execution'-2147220975(80040211)':
Le message n'a pu être envoyé vers le serveur SMTP.
Le code d'erreur de transport était 0x80040217.
La réponse du serveur était not aviable

Et si je clique sur débogage, la ligne surlignée en jaune :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myMail.send

j'ai modifié le compte gmail de façon a ce qu'il accepte "Autoriser les applications moins sécurisées"
j'ai beau chercher sur le net je comprends pas

j'ai besoin de vos lumieres merci


Je viens d'essayer avec un compte orange smtp et adresse mail orange et la cela passe( je suis chez moi sur orange)
que j'essaye avec mon gmail chez moi ou le gmail que je vais devoir utiliser a partir d'un point acces gsm sfr j'ai le meme probleme

donc peut etre un pb avec mon fai qui ne laisserait pas passer si j'utilise gmail ?

[Invité]

Bonjour,

Regardez ce billet pour voir s'il peut vous aider : https://www.developpez.net/forums/d1...l/#post7269237

Le port peut être également 587.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 587

[arthur83fr]

merci pour votre aide mais j'ai toujours le meme probleme.

chez moi le FAI est Orange.

Quand je renseigne
smtp.orange.fr port 465 mon adresse mail orange et mon mot de passe associé.
le code fonctionne sans problème et je récupère bien un mail sur l'adresse mail cible.

Quand je renseigne
smtp.gmail.com port 465 ou 25 mon adresse mail gmail et mon mot de passe associé.
le code menvoi un msg d'ereur et rien n'est envoyé.
en mode debug il plante sur
myMail.send

Alors me direz vous pourquoi ne pas vouloir utiliser le FAI Orange ?
eh bien l'application dans laquelle je vais utiliser ce code va être utilisée dans un local n'ayant pas de connexion internet filaire mais uniquement par point d'acces gsm.
de plus l'association ne possède qu'une adresse mail en gmail.

et aussi parce que j'aimerais bien comprendre pourquoi cela ne fonctionne pas.

merci de vos réponses

[Thumb down]

https://www.developpez.net/forums/d1...t/#post7968025

[arthur83fr]

Tout d'abord un grand merci pour vos réponses

alors je poste la suite de mon problème afin que cela puisse servir à d'autres personnes.

test avec :

de chez moi avec FAI Orange
smtp.gmail.com / port 465 / Mon mail gmail comme ID / mon password gmail
mon compte Gmail "Autoriser les applications moins sécurisées" ok
envoi mail fonctionne, je réceptionne bien un mail sur adresse cible.

donc j'essaye avec :
de chez moi avec FAI Orange
smtp.gmail.com / port 465 / mail gmail du club comme ID / password gmail du Club
envoi mail fonctionne, j'ai bien le msgbox " mail envoyé" mais je ne réceptionne pas le mail sur adresse cible.

Je m'oriente sur un pb de configuration du compte gmail du club.


..........édité le 27/11/2020 a 15h02...........(heure de Martinique)
.......Bonne nouvelle cela fonctionne.........

en fait c'était le compte gmail du club qui n'avait pas pris ma demande d’autoriser les applications moins sécurisées
Grrrrrrrrrrrrrrr


Merci encore d'avoir pris de votre temps pour répondre à mon problème

.