Bonsoir à tous,
Ayant des soucis avec l'envoie par outlook (fenetre a valider), j'ai pris le choix d'utiliser CDO pour l'envoie de mes email en vba.
Toutefois je rencontre un soucis lorsque j'utilise le code suivant:
Sub newmailmethod()
Dim Piecejointe As String
Dim iMsg As Object
Dim iConf As Object
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
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") = "MON MAIL"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MON MOT DE PASSE"
.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") = 25
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "DESTINATAIRE"
.CC = ""
.BCC = ""
.From = """EXPEDITEUR"" <MON MAIL>"
.Subject = "This is a test"
.TextBody = strbody '"This is the text"
.Send
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Cela fonctionne tres bien si j'utilise mon compte Gmail qui n'est pas "securisé" en terme de connection, lorsque je veut remplacer les paramettre par ceux de mon compte yahoo lui "securisé" cela me renvoie un message d'erreur d'acces. J'ai tenté plusieurs modification glanée sur le net, changement du port et autre mais rien n'y fait.
Y aurait il quelqu'un qui aurais reussi a realiser le bon paramettrage et qui pourrait donc me venir en aide.
Merci d'avance a ceux qui chercherons a m'aider.
Jaouen.
Ayant des soucis avec l'envoie par outlook (fenetre a valider), j'ai pris le choix d'utiliser CDO pour l'envoie de mes email en vba.
Toutefois je rencontre un soucis lorsque j'utilise le code suivant:
Sub newmailmethod()
Dim Piecejointe As String
Dim iMsg As Object
Dim iConf As Object
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
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") = "MON MAIL"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MON MOT DE PASSE"
.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") = 25
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "DESTINATAIRE"
.CC = ""
.BCC = ""
.From = """EXPEDITEUR"" <MON MAIL>"
.Subject = "This is a test"
.TextBody = strbody '"This is the text"
.Send
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Cela fonctionne tres bien si j'utilise mon compte Gmail qui n'est pas "securisé" en terme de connection, lorsque je veut remplacer les paramettre par ceux de mon compte yahoo lui "securisé" cela me renvoie un message d'erreur d'acces. J'ai tenté plusieurs modification glanée sur le net, changement du port et autre mais rien n'y fait.
Y aurait il quelqu'un qui aurais reussi a realiser le bon paramettrage et qui pourrait donc me venir en aide.
Merci d'avance a ceux qui chercherons a m'aider.
Jaouen.