Une erreur d'exécution'-2147220960(80040220)': la valeur de configuration
d
Bonjour,
J'essaie de faire marché ce code vba mais une erreur d'exécution'-2147220960(80040220)': la valeur de configuration "sendusing" est non valide a été détectée, est- ce quelqu'un aurait une solution pour résoudre cette erreur.
Mon objectif est d'arriver à envoyer un message sans pièce jointe par mail à plusieurs destinataires à date dépassée à partir d'un fichier excel.
Voici ce que j'ai fait mais ça ne marche toujours pas.
J'ai vraiment besoin d'aide.
En vous remerciant par avance.
Cordialement,
Bonjour,
il manque les informations de configuration smtp
voici un exemple,
Sub test_Mail_CDO()
Dim iMsg As Object
Dim iConf As Object
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set flds = iConf.Fields
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
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = "lui@videotron.ca"
.From = "moi@videotron.ca"
.Subject = "Essai"
.TextBody = "test"
.Send
End With
Set iMsg = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Subd
Bonjour sabV,
Merci pour votre aide je vais essayé de rajouter cela.
En vous remerciant.
Cordialement,