depende amigo.
No sé si falla Arsys mi código.... te explico:
En local funciona correctamente con CDONTS usando este código:
<% if mensaje <> "" then
' if instr(destino,"@")<>0 and instr(destino,".")<>0 then
'Dim objMail As CDONTS.NewMail
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
destino="[email protected]"
'response.Write("Nombre" & nombre & "<--" & "<br>")
'response.Write("destino" & destino & "<--" & "<br>")
myMail.From = destino
myMail.To = nombre
myMail.Subject =asunto
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = HTML
myMail.Send
Set myMail = Nothing
'objMail.From = nombre
'objMail.To = destino
'objMail.Subject = asunto
'objnewmail.BodyFormat = 0
'objnewmail.MailFormat = 0
'objMail.Body = html
'objMail.Send
'Set objMail = Nothing
' end if
Lo q pasa es q Arsys solo funciona con ASPmail, pero cambio entonces a:
<% if mensaje <> "" then
' if instr(destino,"@")<>0 and instr(destino,".")<>0 then
'Dim objMail As Persits.MailSender
Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
destino="[email protected]"
'response.Write("Nombre" & nombre & "<--" & "<br>")
'response.Write("destino" & destino & "<--" & "<br>")
Mail.From = destino
Mail.To = nombre
Mail.Subject =asunto
Mail.BodyFormat = 0
Mail.MailFormat = 0
Mail.Body = HTML
Mail.Send
Set Mail = Nothing
'objMail.From = nombre
'objMail.To = destino
'objMail.Subject = asunto
'objnewmail.BodyFormat = 0
'objnewmail.MailFormat = 0
'objMail.Body = html
'objMail.Send
'Set objMail = Nothing
' end if
Pero no consigo q me mande los correos, el error q me devuelve es:
Error de Microsoft VBScript en tiempo de ejecución error '800a01b6'
El objeto no acepta esta propiedad o método: 'to'
enviacorreo.asp, línea 198
Me imagino q tendré q modificar algo más en el código... pero la verdad no se dnd echar mano.
Una ayudita??
GRACIAS!!!