Bonjour a tous !
Question toute simple, ou est mon erreur ?

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
 
TxtServeur  = "messenger.hotmail.com"
Dim Mail As CDO.Message
Set Mail = CreateObject("CDO.Message")
On Error GoTo ErreurTrouver
 
With Mail
    .Configuration.Fields.Resync
    .From = TxtUtilisateur                          ' Mon adresse de départ
    .To = TxtDestinataire                           ' Mon adresse cible
    .Subject = "Voici le texte"           ' Titre du message
    .TextBody = "Bonjour" & vbCr & TxtEcrit    ' Contenu du message
    .AddAttachment "C:\image.jpg"               ' Pièce jointe
    .AutoGenerateTextBody = True
    .DSNOptions = cdoDSNSuccessFailOrDelay
    '.Configuration.Fields.Item(cdoURLProxyServer) = "server:80"
    '.Configuration.Fields.Item(cdoURLProxyBypass) = "<local>"
    .Configuration.Fields.Item(cdoSendUsingMethod) = CDOSendUsingPort
    .Configuration.Fields.Item(cdoSMTPServer) = TxtServeur   ' Mon serveur
    .Configuration.Fields.Item(cdoSMTPServerPort) = 25
    .Configuration.Fields.Item(cdoSMTPConnectionTimeout) = 20
    .Configuration.Fields.Item(cdoSMTPAuthenticate) = cdoBasic
    .Configuration.Fields.Item(cdoSendUserName) = TxtUtilisateur  ' Mon login
    .Configuration.Fields.Item(cdoSendPassword) = TxtPassword    ' Mon pass
    .Configuration.Fields.Item(cdoURLGetLatestVersion) = True
    .Configuration.Fields.Update
    .Send
End With
 
MsgBox "MESSAGE TRANSMIS", vbInformation + vbOKOnly, "INFORMATION "
Et pour finir le message qui tue !
le transport a échoué dans sa connection au serveur ! Erreur N° 2147220973
SI quelqu'un me trouve une soluce, je lui offre l'apéro et le resto qui va avec !

PS: j'ai tester une flopper de code du genre mais aucun n'ont fonctionné !

Voilà une solution qui devrait marcher : smtp server
Serveur POP : pop3.live.com (Port 995 avec connexion SSL)
Serveur SMTP : smtp.live.com (Port 25 avec connexion SSL)
Serveur IMAP : non

Relever sa boîte Hotmail avec un logiciel de messagerie:
Les paramètres du compte sont, pour une relève selon le protocole POP :

Adresse e-mail : votre_adresse@hotmail.com (ou hotmail.fr, live.com, live.fr, etc.)
Nom du compte : votre_adresse@hotmail.com (ou hotmail.fr, live.com, live.fr, etc.)
Serveur POP3 : pop3.live.com
Serveur SMTP : smtp.live.com

Tant pis je serai seul à boire mon coup !
Pour ceux qui dispose de Gmail:
Il faut activer le POP dans la configuration Gmail et voilà le rêve réalisé !
Comme je dispose de Gmail, j'ai testé et sa marche sans aucun autre programme style Ootlock...