Envois de mail avec CDO

Le
Fredo P.
Bonjour le code suivant ne produit pas d'erreur, il s’exécute jusqu'au
bout mais le mail ne parvient pas Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim FichiersJoints$
On Error Resume Next
Workbooks("Reg.xlsx").Save
Workbooks("Reg.xlsx").Close
Application.EnableEvents = True
Application.EnableEvents = False
FichiersJoints = "C:UsersFredDocumentsReg.xlsx"
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") "smtp.office365.com"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= "1"

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") "XXX@live.fr"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MDP"
'
.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
.Update
End With
Set iMsg = CreateObject("CDO.Message")

With iMsg
Set .Configuration = iConf
.To = "XXX@live.fr"
.CC = ""
.BCC = ""
.From = "XXX@live.fr"
.AddAttachment FichiersJoints

.Subject = "Sauvegarde de Reg.xlsx"
.Send
End With
If Err.Number > 0 Then
MsgBox ("N° d'erreur " & Err.Number)
End If
Workbooks.Open "Reg.xlsx"

Set Flds = Nothing
Set iMsg = Nothing
Application.ScreenUpdating = True
Application.EnableEvents = True
End SubÍ  son destinataire, pb de MDP?
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
MichD
Le #26564453
Bonjour,
À cette adresse, tu devrais trouver ce que tu cherches :
https://www.rondebruin.nl/win/s1/cdo.htm
Attention dans le code Í  cette ligne de code :
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") "Fill in your SMTP server here"
Tu dois inscrire le serveur SMTP que tu utilises...
MichD
Poster une réponse
Anonyme