Bonjour a tous !
Question toute simple, ou est mon erreur ?
Et pour finir le message qui tue !
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 "
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...
Partager