Problemas no envio de email

[ditao 0]

e ae galerinha td em cima?

espero que sim ;)

 

 

bom galera.. essas são as propriedades com meu servidor http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

 

posso instalar o cdonts?

 

como não sei fazer isso to tentando usar o aspemail mais tmb não to conceguindo

fiz em flash um campo de envio com 3 variaveis

campos variaveis

nome nome

email email

msg msg

 

to utilizando esse codigo aqui:

 

<%

 

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

 

Mail.Nome = Request("nome")

Mail.email = Request("email")

Mail.msg = Request("msg")

 

Mail.Host = "smtp.kabweb.com.br"

Mail.From = "NAME="email" 'Email do remetente

Mail.FromName = "nome" 'Nome do remetente

Mail.AddAddress "ditao_m@yahoo.com.br" 'Email do destinatario

Mail.Subject = "SITE PESSOAL" 'Assunto do email

Mail.IsHtml = true 'Define se o email vai ser em formato html

Mail.Body = "NAME="msg" 'Corpo do email

Mail.Send 'Envia o email

 

Response.write("status=Email enviado com sucesso")

 

set Mail = nothing

 

%>

mais o problema é que o email não chega.. nem sai do site eu axo ;PPP

qq tenho q fazer.. existe erro no aspemail que eu fiz?

 

me ajudem pro favor ficarei MUITO grato.. abraços http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Arak 0]

Saudações....

 

Faça o reuquest das informações e jogue na mesnagem.

 

set objMail = server.CreateObject("CDO.Message")set objCon = server.CreateObject("CDO.Configuration")objCon.fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1objCon.fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "emailparaenviar@email.com.br"objCon.fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "sua senha"objCon.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.seuservidor.com.br" objCon.fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25objCon.fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2objCon.fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30objCon.Fields.Updateset objMail.Configuration = objConobjMail.From = mobjMail.To = "email@email.com.br"objMail.Subject = "Titulo da mensagem"objMail.HtmlBody = "<div>Aqui vai sua mensagem</div>" objMail.Sendset objMail = nothingset objCon = nothing

espero ter ajudado