Enviar email con AspEmail

pabje · #1 (**permalink**) 11/06/2010, 16:30

Hola a Todos

Le escribo para saber si me pueden ayudar a encontrar el error en mi codigo.
Aclaración: Mi página web lo tengo alojado gratis en brinkster.com.
El mensaje de error es el siguiente:

Cita:

De objeto de servidor de error 'ASP 0177: 800401f3'

Server.CreateObject

/ V / i / d / vidamisiones / contact_form.asp, la línea 23

800401f3

la linea 23 es:

Cita:

Set objEmail = Server.CreateObject("Persits.MailSender")

El código es:

Cita:

<%
posted = request.form ("submit")
if posted = "Submit" then

'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''
'' Customize the following 5 lines with your own information. ''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''
vtoaddress = "[email protected]" ' Change this to the email address you will be receiving your notices.
vmailhost = "mail.yahoo.com.ar" ' Change this to your actual Domain name.
vfromaddress = "[email protected]" ' Change this to the email address you will use to send and authenticate with.
vfrompwd = "22922965j" ' Change this to the above email addresses password.
vsubject = "ASP Contact Form" 'Change this to your own email message subject.

'''''''''''''''''''''''''''''''''''''''''''
'' DO NOT CHANGE ANYTHING PAST THIS LINE ''
'''''''''''''''''''''''''''''''''''''''''''
vfromname = request.form ("TName")
vbody = request.form ("TBody")
vrplyto = request.form ("TEmail")
vmsgbody = vfromname &"<br>"& vrplyto &"<br>"& vbody

Set objEmail = Server.CreateObject("Persits.MailSender")

objEmail.Username = vfromaddress
objEmail.Password = vfrompwd
objEmail.Host = vmailhost
objEmail.From = vfromaddress
objEmail.AddAddress vtoaddress
objEmail.Subject = vsubject
objEmail.Body = vmsgbody
objEmail.IsHTML = True
objEmail.Send

vErr = Err.Description
if vErr <> "" then
response.write vErr & "<br><br>There was an error on this page."
else
response.write "Thank you, your message has been sent."
End If
Set objEmail = Nothing

response.write "Thank you, your message has been sent."
end if
%>

<html><body>
<form name="SendEmail01" method="post">
<table border=0>
<tr>
<td>Name:</td>
<td><input type="text" name="TName" size="30"></td>
</tr>
<tr>
<td>Email:</td>
<td><input type="text" name="TEmail" size="30"></td>
</tr>
<tr>

Adler · #2 (**permalink**) 12/06/2010, 04:37

Hola

Comprueba que componentes admite el servidor

Código ASP:

Ver original<&#37;
Dim theComponent(5)
Dim theComponentName(5)
    
theComponent(0) = "ADODB.Connection"
theComponent(1) = "Scripting.FileSystemObject"
theComponent(2) = "CDONTS.NewMail"
theComponent(3) = "Persits.Upload.1"
theComponent(4) = "CDO.Message"
    
theComponentName(0) = "ADODB"
theComponentName(1) = "FileSystemObject"
theComponentName(2) = "CDONTS"
theComponentName(3) = "Persits Upload"
theComponentName(4) = "CDOSYS"
    
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
 
 
Dim i
For i=0 to UBound(theComponent)
If Not IsObjInstalled(theComponent(i)) Then
Else
Response.Write "<tr>" & vbCrLf
Response.Write "<td width=""100%"">" & vbCrLf
Response.Write "<b>" & theComponentName(i) & "</b><br>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
Next 
%>

Suerte