Don pépé
XLDnaute Occasionnel
Bien le bonsoir ou bonjour
je viens vers vous car j'ai un probleme avec l'envoie de mail en cdo ( excel2016)
J'ai une erreur qui s'affiche '80040213' je comprend pas pourquoi
le module de mon envoie de mail :
Merci 😉
je viens vers vous car j'ai un probleme avec l'envoie de mail en cdo ( excel2016)
J'ai une erreur qui s'affiche '80040213' je comprend pas pourquoi
le module de mon envoie de mail :
VB:
Sub EnvoiMailCDO()
Dim mMessage As Object
Dim mConfig As Object
Dim mChps
'Dim FichierMail
Set mConfig = CreateObject("CDO.Configuration")
mConfig.Load -1
Set mChps = mConfig.Fields
With mChps
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail" 'Sheets("Configuration").[N4] 'Mail
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mdp" 'Sheets("Configuration").[N5] 'Mot de passe
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.serveur.com" 'Sheets("Configuration").[N2] 'Adresse serveur
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Sheets("Configuration").[N3] 'port
.Update
End With
'FichierMail = "" 'EMailForm.TextBox5.Value
Set mMessage = CreateObject("CDO.Message")
With mMessage
Set .Configuration = mConfig
.From = "" 'Sheets("Configuration").[N4]
.to = "" 'EMailForm.TextBox2.Value
.Subject = "" & Now 'EMailForm.TextBox3.Value
.TextBody = "" 'EMailForm.TextBox5.Value
'.AddAttachment FichierMail
.Send
End With
Set mMessage = Nothing
Set mConfig = Nothing
Set mChps = Nothing
End SubMerci 😉
![](data:image/svg+xml;charset=utf-8,<svg height="105px" width="467px" xmlns="http://www.w3.org/2000/svg" version="1.1"/>)
![](data:image/svg+xml;charset=utf-8,<svg height="224px" width="690px" xmlns="http://www.w3.org/2000/svg" version="1.1"/>)