Microsoft CDO pour NTS 1.2 Library
Le
Olivier Guillou
Bjr à tous,
Pouvez-vous m'expliquer pourquoi je ne peux pas faire fonctionner le code
suivant sous Excel 2000 (il faut activer la bibliothèque "Microsoft CDO pour
NTS 1.2 Library" dans le menu "Outils>Références" de VB) :
Sub Essai()
Dim mailer As CDONTS.NewMail
Set mailer = CreateObject("CDONTS.NewMail")
With mailer
.To = "jmdepond@batscap.com"
.From = "jmdepond@batscap.com"
.Subject = "Hello world"
.Body = "Hello world"
.Send
End With
Set mailer = Nothing
End Sub
Normalement, ce code doit envoyer un mail sans passer par Outlook. Mais il
m'est répondu un truc à propos de droit sur un serveur SMTP.
Merci de votre aide.
Olivier
Pouvez-vous m'expliquer pourquoi je ne peux pas faire fonctionner le code
suivant sous Excel 2000 (il faut activer la bibliothèque "Microsoft CDO pour
NTS 1.2 Library" dans le menu "Outils>Références" de VB) :
Sub Essai()
Dim mailer As CDONTS.NewMail
Set mailer = CreateObject("CDONTS.NewMail")
With mailer
.To = "jmdepond@batscap.com"
.From = "jmdepond@batscap.com"
.Subject = "Hello world"
.Body = "Hello world"
.Send
End With
Set mailer = Nothing
End Sub
Normalement, ce code doit envoyer un mail sans passer par Outlook. Mais il
m'est répondu un truc à propos de droit sur un serveur SMTP.
Merci de votre aide.
Olivier
Poser une question
Essai ceci : testé sur windows xp
Elle fut élaboré par Laurent Longre.
'----------------------------
Sub EnvoyeCourriel()
With CreateObject("CDO.Message")
.From = ""
.To = ""
.CC = ""
.BCC = ""
.Subject = "MySubject"
.TextBody = "MyMessage"
.AddAttachment "C:excelclass1.xls."
.Send
End With
End Sub
'----------------------------
Salutations!
"Olivier Guillou" Bjr à tous,
Pouvez-vous m'expliquer pourquoi je ne peux pas faire fonctionner le code
suivant sous Excel 2000 (il faut activer la bibliothèque "Microsoft CDO pour
NTS 1.2 Library" dans le menu "Outils>Références" de VB) :
Sub Essai()
Dim mailer As CDONTS.NewMail
Set mailer = CreateObject("CDONTS.NewMail")
With mailer
.To = ""
.From = ""
.Subject = "Hello world"
.Body = "Hello world"
.Send
End With
Set mailer = Nothing
End Sub
Normalement, ce code doit envoyer un mail sans passer par Outlook. Mais il
m'est répondu un truc à propos de droit sur un serveur SMTP.
Merci de votre aide.
Olivier