Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

Novice avance !?

XLDnaute Occasionnel
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 🙂
 
Trier par date Trier par votes
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.
 
Vote positif 0 Vote négatif
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 🙂
 
Vote positif 0 Vote négatif
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🙄
 
Vote positif 0 Vote négatif
Re : Problème d'envoi mail réseau !?

Salut Novice Avance,

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

Code: 
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+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
XL 2016 Problème envoi mail par macro suite passage Office 365
Réponses
11
Affichages
402
Jean Michel
J
  • Question Question
XL 2019 erreur .send
Réponses
1
Affichages
587
Oneida
J
  • Résolu(e)
XL 2021 Envoi d'email et PJ en VBA
Réponses
3
Affichages
684
JPaul78
J
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
817
halecs93
A
  • Résolu(e)
XL 2021 Macro de création mail de relance avec référence cellules
Réponses
4
Affichages
726
arnoldbrice19
A
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
M
  • Résolu(e)
XL 2016 mail en automatique dans excel destinataire en fonction de la valeur d une cellule
Réponses
11
Affichages
1 K
mathieu20
M
V
  • Résolu(e)
Microsoft 365 Envoie mail automatique
2
Réponses
17
Affichages
2 K
vby
V
M
  • Résolu(e)
XL 2016 envoi de mail en automatique en fonction de plusieurs menus deroulants
2
Réponses
26
Affichages
2 K
mathieu20
M
Y
  • Question Question
XL 2016 sélection du dernier fichier modifié dans un dossier+ pièce jointe
Réponses
1
Affichages
532
kiki29
  • Résolu(e)
XL 2019 Mail en HTML vs VBA
Réponses
6
Affichages
651
patricktoulon
E
  • Question Question
XL 2013 Envoi mail par macro via exchange
Réponses
1
Affichages
1 K
Hasco
C
  • Question Question
XL 2019 Envoi mail : Condition dans un HTMLBODY
Réponses
2
Affichages
749
Cheyenne_2021
C
L
  • Question Question
XL 2019 CDO.message et corps de mail
Réponses
2
Affichages
2 K
Hasco
C
  • Question Question
XL 2010 Probleme pour envoi d'un mail depuis excel avec gmail
Réponses
6
Affichages
2 K
chris66000
C
M
  • Question Question
XL 2016 Envoi courriel copier/coller avec mise en forme (corps couuriel)
Réponses
2
Affichages
2 K
MONTREAL2020
M
M
  • Question Question
Microsoft 365 Envoi email automatique depuis boite mail partagée
Réponses
0
Affichages
1 K
MURET31
M
V
  • Question Question
Microsoft 365 Générer un mail Outlook via Excel si modification colonne Excel
Réponses
1
Affichages
2 K
gig83500
G
I
  • Question Question
XL 2019 Envoyer image et mise en forme conditionnelle dans un mail
Réponses
1
Affichages
951
patricktoulon
A
  • Question Question
Microsoft 365 Envoyer un email automatique a date d'échéance d'une cellule Excel
2
Réponses
17
Affichages
4 K
Abdenour
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…