Solo quería saber si mi puden ayudar a encontrar el error en el siguiente codigo de envió de correo por AspEmail.
El código me fue suministrado por brinkster en el cual tengo alojado mi sitio gratuitamente. Solo tenia que completar cinco lineas, donde coloco los correos remitentes y de destino y alguna cosa más, así que el error pueden estar en esas cuatro líneas pero no puedo saber cual puede ser.
El mensaje error que me aparece 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
Server.CreateObject
/ V / i / d / vidamisiones / contact_form.asp, la línea 23
800401f3
El código es el siguiente: (aclaración las 5 líneas que tengo que completar estan en negrita)
Cita:
La línea 23 es:<%
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>
<td><input type="submit" name="Submit" value="Submit"></td>
</tr>
</form>
</body></html>
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>
<td><input type="submit" name="Submit" value="Submit"></td>
</tr>
</form>
</body></html>
Cita:
Gracias a Todos. Set objEmail = Server.CreateObject("Persits.MailSender")
