Discussion :

[AcidWily]

Bonjour,

Je suis en train de coder une fonction qui me permet d'envoyer un mail via la librairie CDO.

Cela marche très bien avec :
- Free : smtp.free.fr sur le port 25
- Yahoo : smtp.mail.yahoo.fr qui demande un acces SSL sur le port 465

Par contre je n'arrive pas à envoyer de mail en utilisant une adresse mail MSN/HOTMAIL, je renseigne bien le smtp sur smtp.live.com et je précise le 587 en SSL/TLS. J'ai lu sur divers forum que Free bloquait le port 25 aux autres serveurs smtp ?!?

message d'erreur : le serveur a rejeté l'adresse de l'expéditeur. La réponse du serveur était : 530 5.7.0 Must Issue à STARTTLS command first"

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
 
With objCDO
    .From = txt_Email.Text
    .To = txt_Destinataire.Text
    .Subject = txt_Sujet.Text
    .TextBody = txt_Message.Text
 
    If Check1.Value <> vbChecked Then
        With .Configuration.Fields
            .Item(CdoConfiguration.cdoSendUsingMethod) = 2
            .Item(CdoConfiguration.cdoSMTPAuthenticate) = 1 'cdoBasic
            .Item(CdoConfiguration.cdoSendUserName) = txt_Email.Text
            .Item(CdoConfiguration.cdoSendPassword) = txt_Pwd.Text
            .Item(CdoConfiguration.cdoSMTPServer) = txt_Smtp.Text
            .Item(CdoConfiguration.cdoSMTPServerPort) = txt_Port.Text
 
            ' Utilisation d'un accés SSL/TLS
            If Check2.Value = vbChecked Then .Item(CdoConfiguration.cdoSMTPUseSSL) = True
 
            .Item(CdoConfiguration.cdoSMTPConnectionTimeout) = 10
 
            .Update
        End With
    End If
    DoEvents
    .Send
 
End With

Auriez-vous une piste ou une autre technique pour l'envoie de mail sous VB
?

Merci

[AcidWily]

Personne n'a été confronté à ce genre de problème ??

J'ai vu qu'il fallait mettre en place une connexion chiffrée pour utiliser TLS, personne n'aurait une idee pour la mise en place ?