Bonjour
J ai un fichier avec une macro qui envoi un mail en cdo, il marche sur mon ordinateur mais au boulot celui ci me dit erreur 80040213 erreur de serveur, je pense que c verrouille avec un proxi.
Que me conseillez vous de faire ?
L idee de ce tableau m avertit a date dépassée par mail.
Merci
Classeur
- i20100
- Passionné d'Excel
- Messages : 3'487
- Appréciations reçues : 132
- Inscrit le : 16 mars 2017
- Version d'Excel : PC - 2010 FR
Bonjour,
il faut renseigner ces lignes avec les valeurs du serveur de ton boulot
il faut renseigner ces lignes avec les valeurs du serveur de ton boulot
Code : Sélectionner et copier le code
With flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relais.videotron.ca"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "moi@videotron.ca"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MonPassWord"
.Update
End With
S'il vous plaît, pas de messagerie personnelle pour vos questions. La réponse peut servir aux autres membres. Merci!
isabelle
isabelle
- panthera261
- Membre habitué
- Messages : 56
- Inscrit le : 19 novembre 2017
- Version d'Excel : 2010
Voila le code qui marche chez moi j ai la meme chose
sauf le relais ect.
sauf le relais ect.
Code : Sélectionner et copier le code
With mChps
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Adapter suivant votre serveur de mail. (exemple pour Gmail.)=> Hormail "smtp.live.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
'En principe, 25 fonctionne avec tout les serveurs.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "465"
'Vous pouvez essayer sans ces trois lignes
'Mais si votre serveur demande une authentification,
If [E6].Value <> "" Then
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ************@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "**********************"
End If
'Si votre serveur demande une connexion sûre (SSL)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
.Update
End With
Set mMessage = CreateObject("CDO.Message")
With mMessage
Set .Configuration = mConfig
.To = "*******************@hotmail.com"
.From = ***************************@gmail.com"
.CC = "***********************@gmail.com"
.Subject = "ALERTE CONTRAT DE MAINTENANCE"
.TextBody = "ETEINT ALERTE UN CONTRAT DE MAINTENANCE DE L'ENTREPRISE " & Range("C" & cel.Row) & " DU CONTRAT " & Range("D" & cel.Row) & " A LA DATE DU " & Range("E" & cel.Row) & " ARRIVE A ECHEANCE "
'Pour ajouter une pièce jointe, un fichier, classeur, image etc.
'.AddAttachment 'Chemin et nom complet du fichier à joindre
.send
End With
-
- Sujets similaires
- Réponses
- Vues
- Dernier message
-
-
copier les donnes dynamique d'un classeur ferme dans un autre classeur
par zakou76 » 3 février 2019, 15:18 » dans Excel - VBA - 1 Réponses
- 81 Vues
-
Dernier message par m3ellem1
3 février 2019, 22:22
-
-
-
[XL-2013]Copier des données d'un classeur A ouvert, vers un classeur B ferm
par Pantoulfe » 21 janvier 2019, 12:28 » dans Excel - VBA - 2 Réponses
- 93 Vues
-
Dernier message par Pantoulfe
25 janvier 2019, 18:38
-
-
-
copier une feuille d'un classeur fermé dans un classeur ouvert
par righilahriz » 8 février 2019, 14:16 » dans Excel - VBA - 3 Réponses
- 354 Vues
-
Dernier message par Jean-Eric
8 février 2019, 16:08
-
-
-
Copier le contenu d'une feuille de classeur vers un classeur de destination
par lcn » 20 juillet 2018, 13:16 » dans Excel - VBA - 3 Réponses
- 637 Vues
-
Dernier message par jmd
22 juillet 2018, 19:02
-
-
-
extraire une feuille de mon classeur dans un nouveau classeur
par Arthaher » 6 juin 2018, 17:43 » dans Excel - VBA - 5 Réponses
- 135 Vues
-
Dernier message par Arthaher
13 juin 2018, 07:45
-
-
-
Transfert de données d'un classeur vers un autre classeur EXCEL VBA
par LucieBRETON » 7 novembre 2018, 17:05 » dans Excel - VBA - 143 Réponses
- 1263 Vues
-
Dernier message par LucieBRETON
16 novembre 2018, 09:35
-