MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Enviar e-mail por CDO

    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 24/04/2019

    [Resolvido]Enviar e-mail por CDO Empty [Resolvido]Enviar e-mail por CDO

    Mensagem  brunoluizmaia em 25/10/2019, 10:36

    Boas,

    Estou recorrendo aos mestres do Access, porque já tentei de tudo e não consigo enviar e-mail pelo CDO. Preciso essa função porque ao gerar um novo documento ou quando o trabalho estiver concluído o sistema envia um e-mail informativo.

    Já tentei todas as opções do forum e da internet em geral.

    Utilizo o Access 2016 32bits e em rede corporativa.

    Posto o bd com todos os códigos tentado.

    Cumprimentos,

    Bruno Nunes
    Anexos
    [Resolvido]Enviar e-mail por CDO Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (120 Kb) Baixado 6 vez(es)
    marcelo3092
    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 19/08/2010

    [Resolvido]Enviar e-mail por CDO Empty Re: [Resolvido]Enviar e-mail por CDO

    Mensagem  marcelo3092 em 27/10/2019, 12:22

    Bom dia amigo de uma olhada neste artigo

    usandoaccess.com.br/tutoriais/enviar-email-usando-o-cdosys.asp?id=1

    atraves dele eu consegui enviar da ate pra usar um dlookup numa tabela para buscar as configurações e o servidor mais fácil para usar e configurar e o gmail.
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 24/04/2019

    [Resolvido]Enviar e-mail por CDO Empty Re: [Resolvido]Enviar e-mail por CDO

    Mensagem  brunoluizmaia em 30/10/2019, 10:19

    Marcelo, bom dia!

    Obrigado pela ajuda, mas já havia testado e estudado sobre este artigo.

    Conseguir resolver este problema com o T.I aqui da empresa, não conseguia enviar e-mail devido bloqueio de proxy.

    Abaixo coloco a rotina que estou utilizando e funcionou.

    Código:

    Function EnviarEmailCDO(Para As String, Assunto As String, Texto As String) As Boolean


    Dim iMsg, Cdo_Conf, Flds

     

    sch = "http://schemas.microsoft.com/cdo/configuration/"
    Set Cdo_Conf = CreateObject("CDO.Configuration")


    'Variaveis

    Dim servidor_smtp As String
    Dim conta_autenticada As String
    Dim senha_para_envio As String
    Dim email_origem As String
    Dim email_porta As Integer

     

    'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.

    servidor_smtp = "smtp.gmail.com" ' Informacoes so seu servidor SMTP
    senha_para_envio = "Txxxx" ' senha da conta de e-mail
    email_origem = "xxxx@gmail.com" ' e-mail que indica de onde partiu a mensagem
    'email_destino = "xxxx@gmail.com" ' e-mail que vai receber as mensagens do formulario
    'email_assunto = "Teste" ' Assunto do email
    'email_corpo = "Teste corpo do Email..." ' Corpo do Email
    email_porta = 25 ' porta smtp


    Cdo_Conf.Fields.Item(sch & "sendusing") = 2
    Cdo_Conf.Fields.Item(sch & "smtpauthenticate") = 1
    Cdo_Conf.Fields.Item(sch & "smtpserver") = servidor_smtp
    Cdo_Conf.Fields.Item(sch & "smtpserverport") = email_porta
    Cdo_Conf.Fields.Item(sch & "smtpconnectiontimeout") = 60
    Cdo_Conf.Fields.Item(sch & "sendusername") = email_origem
    Cdo_Conf.Fields.Item(sch & "sendpassword") = senha_para_envio
    Cdo_Conf.Fields.Item(sch & "smtpusessl") = True
    'Cdo_Conf.Fields(sch & "urlproxyserver") = "xxx.xxx.xxx.xxx"
    'Cdo_Conf.Fields(sch & "proxyserverport") = "8080"
    Cdo_Conf.Fields.Update

     

    Set Cdo_Mensagem = CreateObject("CDO.Message")
    Set Cdo_Mensagem.Configuration = Cdo_Conf

     

    Cdo_Mensagem.BodyPart.Charset = "iso-8859-1"
    Cdo_Mensagem.From = email_origem
    Cdo_Mensagem.To = Para
    Cdo_Mensagem.Subject = Assunto


    '------Para anexar arquivo use uma das linguagens abaixo
    'Cdo_Mensagem.AddAttachment (ThisWorkbook.Path & "\Envio\Arquivo das Lojas Envio.xlsm")
      'ou
    'Cdo_Mensagem.AddAttachment ("C:\Envio\Arquivo das Lojas Envio.xlsm")


    strBody = Texto

     

    Cdo_Mensagem.HTMLBody = strBody

    Cdo_Mensagem.Send

     

    Set Cdo_Mensagem = Nothing
    Set Cdo_Conf = Nothing

     

    'MsgBox "E-mail enviado com sucesso"
    SysCmd acSysCmdSetStatus, "Sucessfully send to e-mail..."

    SysCmd acSysCmdClearStatus

    End Function


    Conteúdo patrocinado

    [Resolvido]Enviar e-mail por CDO Empty Re: [Resolvido]Enviar e-mail por CDO

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/11/2019, 03:46