OVH Cloud OVH Cloud

Envoi email ?

2 réponses
Avatar
Daniel
Bonjour,

je tente d'envoyer un email avec le code ci-dessous mais
j'ai toujours une erreur "Could not access 'CDO.Message'
object."
A priori il me manque une authentification (serveur non
open-relay), mais je ne vois pas comment faire ?!?!

Alors si quelqu'un sait envoyer un mail en dotNet VB ?
Merci.


' Imports System.Web

Dim pMailMessage As New Mail.MailMessage()

pMailMessage.To =3D "aa@bb.com" ' chang=E9 pour ce post
pMailMessage.Cc =3D "bb@aa.com" ' chang=E9 pour ce post
pMailMessage.Subject =3D "Test send mail"
pMailMessage.Body =3D "??????????"
pMailMessage.BodyFormat =3D Web.Mail.MailFormat.Html

' La essaie de plusieurs smtp (perso, bureau, ...)
' Mail.SmtpMail.SmtpServer =3D "??"

Mail.SmtpMail.Send(pMailMessage)

2 réponses

Avatar
Mattdef
Bonjour,

A part l'oubli de pMailMessage.From = "@@@" '(je ne sais pas si c'est
obligatoire)
Le reste est correct

bye

"Daniel" a écrit dans le message de
news:287501c4bda0$29042110$
Bonjour,

je tente d'envoyer un email avec le code ci-dessous mais
j'ai toujours une erreur "Could not access 'CDO.Message'
object."
A priori il me manque une authentification (serveur non
open-relay), mais je ne vois pas comment faire ?!?!

Alors si quelqu'un sait envoyer un mail en dotNet VB ?
Merci.


' Imports System.Web

Dim pMailMessage As New Mail.MailMessage()

pMailMessage.To = "" ' changé pour ce post
pMailMessage.Cc = "" ' changé pour ce post
pMailMessage.Subject = "Test send mail"
pMailMessage.Body = "??????????"
pMailMessage.BodyFormat = Web.Mail.MailFormat.Html

' La essaie de plusieurs smtp (perso, bureau, ...)
' Mail.SmtpMail.SmtpServer = "??"

Mail.SmtpMail.Send(pMailMessage)
Avatar
Pompier Christian
il te manque ton authentification smtp
ex mail.smtp = "smtp.free.fr"

attention celui ci change suivant le FAI, de plus si tu passe par un serveur
mail entre son ip comme smtp
"Mattdef" a écrit dans le message de
news:%
Bonjour,

A part l'oubli de pMailMessage.From = "@@@" '(je ne sais pas si c'est
obligatoire)
Le reste est correct

bye

"Daniel" a écrit dans le message de
news:287501c4bda0$29042110$
Bonjour,

je tente d'envoyer un email avec le code ci-dessous mais
j'ai toujours une erreur "Could not access 'CDO.Message'
object."
A priori il me manque une authentification (serveur non
open-relay), mais je ne vois pas comment faire ?!?!

Alors si quelqu'un sait envoyer un mail en dotNet VB ?
Merci.


' Imports System.Web

Dim pMailMessage As New Mail.MailMessage()

pMailMessage.To = "" ' changé pour ce post
pMailMessage.Cc = "" ' changé pour ce post
pMailMessage.Subject = "Test send mail"
pMailMessage.Body = "??????????"
pMailMessage.BodyFormat = Web.Mail.MailFormat.Html

' La essaie de plusieurs smtp (perso, bureau, ...)
' Mail.SmtpMail.SmtpServer = "??"

Mail.SmtpMail.Send(pMailMessage)