[Resolvido] Fora de Forma: Envio de E-mail.

[retrolink 0]

ou você esta colocando errado.... coloque o code completo apenas mude a linha da senha para 123456 por questão de segurança, passe o code completo.

[SkyDive 0]

retrolink,

 

Novamente foi mal a demora. Esses dias estao mega corridos!!!!!

 

 

Abaixo segue o codigo que estou usando

 

<%
function recuperasenha(vApelido,vEmail,vSenha)

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

       Dim meuservidorsmtp       : meuservidorsmtp       = "smtp.google.com.br"
       Dim minhacontaautenticada : minhacontaautenticada = "fe.at@gmail.com"
       Dim minhasenhaparaenvio   : minhasenhaparaenvio   = "9999999"
       Dim emailorigem           : emailorigem           = "fe.at@gmail.com"
       Dim emaildestino          : emaildestino          = vEmail

       sch = "http://schemas.microsoft.com/cdo/configuration/"

       cdoConfig.Fields.Item(sch & "sendusing")             = 2
       cdoConfig.Fields.Item(sch & "smtpauthenticate")      = 1
       cdoConfig.Fields.Item(sch & "smtpserver")            = meuservidorsmtp
       cdoConfig.Fields.Item(sch & "smtpserverport")        = 25
       cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
       cdoConfig.Fields.Item(sch & "sendusername")          = minhacontaautenticada
       cdoConfig.Fields.Item(sch & "sendpassword")          = minhasenhaparaenvio
       cdoConfig.fields.update

       Set cdoMessage = Server.CreateObject("CDO.Message")
       Set cdoMessage.Configuration = cdoConfig

       cdoMessage.BodyPart.Charset = "utf-8"
       cdoMessage.From    = "Resenlista <"& emailorigem &">"
       cdoMessage.To      = emaildestino
       cdoMessage.Subject = "Resenlista >> Sua senha no Resenlista"

       strBody = "<font face=""Arial"" style=""font-size:12px"">" & _
       "Olá <strong>"& vApelido &"</strong>!" & _
       "<br><br>" & _
       "Você solicitou sua senha através do nosso site." & _
       "<br><br>" & _
       "</font>" & _
       "<table cellpadding=""10"" cellspacing=""0"" border=""0"" style=""border:1px solid #787777"">" & _
       "<tbody>" & _
       "<tr>" & _
       "<td>" & _
       "<b>" & _
       "<font face=""Arial"" style=""font-size:12px"">" & _
       "e-mail: <a href=""mailto:"& vEmail &""" target=""_blank"">"& vEmail &"</a>" & _
       "<br>" & _
       "senha: "& vSenha &"" & _
       "</font>" & _
       "</b>" & _
       "</td>" & _
       "</tr>" & _
       "</tbody>" & _
       "</table>" & _
       "<br>" & _
       "Um abraço," & _
       "<br><br>" & _
       "Equipe Resenlista" & _
       "<br><br>" & _
       "<font color=""#888888"">" & _
       "RESENLISTA" & _
       "<br>" & _
       "Explore. Indique. Divirta-se<br>" & _
       "<a href=""http://www.resenlista.com.br"" style=""color:#000"" target=""_blank"">www.resenlista.com.br</a>" & _
       "</font>" & _
       "</font>"

       strBody = strBody & "."
       cdoMessage.HTMLBody = strBody
       cdoMessage.Send

       Set cdoMessage = Nothing
       Set cdoConfig  = Nothing

End Function

call recuperasenha("Agora VAI","fvg@gmail.com","1234")
%>

 

Um membro aqui da comunidade mesmo que passou esse codigo.

 

Como falei, estou achando que o problema deve ser ou na dll ou no IIS. Mas a dll ja esta registrada. E ate onde eu sei, o IIS, aparentemente, esta normal. Processa tudo na boa. So isso o email que nao rola.

 

 

Nossa nunca demorei tanto pra resolver um problema... estou MESMO fora de forma.... :-/

[retrolink 0]

aqui já esta o primeiro erro..

 

Dim meuservidorsmtp : meuservidorsmtp = "smtp.google.com.br"

 

o correto é

 

Dim meuservidorsmtp : meuservidorsmtp = "smtp.gmail.com"

 

aqui tb esta errado...

 

cdoConfig.Fields.Item(sch & "smtpserverport") = 25

 

o correto é...

 

cdoConfig.Fields.Item(sch & "smtpserverport") = 465

 

faça o teste e coloca o resultado... lembrando que você deve modificar essas linhas acima que eu te passei... e colocar um login do gmail e senha válidos! cadastrados lá.

[SkyDive 0]

retrolink,

 

Fiz EXATAMENTE as alteracoes que você falou. Nao rolou... deu essa msg de erro:

 

CDO.Message.1 error '80040213'

 

The transport failed to connect to the server.

 

/ATEC/testeemail.asp, line 67

 

a linha 67 e o comando cdoMessage.Send

 

 

 

Cara, isso ja esta virando piada... nao sei mais onde olhar...

[xanburzum 169]

coloque o SSL como true, sdicione essas linhas

 

 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

[retrolink 0]

poste o code completo e como esta tentando enviar o email, vou verificar se esta certinho... troque apenas a senha por questão de segurança.

[xanburzum 169]

tive um problema no CDOSYS com gmail, pois havia esquecido de habilitar o SSL e habilitar o uso de SMTP pelo painel do Google Apps

[SkyDive 0]

MEU DEUS!!!!!! NAO ACREDITO!!!!!

 

FUNCIONOU!!!!!!!!!!!!!!!!!!!! :D :D :D :D :D :clap: :clap: :clap: :clap: :clap: :clap: :joia: :joia: :joia: :joia: :joia: :joia:

 

 

xanburzum,

 

Adicionei as duas linhas que voce postou. La no Gmail, habilitei a opcao "Sempre usar https"

 

Nao vi nada la sobre habilitar o smtp. Tem apenas do imap.

 

 

Mas assim que coloquei as duas linhas

 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

 

Ele enviou o email... PERFECT!!!!

 

Nossa cara MUITISSIMO obrigado!!!!

 

 

retrolink, voce fio de grande ajuda cara, esteve sempre prestativo.

 

Nossa galera de verdade, obrigado mesmo. Ja estava quase abandonando isso, apesar de nao poder...

 

 

So para terminar, usando esse metodo com o CDOSYS, eu posso enviar MUITOS emails ao mesmo tempo, ou ha algum limite? Posso usar isso para uma newsletter com, sei la, umas 1000 pessoas cadastradas? Ele enviaria 1000 emails de boa?

 

 

 

Valeu novamente!!!

 

Nossa como estou contente!!!! :clap: :clap: :clap: :clap:

[xanburzum 169]

maravilha amigo, precisando estamos ai...

[retrolink 0]

bacana, :) :joia:

[xanburzum 169]

vou disponibilizar um artigo falando do Gamil e CDOSYS, pois percebi que muita gente tem dificuldades.

 

valeu

[SkyDive 0]

xanburzum,

 

Seria legal mesmo se você pudesse disponibiizar algum artigo desse tipo. Toda comunidade agradeceria e muito!!!

 

Se pudesse dar umas dicas, cite se esse metodo pode ser usado tanto por pessoas fisicas quanto por grandes corporacoes, que precisam enviar grande quantidade de emails.

 

 

 

Novamente, muito obrigado por sua ajuda!!!!

[xanburzum 169]

legal amigo, vou sim...

estou começando a fazer ele...