envoyer un email méthode CDO

[hervedum35]

Bonjour, je cherche une solution à mon pb qui m'empoisonne, pouvez vous m'aider voilà mon script que j'ai réduit au maximum pour voir d'ou vient l'erreur :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<%
Dim objMail
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = "email@demonsite.com"
objMail.To = "email@dudestinataire.fr"
objMail.Subject = "montitre"
objMail.htmlBody ="mon texte"
objMail.Send
set objMail=nothing
 
On Error Resume Next
objMail.Execute
If Err <> 0 Then
Response.Write "Erreur : " & Err.Description
Else
	if request.QueryString("l") = "en" Then
		Response.Redirect("http://www.google.fr")
	Else
		Response.Redirect("http://www.google.com")
	End If
End If
%>

ça donne aprés test-> Erreur : Object required
Etant débutant en prog asp je comprend pas tout (en me renseignant on me dit que pour l'envois de mon email je doit utilisé la méthode CDO et authentification SMTP )

[Immobilis]

Salut,

C'est quoi ton systeme d'exploitation?

A+

[mael94420]

Salut,
Il te manque effectivement le nom de ton server mail

[vva]

Bonjour,

Voici le code que j'utilise

Dim mymail
set mymail=server.createobject("cdonts.newmail")
mymail.from= nom
mymail.to= dest
mymail.cc= ""
mymail.subject= titre
mymail.body= msg
mymail.send
set mymail=nothing


gaffe toi simplement que le composent cdonts soit bien enregistré sur le serveur car il n'est pas systématiquement installé avec windows ou effacé par des SP. J'ai eu le cas alors tu es prévenu, ne t'acharnes pas sur le code c'est probablement système.