Discussion :

[bartimeus35]

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 :

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
 
    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


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...)

[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 ...

[bartimeus35]

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é.
Peut on espérer que les modules comme CDO évoluent ? y a t il qqch à faire le jour ou cette évolution existera ?

[tee_grandbois]

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

il faudrait poser la question à Microsoft

[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).

[MikeLi]

Bonjour,

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

Je bloc également ...

Merci

[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

[tee_grandbois]

bonsoir,
la solution pour Gmail est donnée ici

[argyronet]

bonsoir,
la solution pour Gmail est donnée ici

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

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

[tee_grandbois]

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