Discussion :

[bringer]

Bonjour à toutes et à tous,

Je suis en train de réaliser un tableau excel dans lequel j'ai mis un bouton qui a pour objectif d'envoyer une copie du tableau par mail. Pour cela j'utilise la référence microsoft CDO for windows 2000 library.
j'ai implémenté la fonction Send_mail() ci dessous (récupérée sur le 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
 
Public Sub send_mail()
Dim objMessage, objConfig, Fields
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
With Fields
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usermail@mail.com"
  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
  .Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
  '.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
  .Update
End With
Set objMessage.Configuration = objConfig
 
With objMessage
  .Subject = "Test Message"
  .From = "usermail@mail.com"
  .To = "receivermail@mail.com"
  .HTMLBody = "Test Message"
  .Send
End With
Set objMessage = Nothing
Set objConfig = Nothing
Set Fields = Nothing
End Sub

La config smtpusessl génère une erreur et est donc commenté, le sendtls est obligatoire.

Lorsque j'envoie le message, j'ai un retour qui est : "le serveur a rejeté l'adresse de l'expéditeur. La réponse du serveur était : 530 5.7.57 SMTP; Client was not authenticated to send anonymous mail during MAIL FROM [...]"
Pour vérifier que je ne me trompais pas dans les configurations, j'ai testé un envoie de mail via python et la libSMTP avec les mêmes paramètres et dans ce cas, pas de soucis, le mail est envoyé et reçu sans soucis.
Enfin, ce fichier devra ensuite être fourni à plusieurs personnes pour pouvoir récupérer les données enregistrées et réaliser un traitement statistique ultérieur.

Le problème semble donc venir d'excel, mais malgré des recherches sur le net, je ne trouve pas de réponse.

Quelqu'un aurait-il déjà rencontré ce genre de soucis et surtout, comment le corriger ?

Merci à vous.
A++

[QuestVba]

Salut,
Et si tu changes le port :

Code :

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

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

Toujours la même erreur ?

[bringer]

Bonjour QuestVBA et merci de ta réponse.

Malheureusement, oui, toujours la même erreur

[bringer]

J'ai continué à chercher de mon coté.
Je suis sous windows 7 et si je comprends bien le framework .net semble avoir son importance pour géré le TLS en 1.2 minimum.

Par contre, je ne trouve pas grand chose à ce sujet.
Est ce que cela apporte un peu plus d'infos ??

merci

[bringer]

Bonjour à tous,
Je me réponds à moi même, au cas ou cela pourrait aider d'autres personnes.

Déjà, QuestVba avait raison de changer le port de 587 à 25. Merci à lui.
Mais, pour que l'ensemble fonctionne, il faut aussi désactiver la sécurité TLS ET activé le SSL.
Après de nouvelles recherches, il semble qu'il y ait un bug dans CDO avec TLS.
le code de la fonction devient donc :

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
 
Private Sub Office365_Email(mailReferent As String, usermail As String, pwdSender As String)
    Dim objMessage, objConfig, Fields
    Set objMessage = CreateObject("CDO.Message")
    Set objConfig = CreateObject("CDO.Configuration")
    Set Fields = objConfig.Fields
 
    With Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = usermail
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = pwdSender
        '.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = False
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/cdoSMTPConnectionTimeout") = 60
        .Update
    End With
    Set objMessage.Configuration = objConfig
 
    With objMessage
        .Subject = "Test Message vba"
        .From = usermail
        .To = mailReferent
        .HTMLBody = "<h1>Test Message depuis excel</h1>"
        .Send
    End With
    Set objMessage = Nothing
    Set objConfig = Nothing
    Set Fields = Nothing
 
End Sub

Merci et bonne journée.
A++