Bonjour à tous,
J'envois des mails automatique et j'aimerai que l'adresse d'envoi soit marqué nepasrépondre, mais quand je mets .From ="nepasrepondre@gmail.com" l'adresse qui apparaît est quand même l'adresse d'envoi, si je fais répondre c'est l'adresse d'envoi qui apparait, une idée?
Merci
J'envois des mails automatique et j'aimerai que l'adresse d'envoi soit marqué nepasrépondre, mais quand je mets .From ="nepasrepondre@gmail.com" l'adresse qui apparaît est quand même l'adresse d'envoi, si je fais répondre c'est l'adresse d'envoi qui apparait, une idée?
Code:
Dim iConf As Object
Dim Flds
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.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") = "toto@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Update
End With
strbody = "Validation " & Region & "." & vbNewLine & vbNewLine & _
"Cordialement" & vbNewLine & vbNewLine
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = "" & Email & ""
.cc = "" & Emailcc & ""
.From = "nepasrepondre@gmail.com"
.Subject = "Validation " & Region
.TextBody = strbody
.AddAttachment (ThisWorkbook.Path & "/validation " & Region & " au " & date_valid & ".xlsx")
.Send
End With
Merci