MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Envio de email sem Outlook

    Compartilhe

    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 21/01/2010

    [Resolvido]Envio de email sem Outlook

    Mensagem  Gilberto Rocha em Sab 09 Out 2010, 19:17


    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

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em Sab 09 Out 2010, 20:26

    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.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 21/01/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Gilberto Rocha em Sab 09 Out 2010, 20:31

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

    Uso Hotmail.

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em Sab 09 Out 2010, 21:36

    Tente baixar o exemplo do portal svc e teste para ver o que acontece: [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 17/09/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Pablo Neruda em Seg 11 Out 2010, 11:58

    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?

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em Seg 11 Out 2010, 12:43

    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


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 17/09/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Pablo Neruda em Seg 11 Out 2010, 14:18

    Valeu!!!!

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Assis em Seg 11 Out 2010, 14:20

    Eu tenho Win 7 e funfa perfeito, Office 2003

    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 21/01/2010

    Envio de email sem Outlook

    Mensagem  Gilberto Rocha em Seg 11 Out 2010, 20:29

    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.

    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 17/09/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Pablo Neruda em Seg 11 Out 2010, 21:27

    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...

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  JPaulo em Seg 11 Out 2010, 21:32

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

    Procure por:
    Desligar TLS do servidor SMTP virtual.



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 21/01/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Gilberto Rocha em Seg 11 Out 2010, 21:36

    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?

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  JPaulo em Seg 11 Out 2010, 21:40

    Isso mesmo.

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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 21/01/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Gilberto Rocha em Seg 11 Out 2010, 21:41

    Ok, vou tentar aqui, abraço

    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 17/09/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Pablo Neruda em Qui 14 Out 2010, 21:39

    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,,,

    Rodrigo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 28/09/2010

    Teste em VBA do Excel

    Mensagem  Rodrigo em Dom 13 Mar 2011, 02:34

    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




    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em Dom 13 Mar 2011, 10:44

    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.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Rodrigo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 28/09/2010

    [Resolvido]Envio de email sem Outlook

    Mensagem  Rodrigo em Dom 13 Mar 2011, 22:32

    Olá Criquio,

    Funcionou perfeitamente, agradeço muito !!

    Abraços
    Vicê é fera mesmo !!!


    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em Dom 13 Mar 2011, 23:50

    Obrigado amigo. O forum agradece.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    kratortato
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/04/2010

    Onde encontro o exemplo?

    Mensagem  kratortato em Ter 05 Abr 2011, 14:22

    Por favor, alguém poderia mandar para mim o exemplo de envio de email? Tentei o endereço [Você precisa estar registrado e conectado para ver este link.] mas não achei.

    Obrigada!

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  vieirasoft em Ter 05 Abr 2011, 14:25

    Amigão

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

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

    kratortato
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/04/2010

    Arquivo exemplo

    Mensagem  kratortato em Ter 05 Abr 2011, 14:30

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

    Kelly Abreu

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  vieirasoft em Ter 05 Abr 2011, 14:32

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

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  vieirasoft em Ter 05 Abr 2011, 14:38

    Foi enviado. Verifique o seu email.

    kratortato
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/04/2010

    Arquivo exemplo

    Mensagem  kratortato em Ter 05 Abr 2011, 14:39

    Obrigada!!!

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  vieirasoft em Ter 05 Abr 2011, 14:42

    Sempre que precisar

    kratortato
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/04/2010

    Envio de email com iNotes

    Mensagem  kratortato em Ter 12 Abr 2011, 14:16

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

    Obrigada!!!

    Kelly

    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 29/01/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em Qua 13 Abr 2011, 21:08

    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...

    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 29/01/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em Qui 14 Abr 2011, 18:03

    Ainda tentando,

    Marquei a caixa: Não usar o HTTPS automaticamente

    Continua dando o mesmo erro.

    Se alguem puder ajudar, agradeço.

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em Qui 14 Abr 2011, 18:21

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


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 29/01/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em Qui 14 Abr 2011, 20:07

    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


    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 29/01/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em Qui 14 Abr 2011, 20:15

    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.

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em Qui 14 Abr 2011, 20:19

    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.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 29/01/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em Qui 14 Abr 2011, 20:24

    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.

    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 29/01/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em Qui 14 Abr 2011, 20:30

    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

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  criquio em Qui 14 Abr 2011, 21:05

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


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Jr.Wano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 29/01/2010

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  Jr.Wano em Qui 14 Abr 2011, 21:38

    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,

    Edson1974
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 158
    Registrado : 10/05/2011

    Realizar o envio de email através do Lotus Notes

    Mensagem  Edson1974 em Sex 08 Jul 2011, 00:02

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

    nunziato
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/08/2011

    adaptação de envio de e-mail

    Mensagem  nunziato em Qua 10 Ago 2011, 20:09

    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.

    giacomeliangelica
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 1
    Registrado : 25/03/2014

    Erro : Não foi possível enviar a mensagem para o servidor SMTP.

    Mensagem  giacomeliangelica em Ter 25 Mar 2014, 18:20

    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!


    dico2212
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 22/06/2015

    e-mail automático

    Mensagem  dico2212 em Sab 17 Out 2015, 13:43

    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Envio de email sem Outlook

    Mensagem  JPaulo em Ter 20 Out 2015, 17:39

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

    exemplo:
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sex 09 Dez 2016, 03:52