Problème d'envoi de eMail Gmail à partir de ma base Access

**Jeannot45** · 29/06/2022, 08h50

Tout est dans le sujet

Quand meme, je vous dois quelques explications

Je suis parti de la procédure ci-dessous que j'ai récupérée sur un post résolu précédent et je pensais que tout roulerai pour le mieux ...

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Sub EnvoiMail2()
' Microsoft CDO Library for windows 2000
    Dim MyMail As CDO.Message
    Dim cdoConf As CDO.Configuration
    ' SMTP GMAIL
    Const strSMTPserver = "smtp.gmail.com"
    Const strSMTPport = 465
    Const strMailUserName = "XXXXX@gmail.com"
    Const strMailUserPwd = "XXXXXX"
 
    ' Crée un nouvel objet email
    Set MyMail = New CDO.Message
    ' Émetteur (Facultatif)
    MyMail.From = """XXXX"" <XXXXX>"
    ' Destinataire
    MyMail.To = """XXXX"" XXXXXXX"
    ' Sujet
    MyMail.Subject = "Test CDOSYS"
 
    ' Message HTML
    '   En-tête du message HTML
    MyMail.HTMLBody = _
    "<html><head></head><body>"
    '   Message
    MyMail.HTMLBody = MyMail.HTMLBody & _
    "Bonjour" & "<br>" & vbCrLf & "Comment ça va ?<br>" & vbCrLf & _
    "<br>" & vbCrLf & _
    "<a href=""http://www.developpez.net/forums/d1095248/logiciels/microsoft-office/access/envoyer-mail-daccess-via-gmail/"">Envoyer un mail d'Access via gmail</a><br>" & vbCrLf
    '   Fin du message HTML
    MyMail.HTMLBody = MyMail.HTMLBody & _
    "</body></html>"
 
     'Fichier(s) à attacher
    'MyMail.AddAttachment "C:\WINDOWS\dsofile.txt"
    'MyMail.AddAttachment "C:\WINDOWS\Rhododendron.bmp"
 
    ' Configuration méthode d'envoie
    Set cdoConf = MyMail.Configuration
    '   Choix de la méthode d'envoie
    '   cdoSendUsingPort   : SMTP à travers le réseau
    '                            il faut renseigner cdoSMTPServer et cdoSMTPServerPort
    '       cdoSendUsingPickup : Service SMTP local
    cdoConf.Fields(CDO.CdoConfiguration.cdoSendUsingMethod) = CDO.CdoSendUsing.cdoSendUsingPort
    '   Nom serveur SMTP
    cdoConf.Fields(CDO.CdoConfiguration.cdoSMTPServer) = strSMTPserver
    '   Port serveur SMTP
    cdoConf.Fields(CDO.CdoConfiguration.cdoSMTPServerPort) = strSMTPport
    '   Activation SSL True.False
    cdoConf.Fields(CDO.CdoConfiguration.cdoSMTPUseSSL) = True
 
    ' Nom et mot de passe de l'utilisateur se connectant au serveur SMTP
    cdoConf.Fields(CDO.CdoConfiguration.cdoSendUserName) = strMailUserName
    cdoConf.Fields(CDO.CdoConfiguration.cdoSendPassword) = strMailUserPwd
 
    cdoConf.Fields.Update
 
    ' Envoyer l'email
    MyMail.Send
End Sub

Comme j'avais en retour le message suivant :

Envoyé par Access

Le transport a échoué dans sa connexion au serveur

J'ai recherché des causes possibles au problème
J'ai trouvé qu'il fallait utiliser le port 25 puis ailleurs qu'il fait utiliser le port 587

Nada

Toujours la meme réponse

Je ne sais plus où chercher...

Sauriez-vous m'éclairer ???

D'avance merci !!!

**hyperion13** · 29/06/2022, 14h57

Salut
As-tu pensé à regarder du côté de ton ou tes Firewall ?

Envoyé par Jeannot45

J'ai trouvé qu'il fallait utiliser le port 25 puis ailleurs qu'il fait utiliser le port 587

25/465 pour SSL et 587 pour TLS

**User** · 29/06/2022, 17h23

Bonsoir Jean,

En complément, et concernant CDO je ne sais pas si tu as lu cette discussion récente :
https://www.developpez.net/forums/d2...o-sous-access/

Cdlt,

**Jeannot45** · 30/06/2022, 08h19

Merci pour vos pistes

@User
Je vais regarder les parametres de mon FAI (Bouyghes) et ceux de ma belle-soeur (Orange).

@Hyperion13
Dans le Firewall, l'application Office est activée en privé et en public. Je suppose donc qu'access est autorisé
Merci pour les information concernant les ports

Je continue de creuser !!!

Bonne journée

**loufab** · 30/06/2022, 08h45

Bonjour,

Gmail a, depuis le 30 mai, définitivement désactivé l'accès depuis des logiciels-tiers qui se connectent uniquement avec user/pass.

Cordialement,

**Jeannot45** · 30/06/2022, 08h53

Merci loufab (

) pour ce complément d'information qui ne fait que m'enfoncer un peu plus car j'ai beau chercher sur le net, tous les exemples que je trouve datent donc d'avant le 30 mai

**Thumb down** · 30/06/2022, 11h33

Bonjour,
https://www.emailarchitect.net/easendmail/ex/b/23.aspx

**LeMin** · 01/07/2022, 08h16

Envoyé par loufab

Bonjour,

Gmail a, depuis le 30 mai, définitivement désactivé l'accès depuis des logiciels-tiers qui se connectent uniquement avec user/pass.

Cordialement,

Bonjour,
En complément, tu peux peut-être essayer ce que j'ai fait avec mon Outlook 2007 :

Tu vas dans les paramètres de ton Gmail, tu actives la double authentification, tu autorises les applications tiers, tu choisis messagerie, tu récupères le mot de passe donné par Gmail et tu l'utilises dans access

**Jeannot45** · 01/07/2022, 09h05

@Thumb down
J'ai installé "Send email using Microsoft OAuth 2.0". La référence est bien accessible en VBA.
Je regarde ça demain matin pour application dans ma procédure d'envoi de mail.

@LeMin
Tu en as trop dit ou pas assez ...

En effet, quand je vais dans les paramètres de Gmail, je ne retrouve pas où :
- Activer la double authentification
- Autoriser les applications tiers et si on s'en réfère à ce que disait loufab ...

:

Envoyé par loufab

Gmail a, depuis le 30 mai, définitivement désactivé l'accès depuis des logiciels-tiers qui se connectent uniquement avec user/pass.

Merci beaucoup pour vos coups de pouce

**LeMin** · 01/07/2022, 09h44

Ce n'est peut être pas le chemin le plus court

Dans Gmail, parametres / tous les parametres / Compte et importations / Autre parametres de votre compte

Sécurité /Validation en 2 étapes à activer

Une fois que c'est fait,
Mots de passe des applications / et choisir "compte de messagerie - sur un pc

Relever le mot de passe donné et l'utiliser dans Access

Bonne journée

**Jeannot45** · 02/07/2022, 08h47

Envoyé par "LeMin"

Ce n'est peut être pas le chemin le plus court

Nom mais semble le plus simple.
J'ai donc obtenu le mot de passe et essayé de l'utiliser dans ma procédure.
Malheureusement, je reste avec une anomalie qui devrait se situer ailleurs. j'ai obtenu le message suivant

Avec le port 465 et cdoSMTPServerPort = true

Nom : ErreurEnvoiMail.jpg
Affichages : 179
Taille : 16,1 Ko

Nom : ErreurEnvoiMail.jpg
Affichages : 179
Taille : 16,1 Ko

Avec le port 465 et cdoSMTPServerPort = false ou
avec le port 587 et cdoSMTPServerPort = true

Nom : ErreurEnvoiMail3.jpg
Affichages : 179
Taille : 12,5 Ko

Nom : ErreurEnvoiMail3.jpg
Affichages : 179
Taille : 12,5 Ko

Avec le port 587 et cdoSMTPServerPort = false

Nom : ErreurEnvoiMail2.jpg
Affichages : 179
Taille : 18,5 Ko

Si j'avais étudié le latin, j'aurais pu dire : "J'en perds mon latin !!!"

mais là ...

**LeMin** · 02/07/2022, 08h56

Au niveau de mon outlook, la config avec gmail pour smtp est:
- serveur: smtp.gmail.com
- pas d'authentification par mot de passe sécurisé (SPA) lors de la connexion
- mon serveur SMTP requiert une authentification
- port 465
- type connexion chiffrée SSL

**hyperion13** · 02/07/2022, 10h13

Salut
Si on cherche sur Gogole est mon ennemi les runtime error que tu annonces, on trouve des traces depuis l'an 2000.
Sur différents sites qui sont bien connus :
- on évoque des modifications de sécurité faites par Gogole
- on des lignes de texte de plus de 1000 caractères
- on propose de désactiver l'antivirus
- on propose d'aller sur Gérer mon compte Gogole - Menu Sécurité - Activité récente liée à l'activité de votre compte de cliquer "Oui, c'était"

**Jeannot45** · 03/07/2022, 07h32

Merci à tous pour vos réponses

Problème d'envoi de eMail Gmail à partir de ma base Access [AC-365]

VBA Access

Discussions similaires

Partager

Partager