EMAIL CDO

USUARIO.EXCLUIDOS 19/04/2007 23:37:33
#212865
Fala galera blz estou enviando email usando CDO , porém da minha máquina vai certinho o mail , em algumas máquinas ele naum envia alguém ja teve esse problema estou usando o código abaixo.

Set CDO = CreateObject("CDO.Message")

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

CDO.From = "de@gmail.com"
CDO.To = "para@gmail.com"
CDO.subject = "assunto"
CDO.TextBody = "texto"

'CDO.Configuration.fields.Item(caminho & "smtpusessl") = "True"
'CDO.Configuration.fields.Item(caminho & "smtpauthenticate") = 1
CDO.Configuration.fields.Item(caminho & "smtpserverport") = 465
CDO.Configuration.fields.Item(caminho & "smtpserver") = "gsmtp185.google.com"
'CDO.Configuration.fields.Item(caminho & "sendusername") = "Usuario"
CDO.Configuration.fields.Item(caminho & "sendpassword") = "0101"

CDO.Configuration.fields.Update

CDO.Send

Set CDO = Nothing
USUARIO.EXCLUIDOS 19/04/2007 23:58:41
#212868
Qual sistema operacional das máquinas em questão.

Pois pode ser que a máquina que não está enviando não tenha o CDO instalado.

Atenciosamente,
USUARIO.EXCLUIDOS 19/04/2007 23:59:46
#212869
Windows XP tb , tem alguma idéia do que posso fazer pra fazer funcionar em todas as maquinas??
USUARIO.EXCLUIDOS 20/04/2007 10:19:22
#212915
cara, eu uso um codigo muito parecido com o seu.
Já testei em winXP SP2 e win2003 Server SP1 e funcionou legal em todas as tentativas... vc pederia ver se a dll cdosys.dll está lá na system32.

não sei se é o caso de registrar a parada com regsvr32... alguém ai sabe?
USUARIO.EXCLUIDOS 20/04/2007 12:52:29
#212987
Cara testei aqui registrando antes tem uma api do windows que registra componente chamei ela pra registrar pra depois enviar o email e nada , não foi, a nivel de teste tb registrei na mao regsvr32 ...... e nada tb , não chegou email , tem alguma outra idéia ????
USUARIO.EXCLUIDOS 21/04/2007 21:10:09
#213182
UP^^
USUARIO.EXCLUIDOS 23/04/2007 10:31:10
#213298
retorna algum erro?
Tópico encerrado , respostas não são mais permitidas
Voltar