[Resolvido]Envio de email sem Outlook

Uma dúvida, aqui deu erro no Windows 7, será que é a referencia? Pq não enviou


Function EnviarEmail()
On Error GoTo erromail
Dim Mens As CDO.Message
Dim Config As CDO.Configuration

Set Config = New CDO.Configuration

With Config

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.suaconta.com.br" 'seu servidor de e-mail
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' porta usada pelo seu servidor de e-mail
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "o nome do usuario para logon no servidor" 'user do servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha do servidor" 'coloque a senha do seu email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update

End With

Set Mens = New CDO.Message

With Mens

Set .Configuration = Config
.From = "Nome de quem envia" 'quem envia

If Not IsNull(Me.txtDeMail) Then
.Sender = Me.txtDeMail 'email de quem envia.
End If

If Not IsNull(Me.txtCOculta) Then
.BCC = Me.txtCOculta
End If

.Subject = Me.txtAssunto 'caixa texto assunto
.TextBody = Me.txtMensagem 'Caixa texto com o texto"

If Not IsNull(Me.txtPara) Then
.To = Me.txtPara 'caixa texto para quem vai o email"
End If

If Not IsNull(Me.txtAnexo) Then
.AddAttachment (Me.txtAnexo)
End If

.Send ' envia

End With

MsgBox "Menssagem enviada com sucesso"

Set Mens = Nothing
Set Config = Nothing
Exit Function

erromail:
MsgBox Err.Number & " " & Err.Description
Set Mens = Nothing
Set Config = Nothing
Exit Function

End Function

O exemplo que o amigo pegou no svc foi postado por mim. Eu o fiz no Access 2007 com extensão mdb e sob Windows 7 e funcionou perfeitamente. Qual email você está usando? Se for do gmail terá que mudar a porta e adicionar mais uma linha para liberar.

no Windows XP esta funcionando normal, mas no Windows 7 deu esse erro.

Uso Hotmail.

Tente baixar o exemplo do portal svc e teste para ver o que acontece: http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000207

Eu o utilizo no 7 64b e 32b e funciona normal com conta de um provedor particular... Criquio, você menciona em adicionar mais uma linha para funcionar no gmail, quanto a porta tranquilo que sei que ela muda, mas com relação a linha qual seria?

Olá Pablo. A linha é essa em vermelho aí abaixo:

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuario@gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "SuaSenha"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

Valeu!!!!

Eu tenho Win 7 e funfa perfeito, Office 2003

Olá amigos eu estou usando o Runtime no Windows 7, será que tem como vcs testarem com o runtime?
O erro é esse da foto.

No windows Xp ta rodando normal.

Eu tenho a rotina rodando com runtime 2010 no W7 32 e 64 e eles funcionam 100% o erro que deu pelo que parece é do servidor, ou seja esta sendo enviado um parametro... é possível que seja algo de configuração, você esta usando a conta do hotmail? pode me informar as portas e servidores que esta utilizando para poder tentar fazer um teste...

Esse é um erro de segurança da criptografia do TLS.

Procure por:
Desligar TLS do servidor SMTP virtual.

Pablo olhe as configurações

smtp.live.com
e a porta é 25

JPaulo, o estranho é que no Windows XP está normal, então a configuração deve ser alterada no Windows 7?

Isso mesmo.

Essa configuração é alterada por defeito no Seven.

Ok, vou tentar aqui, abraço

Amigos mudando a propriedade .TextBody para .HTMLBody é possível enviar mensagens em HTML, otimo para mailing (mas fique esperto para não travar se servidor)... Já estou utilizando...

Sds,,,

Olá Amigos,

Eu estava tentando adptar esse código para o VBA do excel, criei até uma conta no gmail para usar o exemplo de vocês, porém ao rodar a macro de vocês ele me retornou a mesagem abaixo, vocês sabem que tipo de erro é esse ? Onde estou errando ?

Mensagem:

-2147220977 the server rejected one or more recipient addresses. The server response was:5553.5.1.2 or other punctuation after the recipient’s email address 27sm2136778yhl.25

O código que eu escrevi é esse:

Function EnviarEmail()
On Error GoTo erromail
Dim Mens As CDO.Message
Dim Config As CDO.Configuration

Set Config = New CDO.Configuration

With Config

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'seu servidor de e-mail
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' porta usada pelo seu servidor de e-mail
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "s2sprogram@gmail.com" 'user do servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******" 'coloque a senha do seu email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update

End With

Set Mens = New CDO.Message

With Mens

Set .Configuration = Config
.From = "Nome de quem envia" 'quem envia


.Sender = "s2sprogram@gmail.com" 'email de quem envia."
.BCC = "Teste"

.Subject = "TESTE e-amil" 'caixa texto assunto
.TextBody = "Estou testando o enmail" 'Caixa texto com o texto"
.To = "*******ig.com.br"


.Send ' envia

End With

MsgBox "Menssagem enviada com sucesso"

Set Mens = Nothing
Set Config = Nothing
Exit Function

erromail:
MsgBox Err.Number & " " & Err.Description
Set Mens = Nothing
Set Config = Nothing
Exit Function

End Function

Para contas gmail, serverport é 465 e não 25.

.BCC = "Teste" → BCC é um email para onde quer que seja enviada uma cópia oculta da mensagem. Se for usar esse atributo, deves colocar um email válido ou referenciar um campo aonde tenha um email válido. Se não precisar, pode excluir essa linha.

Olá Criquio,

Funcionou perfeitamente, agradeço muito !!

Abraços
Vicê é fera mesmo !!!

Obrigado amigo. O forum agradece.

Por favor, alguém poderia mandar para mim o exemplo de envio de email? Tentei o endereço http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000207 mas não achei.

Obrigada!

Amigão

Cliquei encima do link e fui lá, agora para fazer download tem que se registar no Portal. É rápido e simples.

http://www.svcsoftwarehouse.com/

http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000207

Onde trabalho é bloqueado pra download. Por isso pedi esse favor.
Se não for incomodo, é claro.

Kelly Abreu

Certo, não é incómodo nenhum, aguarde que eu envio-lhe por email.

Foi enviado. Verifique o seu email.

Obrigada!!!

Sempre que precisar

Por favor,
Alguém já tentou usar esse código para enviar email pelo iNotes (Web Notes)???

Obrigada!!!

Kelly

Estou tentando usar uma conta do hotmail, mas está dando o erro:
A resposta do servidor foi: 530.5.7.0 must issue a STARTTLS comand first

pesquisei pelo comando STARTTLS, e não entendi nada.

As configurações que estou usando são essas:
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com" ' - tentei também pop3.live.com - porta: 995
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "jr.wano@hotmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

Access 2003 - Windows XP - Exemplo do Valdino: Enviar Email sem Outlook

Alguem pode me ajudar...

Ainda tentando,

Marquei a caixa: Não usar o HTTPS automaticamente

Continua dando o mesmo erro.

Se alguem puder ajudar, agradeço.

Você tem a cdosys.dll na pasta System32 e refenciada no aplicativo?

Oi Criquio,

Sim, a cdosys.dll está na pasta System32
e está referenciada: Microsoft CDO Windows 2000 Library

O Erro que está dando "acho" que é alguma coisa na configuração do hotmail

Microsoft Office Access -2147220978 O Servidor rejeitou o endereço do remetente. A resposta do servidor foi: 530.5.7.0 must issue a STARTTLS comand first

Pelo que pesquisei, tenho que entrar em contas do hotmail e marcar a opcão:
Meu servidor de saída (SMTP) requer autenticação.

Mas já fucei pra tudo que foi lado e não achei a opcão.

Em um post meu mais acima um pouco tem uma linha em vermelho no código que deve ser inclusa em certos casos. Tente incluí-la no seu código e vamos ver no que se acarreta.

Criquio,

inclui a linha:

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

Na verdade já tinha tentado isso, mas fiz novamente e
continua o mesmo erro.

Criquio me desculpe,

me enganei, com a inserção da linha no código, a mensagem de erro mudou:

-02147220975 Não foi possível enviar a mensagem para o servidor SMTP. O código de erro de transporte foi 0x80040217. A resposta do servidor foi not available

Tem certeza que está inserindo o email e aa senha corretamente?

Criquio,

consegui resolver

Troquei a Dll que estava na pasta System32 pela Dll que vc. postou junto com o Aplicativo e funcionou como magica...


Muito obrigado pela atenção e pelo aplicativo disponibilizado, que me será de muita serventia.

Um grande abraço,

Boa noite a todos.
Pessoal gostaria de fazer os envios de emails através do lotus notes, alguém saberia como seria a configuracao?

Amigo,
Estou querendo enviar para uma lista de emails em uma tabela.
poderia me dar uma mão?
olha meu codigo:

Function emails_composicao()
Dim RELAT, ENDE, STRSQL As String
Dim DB As DATABASE, rst As Recordset

Set DB = CurrentDb

Set rst = DB.OpenRecordset("PARAMETROS")

STRSQL = "UPDATE PARAMETROS SET PARAMETROS.ULTATUCOMP = Now();"


If rst.RecordCount > 0 Then

rst.MoveFirst
Do While Not rst.EOF

ENDE = rst!EMAILCOMPOSICAO & ";"

If ENDE = ";" Then
ENDE = ""
Else
ENDE = rst!EMAILCOMPOSICAO & ";"
End If


ENDET = ENDET & ENDE

RELAT = "MODIFCOMPOSICAO"

rst.MoveNext
Loop
End If
' ENVIA O EMAIL
DoCmd.SendObject acTable, RELAT, "ExcelWorkbook(*.xlsx)", ENDET, "", "", "Alteração de Produtos no BOM", "O(s) iten(s) da lista anexa foi(ram) alterado(s) no BOM." & Chr(13) & "Aguardando ação da Engenharia de Manufatura.", False, ""

DoCmd.RunSQL STRSQL

rst.Close
Set DB = Nothing

Comando1_Click_Exit:
Exit Function

Comando1_Click_Err:
MsgBox Error$
Resume Comando1_Click_Exit

End Function

Como adapto para enviar sem outlook? com o outlook está funcionando corretamente.

Abraço.

Boa tarde,

Estou com problemas ao enviar email pelo vb6 usando cdo
       >>  "O código de erro de transporte foi 0x80040217. A resposta do servidor foi not available".

Procurei o exemplo mas não encontrei no site, alguém que tenha poderia me enviar por email, por gentileza, ou me explicar como posso corrigir esse erro.

Agradeço desde já a atenção!

JPaulo,

gostaria de usar este script para envio automático de e-mails após uma ação de salvar registro e outra vez após aprovar um registro criado.
utilizo aqui o Outlook na empresa. consigo aproveitar este mesmo código?
onde devo coloca-lo para que funcione corretamente?

por favor, mais uma vez, me ajude!

obrigado

Pesquise Outlook aqui mesmo, o cod acima não serve;

exemplo:
https://www.maximoaccess.com/t20633-resolvidoenviar-email-de-forma-automatica-pelo-outlook

Alguém poderia me enviar a DLL que deu certo?

Criquio, Jr.Wano...

Olá maltinha.

Tentei incorporar este código na minha Bd mas devo estar afaze3r alguma coisa mal. Podem , por favor conferir?

Obrigado.

Windows 10 e office 2019


Private Sub Comando187_Click()


Function EnviarEmail()
On Error GoTo erromail
Dim Mens As CDO.Message
Dim Config As CDO.Configuration

Set Config = New CDO.Configuration

With Config

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'seu servidor de e-mail
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' porta usada pelo seu servidor de e-mail
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "pjjmiranda@gmail.com" 'user do servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******" 'coloque a senha do seu email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update

End With

Set Mens = New CDO.Message

With Mens

Set .Configuration = Config
.From = "Pedro" 'quem envia


.Sender = "pjjmiranda@gmail.com" 'email de quem envia."

.Subject = "TESTE " 'caixa texto assunto
.TextBody = "TES TES" 'Caixa texto com o texto"
.To = "pedro.jmiranda@netcabo.pt"


.Send ' envia

End With

MsgBox "E-mail enviado"

Set Mens = Nothing
Set Config = Nothing
Exit Function

erromail:
MsgBox Err.Number & " " & Err.Description
Set Mens = Nothing
Set Config = Nothing
Exit Function

End Function


End Sub

Olá Pedro,

Veja estes tópicos se ajuda:
https://www.maximoaccess.com/t35621-formulario-de-email-recusa-conta-gmail
https://www.maximoaccess.com/t24631-resolvidofalha-ao-enviar-email-via-cdosys-hotmail-gmail

Abraço

Vou ver sim

Obrigado

Olá a todos.

Estou a tentar incorporar este condigo mas surge sempre o erro:



Compile error:

User-defined type not defined

e abre o Virtual basic com

Function Email()   ---a amarelo
On Error GoTo erromail
Dim Mens As CDO.Message  ---- selecionado

Agradeço  qq ajuda

Olá Pedro,

O nome da função aqui partilhada é EnviarEmail() e não Email(), será isso?

Se pesquisar no forum por CDO existe exemplos já prontos:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Abraço

Boas

Já alterei o nome da função para EnviarEmail() mas continua com o mesmo erro

Vou ver esses exemplos de CDO

Obrigado pela ajuda

Boas!

Tenho tentado múltiplas opções relativas a este exemplo e continua a dar erro.

Por favor confirmem quais as referências que devo ter ativas.

Obrigado