Problème d'envoi mail réseau !?

[Novice avance !?]

bonjour
voici le code récupéré ici même sur ce forum , remanié à ma sauce pour prendre en compte la valeur de certaine cellule d'une feuille :

Ce code fonctionne parfaite à la maison et l'envoi du mail se fait de manière auto et sans alerte de confirmation d'envoi d'un mail

Dim iConf As Object
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = range("G21").value & "@xxxx.fr"
.CC = range("G22").value & "@xxxx.fr"
.BCC = ""
.From = "xxxx@xxxx.fr"
.Subject = "Test envoi de fichier créé"
.TextBody = "voici le résultat du test avec en pièce jointe le fichier créé"
.AddAttachment "\\xxxxxx\xxxx\xxx\xxx\" & Range("K22").Value & Format(Range("B19").Value, "dd-mm-yy") & "_" & Format(Range("D19").Value, "dd-mm-yy") & ".xls"
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set ActiveWorkbook = Nothing

Mais voici qu'à mon travail ce code bloque sur .send 😕
est-ce le fait que les fichiers se trouvent sur le réseau et non plus sur le disque local ou le problème vient-il d'ailleurs !?

merci par avance
bon week-end 🙂

 

[inforeseau]

Re : Problème d'envoi mail réseau !?

Une petite question avant tout, au niveau de ton entreprise as tu accès à internet directement de ta session ou tu dois passer par une session citrix par exemple ???
Car en fait il n'arrive pas à envoyer ton mail ce qui peut provenir du fait que tu n'es pas un accès directe via ton poste.
Alors que de chez toi ton accès étant directe ça ne pose aucun problème.
Si tu pouvais me décrire exactement l'accès à internet que tu as de ton travail ça me permettrait de voir un peu mieux ou est le problème.

 

[Novice avance !?]

Re : Problème d'envoi mail réseau !?

merci

oui effectivement je n'ai pas un accès direct et si je me souviens bien on passe par Titan !? mais je regarderais plus précisemment mardi au travail pour ne pas dire de bêtise !? 😕

bon week-end à tous 🙂

 

[Novice avance !?]

Re : Problème d'envoi mail réseau !?

voici le message d'erreur que j'obtiens

erreur d'exécution '-2147220973 (80040213)'
le transport a échoué dans sa connexion au serveur

ma connexion est derrière un proxy
adresse: saturne.nom du groupe.fr
port 80

merci🙄

 

[Compte Supprimé 979]

Re : Problème d'envoi mail réseau !?

Salut Novice Avance,

J'ai trouvé ça sur le net, ça pourra peut-être te servir !?

Set objMail = CreateObject("CDO.Message") 
 
objMail.Subject = "VotreObjet"
objMail.Sender = "E-Mail de l'expéditeur"
objMail.To = "E-Mail Destinataire"
objMail.TextBody = "Corps du message"
'objMail.addattachment "c:\chemin\nompiecejointe"
 
[COLOR=lime][B][COLOR=green]'Nom du serveur SMTP [/COLOR][/B]
[/COLOR]objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Nom serveur SMTP"
 
[COLOR=green][B]'Le user ID de votre compte[/B][/COLOR]
[COLOR=lime][/COLOR]objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Le User ID de votre compte"
 
[COLOR=green][B]'Le password de votre compte[/B][/COLOR]
[COLOR=lime][/COLOR]objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Le mot de passe"
 
[COLOR=green][B]'Port Server (habituellement 25)[/B][/COLOR]
[COLOR=lime][/COLOR]objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
 
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
'Type de l'authentification :  NONE, Basic (Base64 encoded), NTLM 
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
 
'utliser sécurité SSL pour la connection
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
 
objMail.Send

A+