ENVIAR EMAIL COM AUTENTICACAO SSL COM O VBSENDMAIL
[ô].Item(cdoSMTPConnectionTimeout) = 300 [ô] Tempo [ô]determinar o timeout pode [Ô]frustrar[Ô] por conta da nossa qualidade de serviços de banda-larga e telefonia em geral.Pra enviar email com attachment,o servidor corta a conexao,o timeout deve ser bem maior que isso..
uso 10000 e funciona
Olha ai,aqui funciona!!!
Dim envia As New ENVIA_EMAIL.ENVIA_EMAIL
[ô]variavel vazia pra passar como referencia
Dim Erro As String
If (envia.fn_envia([Ô]eu@gmail.com[Ô], [Ô]Teste[Ô], [Ô]Mensagem . . . Ola!![Ô], [Ô]senhaxxx[Ô], [Ô]587[Ô], [Ô]smtp.gmail.com[Ô], 1, [Ô]ela@gmail.com[Ô], Erro,[Ô]C:\ANEXO.jpg[Ô])) Then
MsgBox([Ô]Enviado![Ô])
Else
MsgBox([Ô]Erro: [Ô] & Erro)
End If
copia a DLL e o TLB no system32,sem registrar,puxe a referencia pro TLB cole o codigo que eu mandei...
As referencias nao vao aparecer enquanto voce digita pois a DLL nao esta registrada no sistema.
Copia e cola e altera os parametros,e tente rodar..
Faça o teste em um projeto novo,se der certo implemente ele no seu oficial
[ô]variavel vazia pra passar como referencia
Dim Erro As String
If (envia.fn_envia([Ô]eu@gmail.com[Ô], [Ô]Teste[Ô], [Ô]Mensagem . . . Ola!![Ô], [Ô]senhaxxx[Ô], [Ô]587[Ô], [Ô]smtp.gmail.com[Ô], 1, [Ô]ela@gmail.com[Ô], Erro,[Ô]C:\ANEXO.jpg[Ô])) Then
MsgBox([Ô]Enviado![Ô])
Else
MsgBox([Ô]Erro: [Ô] & Erro)
End If
copia a DLL e o TLB no system32,sem registrar,puxe a referencia pro TLB cole o codigo que eu mandei...
As referencias nao vao aparecer enquanto voce digita pois a DLL nao esta registrada no sistema.
Copia e cola e altera os parametros,e tente rodar..
Faça o teste em um projeto novo,se der certo implemente ele no seu oficial
Professor obrigado pelo retorno, ontem (alias hj rsrs) olhando os seus códigos eu vi realmente o SSL coisa q eu não tinha colocado no meu código, eu testei com a porta 587 aqui no meu pc e funcionou, só não consegui colocar o smtpusessl, pois aki deu como inválido, será q tem alguma ou versão do CDO que tenha essa opção?
PHOENIX209E obrigado novamente pelo retorno, cara irei testar sim, é que como as opções não estavam aparecendo achei que tinha alguma coisa de errado, pois vc tinha falado que era eu setar os parametros a medida que ia aparecendo, qdo não apareceram achei q eu tinha feito caca, rsrsrs
Más vlw vou testar aki e darei um retorno também
PHOENIX209E obrigado novamente pelo retorno, cara irei testar sim, é que como as opções não estavam aparecendo achei que tinha alguma coisa de errado, pois vc tinha falado que era eu setar os parametros a medida que ia aparecendo, qdo não apareceram achei q eu tinha feito caca, rsrsrs
Más vlw vou testar aki e darei um retorno também
cara..
consegui
uma solução!!!!..
siga estes passos:
PEGA A DLL QUE EU TE PASSEI E O TLB COPIA PRA PASTA SYSTEM32
VOCE RPECISARA USAR O REGASM QUE SE ENCONTRA NA PASTA:
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727
DIRECIONE O PROMPT DE COMANDO PRA ESTA PASTA,ASSIM:
C:>CD WINDOWS\Microsoft.NET\Framework\v2.0.50727
EM SEGUIDA
RegAsm C:\WINDOWS\SYSTEM32\ENVIA_EMAIL.DLL /codebase
DE ENTER
ELE VAI DAR UMA MENSAGEM DE EXITO,COLE O CODIGO QUE EU PASSEI PRA VOCE,COLOCA COMO REFERENCIA A TLB E TENTE RODAR,
POSTA AE SE CONSEGUIU!!
TESTEI NUM WINDOWS PURO SEM NADA E FUNCIONOU PERFEITAMENTE ;)
ABRAÇOS!!!
PS:ATUALIZEI NOVAMENTE A DD ... FAÇA O TESTE COM ESTA NOVA,SUBSTITUA A ANTIGA
consegui
uma solução!!!!..
siga estes passos:
PEGA A DLL QUE EU TE PASSEI E O TLB COPIA PRA PASTA SYSTEM32
VOCE RPECISARA USAR O REGASM QUE SE ENCONTRA NA PASTA:
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727
DIRECIONE O PROMPT DE COMANDO PRA ESTA PASTA,ASSIM:
C:>CD WINDOWS\Microsoft.NET\Framework\v2.0.50727
EM SEGUIDA
RegAsm C:\WINDOWS\SYSTEM32\ENVIA_EMAIL.DLL /codebase
DE ENTER
ELE VAI DAR UMA MENSAGEM DE EXITO,COLE O CODIGO QUE EU PASSEI PRA VOCE,COLOCA COMO REFERENCIA A TLB E TENTE RODAR,
POSTA AE SE CONSEGUIU!!
TESTEI NUM WINDOWS PURO SEM NADA E FUNCIONOU PERFEITAMENTE ;)
ABRAÇOS!!!
PS:ATUALIZEI NOVAMENTE A DD ... FAÇA O TESTE COM ESTA NOVA,SUBSTITUA A ANTIGA
Blz, eu ja ia testar a solução q vc tinha me dado, pq o cbo mesmo com a porta de segurança 587, não funcionou aff
Vou pegar esse caminho q vc me passou, vamos ver se agora da para passar por esse servidor do gmail, eita trabalho q esta dando só por causa do envio de segurança do SSL, pelo menos é o q eu acredito que seja
Vou pegar esse caminho q vc me passou, vamos ver se agora da para passar por esse servidor do gmail, eita trabalho q esta dando só por causa do envio de segurança do SSL, pelo menos é o q eu acredito que seja
Funciona sim cara,aqui aonde trabalho roda meu sistema em vb net e c# com essa dll ai na porta 587 aonde o pessoal trabalha com marketing e vendas,funciona sem problemas,inclusive com uma lista gigante de email com um laço de repetiçao pra enviar os emails hahaha nunca deu pau!! com o Gmail ainda hein!
PHOENIX209E esse RegAsm, só tem no .net?
Pq na minha máquina e nem da meu cliente não tem o microsoft.net, pq eu uso só o vb6, por enquanto, então esse caminho para mim não dá para fazer.
Será q eu encontro ele na net, ou ele precisa de um conjunto todo q faz parte do framework
Pq na minha máquina e nem da meu cliente não tem o microsoft.net, pq eu uso só o vb6, por enquanto, então esse caminho para mim não dá para fazer.
Será q eu encontro ele na net, ou ele precisa de um conjunto todo q faz parte do framework
Entao!..
Se nao tem,voce deve instalar o pacote do framework...
Eis o Link
http://www.microsoft.com/downloads/details.aspx?familyid=333325fd-ae52-4e35-b531-508d977d32a6&displaylang=pt-br
Se nao tem,voce deve instalar o pacote do framework...
Eis o Link
http://www.microsoft.com/downloads/details.aspx?familyid=333325fd-ae52-4e35-b531-508d977d32a6&displaylang=pt-br
PHOENIX209E vlw pela ajuda, na minha rodou 100% também, e no meu cliente eu não precisei baixar o framework porque o dele é windows 7, registrei a DLL, conforme vc falou e mandei um teste, e deu certinho \o/.
Vlw pela ajuda e o comando para ela é bem fácil mesmo, só que mesmo registrando a dll, no meu pc que é XP, a lista com as opções não apareceu. Más o importante é q deu certo, vlw mesmo
Agora falei com o meu cliente, e ele vai começar a mandar os pedidos, más acho que não terá mais nenhum problema
Estarei encerrando o tópico, se precisar e quiser pode me add no msn, e o q eu puder ajudar, conte comigo também
Agradeço a PHOENIX209E e ao Professor que também me deu uma grande força
Vlw pela ajuda e o comando para ela é bem fácil mesmo, só que mesmo registrando a dll, no meu pc que é XP, a lista com as opções não apareceu. Más o importante é q deu certo, vlw mesmo
Agora falei com o meu cliente, e ele vai começar a mandar os pedidos, más acho que não terá mais nenhum problema
Estarei encerrando o tópico, se precisar e quiser pode me add no msn, e o q eu puder ajudar, conte comigo também
Agradeço a PHOENIX209E e ao Professor que também me deu uma grande força
Tópico encerrado , respostas não são mais permitidas