Envoi de mails via access ( GMAIL)

Version imprimable

2 pièce(s) jointe(s)

Bonjur à tous,
J'ai une fonction VBA dont voici un extrait ci-dessous, qui me permet d'envoyer mes factures via mon compte GMAIL.
Ca marche nikel sauf pour les clients @free.fr et @noos.fr, cf screen shot : undeliverded message.
Que faire pour que ca fonctionne ?

Code:

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
 
    Dim NewMail As Object
    Dim mailConfig As Object
    Dim fields As Variant
    Dim msConfigURL As String
 
    Set NewMail = CreateObject("CDO.Message")
    Set mailConfig = CreateObject("CDO.Configuration")   
 
    ' load all default configurations
    mailConfig.Load -1
 
    Set fields = mailConfig.fields
 
    With NewMail
        .Subject = p_sujet
        .From = M_from
        .To = p_destinataire
        .TextBody = txt_corps
 
 
    .AddAttachment fichier_PDF
 
    End With
 
 
    msConfigURL = "http://schemas.microsoft.com/cdo/configuration"
 
    With fields
        'Enable SSL Authentication
        .Item(msConfigURL & "/smtpusessl") = True
 
        'Make SMTP authentication Enabled=true (1)
        .Item(msConfigURL & "/smtpauthenticate") = 1
 
        'Set the SMTP server and port Details
        .Item(msConfigURL & "/smtpserver") = "smtp.gmail.com"
        .Item(msConfigURL & "/smtpserverport") = 465
        .Item(msConfigURL & "/sendusing") = 2
 
        'Set your credentials of your Gmail Account
        .Item(msConfigURL & "/sendusername") = M_from
        .Item(msConfigURL & "/sendpassword") = "mon mot de passe GMAIL"
 
        'Update the configuration fields
        .Update
 
    End With
    NewMail.Configuration = mailConfig
 
 
       NewMail.Send

Je n'ai aucune idée :(
Pièce jointe 563427
Pièce jointe 563430
note1 : pour que je puisse envoyer mes mails via GMAIL, il a fallu que j'autorise l'Accès moins sécurisé des applications.
sur cette URL
https://myaccount.google.com/lesssecureapps
Note 2 si je me connecte à mon compte gmail t que j'envoie le mail manuellement, il est bien reçu par le client (free et noos...)

06/05/2020, 14h26
tee_grandbois

bonjour,
la sécurité concernant l'envoi et réception de mails s'élève partout de plus en plus, sans que des modules comme CDO suivent forcément ces élévations de sécurité. Bientôt, il ne sera plus possible de l'utiliser... visiblement, c'est déjà le cas ...
06/05/2020, 14h37
bartimeus35

Citation:

Envoyé par tee_grandbois

bonjour,
la sécurité concernant l'envoi et réception de mails s'élève partout de plus en plus, sans que des modules comme CDO suivent forcément ces élévations de sécurité. Bientôt, il ne sera plus possible de l'utiliser... visiblement, c'est déjà le cas ...

grrrr et donc en gros je suis coincé.:arf::arf::arf::arf:
Peut on espérer que les modules comme CDO évoluent ? y a t il qqch à faire le jour ou cette évolution existera ?
06/05/2020, 15h55
tee_grandbois

Citation:

Peut on espérer que les modules comme CDO évoluent ?

il faudrait poser la question à Microsoft
06/05/2020, 20h59
gaby277

Bonjour, Bartimeus 35

Problème de sécurité oui probablement.

Mais le message d'erreur dit que ton mail est considéré comme Spam donc non désiré et gênant pour le destinataire …
Il est possible de ton adresse mail ou ton serveur de mail ou je sais pas quoi soit blacklisté à tort ou a raison à cause d'émissions massives de spams réelles ou supposées.

Pour en avoir le cœur net , si c'est possible, il faudrait essayer d'installer to appli sur un autre PC (Qui a un compte Gmail si possible pas de la même organisation(si envoi depuis entreprise) et avec un autre user et password)) et essayer d'envoyer aux destinataires qui posent problèmes. Si ça passe ça veux dire que tu es blacklisté Dans ce cas je crois qu'il y des recours pour faire rectifier mais c'est pas gagné.

Tu pourrais aussi, si tu ne l'a pas déjà fait, essayer d'envoyer le mail qui pose problème avec une autre messagerie Thunderbird, par exemple
Apres si ces essais ne confirment pas qu tu es blacklisté, pour envoyer des mails avec ACCES il n'y a pas que CDO. Une recherche Google "envoyer des mails ave Access " te donneras plein de possibilités (via Outlook par exemple).
03/11/2020, 18h48
MikeLi

Bonjour,

Avez vous eu les reponses a vos questions sur la securtié gmail ?

Je bloc également ...

Merci
08/11/2020, 20h02
argyronet

Bonjour,

Oui, l'envoi n'est plus aussi aisé...

A mon avis, il vous faut paraméter GMail et définir l'autorisation d'envoi de mails de façon moins sécurisée.

Avez-vous également essayé sur le port 25 en SSL à 0 ?

Argy
08/11/2020, 20h12
tee_grandbois

bonsoir,
la solution pour Gmail est donnée ici
09/11/2020, 17h22
argyronet

Citation:

Envoyé par tee_grandbois

bonsoir,
la solution pour Gmail est donnée ici

C'est pourtant ce que j'ai mentionné :
Accès moins sécurisé des applications
=

Citation:

Envoyé par Argy

A mon avis, il vous faut paraméter GMail et définir l'autorisation d'envoi de mails de façon moins sécurisée.

Non ?

Argy
09/11/2020, 19h17
tee_grandbois

bonsoir Argy,
j'aurai dû préciser que la réponse était pour MikeLi histoire de lui faciliter le travail