Ir para conteúdo
Fórum Script Brasil

Barboza

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Tudo que Barboza postou

  1. Resolvido. Consegui achar a solução para o problema. Basta apenas inserir mais esta linha no códido: cdoConfig.Fields.Item(sch & "smtpusessl ") = TRUE Isto se deve pelo fato do servidor SMTP exigir uma conexao segura (SSL). Fonte: http://msdn.microsoft.com/en-us/library/ms...(EXCHG.65).aspx Um abraço a todos. Obs.: Eu usei a porta 25 ao invés da 465 como postei, no caso do GMAIL.
  2. Pessoal, primeiramente já tentei pesquisa no forum, li alguns posts que estavam resolvidos, porém não obtive sucesso ainda... Meu caso é este: Estou em um Windows XP com serviço IIS instalado. O arquivo "cdosys.dll" já esta registrado. Para tanto executei o comando no "iniciar/executar" ( regsvr32 cdosys.dll )... registrado com sucesso Estou tentando fazer com que um formulário envie as informações para o meu e-mail. Em matéria de teste, criei um arquivo chamado "email.asp" com o seguinte código: ==================================================================== <% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.gmail.com" ' Estou tentando utilizar o GMAIL cdoConfig.Fields.Item(sch & "smtpserverport") = 465 ' No help do gmail a porta que eles especificam é esta (já tentei na porta 25) cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = "meu_email_particular@gmail.com" cdoConfig.Fields.Item(sch & "sendpassword") = "senha_particular" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = "meu_email_particular@gmail.com" cdoMessage.To = "email_para quem_vai@hotmail.com" cdoMessage.Subject = "E-mail de Teste" htmlText = "MENSAGEM DO EMAIL" cdoMessage.HTMLBody = htmlText On Error Resume Next cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.write"Mensagem enviada com sucesso..." %> ==================================================================== A ideia do teste é que toda vez que eu acessar esse arquivo/pagina "email.asp" ele me mande esse e-mail de teste. O que esta acontecendo é que, quando eu acesso essa pagina, ele me retorna com a resulto "Mensagem enviada com sucesso..." Mas no e-mail eu não recebo nada. Bom, acho que é isso.... Um abraço a todos(as).
×
×
  • Criar Novo...