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