Enviar por email

[Miguel Mcc 0]

olá

eu estou tentando fazer uma opção de enviar por email tipo o que tem no site: http://g1.globo.com/Noticias/Mundo/0,,MUL76834-5602,00.html

 

qual componente asp eu uso? ja tentei o cdosys e nao consegui .

[Ted k' 126]

O componete que você usa vai de acordo ao que o seu servidor suporta:

 

Exemplo, eu uso o CDO.Message que pega no meu servidor

 

verifique junto ao servidor qual componente você poderá usar

[Miguel Mcc 0]

e o meu servidor tem as opções de CDONTS E CDOSYS

[Miguel Mcc 0]

e o meu servidor tem as opções de CDONTS E CDOSYS

<% '## Configuração do cabeçalho da mensagemsDestinatario = "para"sRemetente = "remetente"sResponder = ""sAssunto = "Teste CDOSYS LocaWeb"sMensagem = "texto" '## configurações do componente CDOSYSSet objCDOSYSMail = Server.CreateObject("CDO.Message") 'Cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" '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 ' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####'configura o remetente objCDOSYSMail.From = sRemetente 'configura o destinatário objCDOSYSMail.To = sDestinatario'configura o reply-to objCDOSYSMail.ReplyTo = sReponder 'configura o assunto objCDOSYSMail.Subject = sAssunto ''configura o conteúdo da mensagem objCDOSYSMail.TextBody = sMensagem '### FIM DAS CONFIGURAÇÕES DO CABEÇALHO ###'para envio da mensagem no formato html altere o TextBody para HtmlBody 'objCDOSYSMail.HtmlBody = v_corpo 'objCDOSYSMail.fields.update ' ### ENVIA O E-MAIL ###objCDOSYSMail.Send ' ### DESTRÓI OS OBJETOS ### Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write "Mensagem acentuada enviada para:  "&sDestinatario&"..." %>