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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Olivier,
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" a écrit dans le message de news:bkv1ki$hme$ 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
Bonjour Olivier,
Essai ceci : testé sur windows xp
Elle fut élaboré par Laurent Longre.
'----------------------------
Sub EnvoyeCourriel()
With CreateObject("CDO.Message")
.From = "mymail@myprovider.fr"
.To = "Laurent@Fourniseur"
.CC = "mywife@herprovider.com"
.BCC = "myaddress@myprovider.com"
.Subject = "MySubject"
.TextBody = "MyMessage"
.AddAttachment "C:excelclass1.xls."
.Send
End With
End Sub
'----------------------------
Salutations!
"Olivier Guillou" <toto@tutu.fr> a écrit dans le message de news:bkv1ki$hme$1@s1.read.news.oleane.net...
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.
'---------------------------- 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" a écrit dans le message de news:bkv1ki$hme$ 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.