Bonsoir, Mr Docteur excel
je voudrais savoir pour quoi j’ai pas l’accès a mon serveur , pour envoyer des email a partir de mon code vba
suivant
Private Sub CommandButton2_Click()
Dim config As CDO.Configuration
Dim email As CDO.Message
Set config = New CDO.Configuration
With config.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = « imap-mail.outlook.com »
.Item(cdoSendUserName) = « yalid2011@hotmail.com »
.Item(cdoSendPassword) = « ********* »
.Item(cdoSMTPServerPort) = 993
.Update
End With
Set email = New CDO.Message
With email
Set .Configuration = config
.From = « yalid2011@hotmail.com »
.To = « yalid2011@hotmail.com »
.Subject = « Sujet »
.TextBody = « Blabla »
.Send
End With
Bien cordialement
Walid khellaf