Envoyer des email a partir de mon code vba


#1

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


#2

#3

Bonjour

Peux-tu nous décrire en détails l’erreur que tu obtiens stp?