[XL-2003] Email sans Outlook

[dlight]

Bonjour à tous.

J'ai utilisé le code sans cocher de référence de la FAQ:

http://excel.developpez.com/faq/?pag...ailCDOexchange

Après avoir modifié les adresses de courriel et sélectionné mon fichier PDF, j'ai l'erreur -2147220960 (80040220) - La valeur de configuration "SendUsing" est non valide.

Quelqu'un peut m'indiquer ce qui ne fonctionne pas...


Merci

Dlight

[kiki29]

Salut, voir dans la FAQ http://excel.developpez.com/faq/?pag...urExecutionCDO
Faire une recherche sur CDO.Configuration

[dlight]

Merci à vous Kiki29 pour votre réponse.

Selon les informations du site internet de mon FAI, le serveur SMTP est smtphm.sympatico.ca

Toujours à la ligne send, j'ai l'erreur -2147220975 avec la description:

Le message n'a pu être envoyé vers le serveur SMTP. Le code d'erreur de transport était 0X8040217 La réponse du serveur était not available

Merci à l'avance pour l'aide...

Dlight

[patricktoulon]

bonjour

"smtphm.sympatico.ca" c'est quoi ca? c'est quel fournisseur?

regarde ICI

au plaisir

[dlight]

Bonjour !

Merci à vous patricktoulon d'avoir pris quelques instants pour me répondre.

C'est un fournisseur du Québec (Bell Canada) et selon leur site internet le smpt serait celui que j'ai indiqué.

Je vais prendre le temps de regarder votre exemple... et contacter le fournisseur afin de valider le tout

merci

Dlight

[dlight]

Bonjour à nouveau.

Je crois que travail un code qui est au dessus de mes connaissances mais j'aimerais bien quand même le réussir...

voici le code :

Code :

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
Sub EnvoiMail_CDO()
Dim iMsg As Object, iConf As Object, Flds As Object
 
Set iMsg = CreateObject("cdo.message")
Set iConf = CreateObject("cdo.configuration")
 
Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    'remplacez "smtp.nomserveur.fr" par le nom de serveur de votre FAI :
    'http://outlook.developpez.com/faq/index.php?page=Configuration#Paras_FAI
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtphm.sympatico.ca"
    .Update
End With
 
With iMsg
    Set .Configuration = iConf
    .To = "monemail@...ca"
    .From = "mon_email@sympatico.ca"
    .Subject = "Le sujet du message"
    .HTMLBody = "Ceci est un essai ..."
    .Send
End With
 
End Sub

selon le site internet de mon fournisseur, voici ce qui concerne le serveur sortant:

Serveur de courrier sortant (SMTP)

Serveur de SMTP: smtphm.sympatico.ca
Numéro de port: 25 (ou 587 si le port 25 n'est pas disponible
Authentification: Yes Nom d'utilisateur: Adresse de courriel (e.g: jsmith@sympatico.ca ou jsmith@bell.net) et mot de passe (e.g.: a123456z)
TLS/SSL: Oui. Sélectionnez l'option «TLS» si disponible, si non, selectionnez l'option «SSL».

Merci à l'avance pour l'aide...

Dlight

[patricktoulon]

bonjour
je n'avais pas réalise que tu es au canada
le net diminue les distance
si le fournisseur dit que le smtp c'est celui la alors ça doit être ça

mais dis moi ou ça bug et le numéro de l'erreur on ira plus vite


au plaisir

[dlight]

Bonjour !

Vous avez bien raison, le net diminue les distances mais sans ce dernier, je serais bien triste ...

L'erreur se produit sur la ligne "send". L'erreur à la maison est :

Selon les informations du site internet de mon FAI, le serveur SMTP est smtphm.sympatico.ca

Toujours à la ligne send, j'ai l'erreur -2147220975 avec la description:


Citation:
Le message n'a pu être envoyé vers le serveur SMTP. Le code d'erreur de transport était 0X8040217 La réponse du serveur était not available

.


Actuellement, j'ai l'erreur 2147220978 (8004020e). Le serveur à rejeté l'adresse de l'expéditeur. La réponse du serveur était : 530.5.7.0 must issue STARTTLS command first.

Notez que je suis actuellement au bureau et que mon ordinateur est actuellement sur le réseau du bureau

Merci encore fois

Dlight

[patricktoulon]

bonjour

il semblerai que les protocoles soient différents

si vous avez hotmail ou msn utilise le smtp "smtplive.com" avec le port 25

même si dans l'adresse de l'expéditeur n'est pas une hotmail
au plaisir

[bbil]

Bonjour,

tu est connecté comment à l'internet ? ADSL ?..

[dlight]

Encore une fois j'ai l'erreur 2147220973 (80040213).

Le transport a échoué dans sa connexion au serveur...

Je vais essayer de voir avec un spécialiste en informatique afin de voir les différences de nos protocoles ...


Je vais bien sûr informer le forum de mes recherches...


Dlight

[AlainTech]

Bonjour,

Il me semble que la partie importante est là:

Serveur de courrier sortant (SMTP)

Authentification: Yes Nom d'utilisateur: Adresse de courriel (e.g: jsmith@sympatico.ca ou jsmith@bell.net) et mot de passe (e.g.: a123456z)
TLS/SSL: Oui. Sélectionnez l'option «TLS» si disponible, si non, selectionnez l'option «SSL».

Voici ce que j'ai trouvé sur le net à ce sujet:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.your.com"
 
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
 
'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youruserid"
 
'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"
 
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
 
'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True