Discussion :

[cralain]

Bonjour,

j'ai fait il y a quelques temps un fichier pour aider mon beau-père à la facturation des pensionnaires de sa ferme.

Le fichier le guide dans la création des factures, puis lui permet d'envoyer la facture par mail en un clic sur un bouton.

Tout fonctionnait bien jusqu'à en tout cas cet été.

Maintenant, lorsque j'essaie d'envoyer le mail, une erreur survient.

La version du PC n'a pas changé, son mot de passe non plus. Auriez-vous une idée de la raison de ce problème?

Le code de ma Public Sub:

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
61
62
63
64
Public Sub MailEnvoi(Serveur, Identify, User, PassWord, Port, Delay, Expediteur, Dest, DestEnCopy, Objet, Body, Pj)
' sub pour envoyer les mails
Dim msg
Dim Conf
Dim Config
Dim ess
Dim splitPj
Dim IsplitPj
Set msg = CreateObject("CDO.Message") 'pour la configuration du message
Set Conf = CreateObject("CDO.Configuration") 'pour la configuration de l'envoi
Dim strHTML
 
Set Config = Conf.Fields
 
' Configuration des parametres d'envoi
'(SMTP - Identification - SSL - Password - Nom Utilisateur - Adresse messagerie)
With Config
If Identify = True Then
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = User
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PassWord
End If
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = Delay
    .Update
 
End With
 
 
'Configuration du message
'If E_mail.Sign.Value = Checked Then Convert ServeurFrm.SignTXT, ServeurFrm.Text1
 
With msg
    Set .Configuration = Conf
    .To = Dest
  .CC = DestEnCopy
    .From = Expediteur
    .Subject = Objet
'
 
    .HTMLBody = Body
 
            If Pj <> "" Then
        splitPj = Split(Pj & ";", ";")
 
        For IsplitPj = 0 To UBound(splitPj)
            If Trim("" & splitPj(IsplitPj)) <> "" Then
                .AddAttachment Trim("" & splitPj(IsplitPj))
            End If
        Next
 
    End If
    .Send 'envoi du message
 
End With
' reinitialisation des variables
Set msg = Nothing
Set Conf = Nothing
Set Config = Nothing
 
End Sub

L'appel de ma fonction:

Code :

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

MailEnvoi "smtp-mail.outlook.com", True, "monmail@hotmail.com", "password", 25, 10, "monmail@hotmail.com", AdresseMail, "", Sujet, CorpsDeTexte, NomFichier

Merci d'avance pour votre aide

[tototiti2008]

Bonsoir,

En cherchant un peu, il semble que CDO soit bloqué un peu partout comme méthode d'envoi de mail

par exemple ici : https://www.developpez.net/forums/d1...exion-serveur/

Je suppose que c'est dû à une sécurisation des envoi de mails par les différents fournisseurs d'accès
Voir pour envoyer un mail en passant par un client (par exemple Outlook) mais ça oblige à configurer un compte mail sur un logiciel choisi

[Valtrase]

Bonsoir,
Quelle erreur et sur quelle ligne ?
Le port 25 est souvent bloqué, préférez lui le 587.
Vérifiez le Serveur smtp : smtp-mail.outlook.com
Si les informations d'authentification sont bonnes alors :
Coller un point d'arrêt sur la ligne 9 (Clic sur la ligne puis touche F9
Enfin faire du pas à pas avec F8 pour voir où cela coince.

[cralain]

Bonsoir,
Quelle erreur et sur quelle ligne ?
Le port 25 est souvent bloqué, préférez lui le 587.
Vérifiez le Serveur smtp : smtp-mail.outlook.com
Si les informations d'authentification sont bonnes alors :
Coller un point d'arrêt sur la ligne 9 (Clic sur la ligne puis touche F9
Enfin faire du pas à pas avec F8 pour voir où cela coince.

Bonsoir ! Merci pour votre réaction rapide ;-)

Le message "Le transport a échoué dans sa connexion au serveur", au moment de faire le .send (cf pièce jointe).



Egalement, voici ma config mail



Par acquis de conscience j'ai également essayé un autre PC et une autre adresse mail, mais le résultat est le même, que ce soit port 25 ou 587.

[cralain]

Bonsoir,

En cherchant un peu, il semble que CDO soit bloqué un peu partout comme méthode d'envoi de mail

par exemple ici : https://www.developpez.net/forums/d1...exion-serveur/

Je suppose que c'est dû à une sécurisation des envoi de mails par les différents fournisseurs d'accès
Voir pour envoyer un mail en passant par un client (par exemple Outlook) mais ça oblige à configurer un compte mail sur un logiciel choisi

Bonsoir ! Merci pour votre réaction rapide ;-)

ça reste une solution. Mais comme il y a plusieurs comptes outlook configurés sur le PC, je ne suis pas sûr de savoir comment faire pour choisir le bon compte au moment de l'envoi.
Je vais creuser dans ce sens.

En tout cas merci pour votre réaction !

[Valtrase]

Re,
Cela doit pouvoir se faire, en faisant une boucle, mais je pense qui si le compte n'est pas renseigné c'est celui par défaut qui est utilisé.

Code :

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

1
2
3
4
5
6
7
8
9
10
    ' // Créer un nouvel élément de courriel
    Set Courriel = OutlookApp.CreateItem(0)
 
    ' // Obtenir le compte par défaut
    For Each Compte In OutlookApp.Session.Accounts
        If Compte = OutlookApp.Session.Accounts.Item(1) Then
            Courriel.SendUsingAccount = Compte
            Exit For
        End If
    Next Compte

Bonne programmation.