ENVIAR EMAIL

ALVAROVB2009 18/10/2014 15:27:35
#442021 Resposta escolhida

Talvez vc tenha visto esse exemplo aqui no forum, más eu corrigi o problema que ele tem, tentei mandar ua atualização más não deu certo

Vc vai usar o esquema que a microsoft disponibiliza

Dim Schema
Schema = [Ô]http://schemas.microsoft.com/cdo/configuration/[Ô]

[ô]cria o objeto para a configuração do envio de e-mail
Dim ConfigEmail As CDO.Configuration
[ô]cria o objeto para o envio de e-mail
Dim EnviaEmail As CDO.Message

Set ConfigEmail = New CDO.Configuration
Set EnviaEmail = New CDO.Message

ConfigEmail.Fields(Schema & [Ô]smtpserver[Ô]) = [Ô]smtp.ig.com.br[Ô]
ConfigEmail.Fields(Schema & [Ô]sendusing[Ô]) = 2
ConfigEmail.Fields(Schema & [Ô]smtpserverport[Ô]) = 587
ConfigEmail.Fields(Schema & [Ô]smtpconnectiontimeout[Ô]) = 20
[ô]Caso precise de criptografia, alguns provedores pedem, exemplo gmail
ConfigEmail.Fields(Schema & [Ô]smtpusessl[Ô]) = True
[ô]Senão
ConfigEmail.Fields(Schema & [Ô]smtpusessl[Ô]) = False

[ô]Caso precise de autenticação
ConfigEmail.Fields(Schema & [Ô]smtpauthenticate[Ô]) = 1
ConfigEmail.Fields(Schema & [Ô]sendusername[Ô]) = seuemail@email.com.br
ConfigEmail.Fields(Schema & [Ô]sendpassword[Ô]) = senha
ConfigEmail.Fields.Update

Set EnviaEmail.Configuration = ConfigEmail

EnviaEmail.From = seuemail@email.com.br
EnviaEmail.To = para quem vai o email

[ô]Assunto da mensagem
EnviaEmail.Subject = Titulo

[ô]Anexar um arquivo
EnviaEmail.AddAttachment App.Path & [Ô]\seuarquivo.pdf[Ô]

EnviaEmail.HTMLBody = [Ô]texto no corpo do email[Ô]

EnviaEmail.Send
Mensagem [Ô]Email enviado com sucesso!!![Ô]
Set ConfigEmail = Nothing
Set EnviaEmail = Nothing


Eu usava umas dlls, más depois que acertei esse esquema, troquei tudo

ANDPAG 19/10/2014 02:10:34
#442025

Olá bom dia, aproveitando o tópico de nosso colega de fórum. Eu usava o envio de e-mail em um sistema que tenho também via CDO só que de uns tempos para cá ele parou de funcionar. Vi o exemplo acima e testei ele também mas o erro persiste. Nunca mais funcionou e eu tentei de tudo para fazer voltar a rodar mas não dá. O erro que aparece é [Ô]-2147220973 - Falha na conexão do transporte com o servidor[Ô]. Depois que essa mensagem começou a aparecer meu cliente nunca mais conseguiu enviar email pelo sistema. Alguém sabe o porque deste erro?

EPISCOPAL 19/10/2014 10:13:04
#442027

Olha .... tem diversos exemplos de envio de email sem uso de dll ... so api ...
lá no www.planet-source-code.com, e só fazer uma pesquisa

ALVAROVB2009 20/10/2014 09:54:03
#442036

FFECHER conseguiu enviar o email??

ANDPAG da uma olhada nas configurações do provedor, tem uns que pedem para usar a criptografia no ssl, outros pedem para ter autenticação, outros pedem todos, alguns não pedem nada, eu estava com esse erro e quando fui ver o provedor que eu estava usando para o envio de email, pedia que o email tivesse a a criptografia no SSL

FFECHER 21/10/2014 15:14:38
#442070

Vou testar me ausentei da empresa aqui por isso não testei ainda.

FFECHER 28/10/2014 12:59:11
#442186

Obrigado amigo funcionou perfeitamente.