Exemplo Simples De Como Enviar Email Com Cdosys

[Davis Tome]

Por favor gostaria de saber se alguém poderia me passar um form e uma pagina em asp usando CDOSYS para eu ver como funciona!

No form pode ter os campos nome, email remetente e destinatario já esta bom

Obrigado

[resopi]

ola esse aki é um exemplo que ue peguei na net... não me lembro aonde... não tem o form... mas acridito que você não tenhaproblemas...

<%

'cria o objeto para o envio de e-mail

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

' o CDOSYS precisa ser configurado em Rum-Time antes de ser enviado

'Aconcelhamos mudar somente o servidor SMTP da configuração

'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.seu_dominio.com.br"

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente

objCDOSYSMail.From = "eu@seu_dominio.com.br"

'e-mail do destinatário

objCDOSYSMail.To = "destinatario@servidor.com.br"

'assunto da mensagem

objCDOSYSMail.Subject = "CDOSYS e-mail"

'texto da mensagem

objCDOSYSMail.TextBody = "Conteudo enviado pelo CDOSYS"

objCDOSYSMail.Send

'Tirando os Objetos da memoria

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

%>

[Davis Tome]

Obrigado!!!

[dark0]

Dê uma olhada aqui

http://scriptbrasil.com.br/forum/index.php...ndpost&p=176014

T+