USO DO COMPONENTE CDO NO WINDOWS 7
Boa noite amigos, tenho uma aplicação que envia email utilizando o componente cdosys.dll, no Windows XP e no 2003 ela funciona perfeitamente. No windows 7 bits não vai de jeito nenhum, gera um erro
-2147220972 falha na conexão do transporte com o servidor.
Já pesquisei bastante e não encontrei a solução, alguém já teve problema com a utilizacao deste componente no Windows 7 ?
Desde já agradeço a ajuda
Att,
Márcio Godoi
-2147220972 falha na conexão do transporte com o servidor.
Já pesquisei bastante e não encontrei a solução, alguém já teve problema com a utilizacao deste componente no Windows 7 ?
Desde já agradeço a ajuda
Att,
Márcio Godoi
Pessoal, alguem poderia testar este codigo no windows 7 64 bits para ver se envia email. No XP funciona perfeitamente no Windows 7 não esta indo.
[txt-color=#0000f0]Public Function EnvioDeEmail(Assunto As String, mensagem As String, Optional Arquivo As String, Optional EnviaErro As Boolean)
On Error GoTo erro
Dim MSG As CDO.Message
Dim Cof As CDO.Configuration
Dim Camp
Set MSG = New CDO.Message
Set Cof = New CDO.Configuration
Set Camp = Cof.Fields
With Camp
.item(cdoSendUsingMethod) = cdoSendUsingPort
.item(cdoSMTPServer) = [Ô]smtp.gmail.com[Ô]
.item(cdoSMTPConnectionTimeout) = 20
.item(cdoSMTPAuthenticate) = 1
.item(cdoSendUserName) = [Ô]emailRemetente@gmail.com[Ô]
.item(cdoSendPassword) = [Ô]senhaEmail[Ô]
.item(cdoSMTPUseSSL) = True
. item(cdoSMTPServerPort) = 465
.Update
End With
With MSG
Set .Configuration = Cof
.To = [Ô]emailDestinatario@yahoo.com.br[Ô]
.From = [Ô][Ô]emailRemetente@gmail.com[Ô]
.Subject = [Ô]Teste Email[Ô]
.TextBody = [Ô]Teste[Ô]
.send
End With
MsgBox [Ô] Email enviado com sucesso[Ô]
Exit Function
erro: MsgBox [Ô]Ocorreu um erro ao enviar o email [Ô] & Err.Number & Err.Description, vbCritical
End Function[/txt-color]
[txt-color=#0000f0]Public Function EnvioDeEmail(Assunto As String, mensagem As String, Optional Arquivo As String, Optional EnviaErro As Boolean)
On Error GoTo erro
Dim MSG As CDO.Message
Dim Cof As CDO.Configuration
Dim Camp
Set MSG = New CDO.Message
Set Cof = New CDO.Configuration
Set Camp = Cof.Fields
With Camp
.item(cdoSendUsingMethod) = cdoSendUsingPort
.item(cdoSMTPServer) = [Ô]smtp.gmail.com[Ô]
.item(cdoSMTPConnectionTimeout) = 20
.item(cdoSMTPAuthenticate) = 1
.item(cdoSendUserName) = [Ô]emailRemetente@gmail.com[Ô]
.item(cdoSendPassword) = [Ô]senhaEmail[Ô]
.item(cdoSMTPUseSSL) = True
. item(cdoSMTPServerPort) = 465
.Update
End With
With MSG
Set .Configuration = Cof
.To = [Ô]emailDestinatario@yahoo.com.br[Ô]
.From = [Ô][Ô]emailRemetente@gmail.com[Ô]
.Subject = [Ô]Teste Email[Ô]
.TextBody = [Ô]Teste[Ô]
.send
End With
MsgBox [Ô] Email enviado com sucesso[Ô]
Exit Function
erro: MsgBox [Ô]Ocorreu um erro ao enviar o email [Ô] & Err.Number & Err.Description, vbCritical
End Function[/txt-color]
Colega,
Em último caso ou emergência, instale seu aplicativo em modo de compatibilidade com S.O. que funcione e veja se vai funcionar também.
[]'s
Em último caso ou emergência, instale seu aplicativo em modo de compatibilidade com S.O. que funcione e veja se vai funcionar também.
[]'s
Tópico encerrado , respostas não são mais permitidas