p/ salgado (codigo incgenmail)

[sarah_b 0]

Olá,É esse código que você disse p/ postar aki?<%Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText ) Dim objMail set objMail = server.createobject("SMTPsvg.Mailer") objMail.FromName = sFromEmail objMail.FromAddress = sFromEmail objMail.RemoteHost = sEmailServer objMail.AddRecipient sToEmail, sToEmail objMail.Subject = sSubject objMail.BodyText = sText if objMail.SendMail then SendEmail = "" else ' Message send failure SendEmail = objMail.Response end if Set objMail = nothing End Function%>

[Salgado 4]

Esse mesmo, o seu erro é pq no servidor não tem esse componente de e-mail, dá uma pesquisada por lá e veja qual é o componente, ou então dá uma olhada nesse código Listar componentes,coloque ele no servidor e veja quais componentes de e-mail ele suporta!

 

 

Valeu?

[sarah_b 0]

Nossa valeu msm! ;) Mas dá p/ fazer alguma coisa p/ usar esse sistema de cartao virtual nesse servidor?Se eu testar os componentes, e tiver algum q suporte, da p/ usar?

[Salgado 4]

Sim, sabendo qual componente de e-mail, é só trocar a rotina de envio pela correspondente.

 

 

Valeu?

[sarah_b 0]

valeu!! ;)

[Salgado 4]

Olha, eu não tenho certeza se está certo. Teste aí, qq coisa poste aqui o erro que deu!

<%Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText )
Dim objMail
Set objNewMail = Server.CreateObject("Persits.MailSender")
objMail.FromName = sFromEmail
objMail.From = sFromEmail
objMail.AddReplyTo strSender
objMail.Host = sMailServer
objMail.AddAddress sToEmail, sToEmail
objMail.Subject = sSubject
objMail.Body = sText
if objMail.SendMail then
SendEmail = ""
else
' Message send failure
SendEmail = objMail.Response
end if
Set objMail = nothing 
End Function%>

Ok?