MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    Estou com Problema para Enviar E-mail pelo Outlook

    avatar
    vmorais96
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 23/11/2016

    Estou com Problema para Enviar E-mail pelo Outlook Empty Estou com Problema para Enviar E-mail pelo Outlook

    Mensagem  vmorais96 21/12/2016, 10:54

    Bom dia

    Não estou conseguindo mandar email porem ele esta me retornando o erro ActiveX

    Algumas maquinas mandam outras da esse erro, eu creio que deve ser alguma configuração do Outlook

    Algum pode me ajudar!!!!

    OBRIGADO!!!!

    segue meu código

    Sub EnviaEmail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim corpo As String
    Dim strReportName$
    Dim AttachmentPath$
    Dim subject$
    Dim email_to$
    Dim email_cc$
    'Variáveis
    strReportName = "Rel_Solicitacao"
    DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, CurrentProject.Path & _
    "\" & "Solicitação de Tarefas - SGR - 00" & Forms!Frm_Solicitacao.Txt_Cod_Solicitacao & ".pdf", False
    'Anexa relatório em formato PDF no e-mail
    subject = "Solicitação de Tarefa - SGR - 00" & Forms!Frm_Solicitacao.Txt_Cod_Solicitacao & " - " & Forms!Frm_Solicitacao.Txt_Nome_Fantasia
    'AttachmentPath = CurrentProject.Path & "\" & "Solicitação de Tarefas - SGR - 00" & Forms!Frm_Solicitacao.Txt_Cod_Solicitacao & ".pdf"
    email_to = Forms!Frm_Solicitacao.Txt_Funcionario
    email_cc = Forms!Frm_Solicitacao.Texto98
    ' email_oculto =""
    'Define os controles para envio de e-mail
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    'Abre o Outlook.exe
    corpo = "
    ." _
    & "

    Segue referente a Solicitação n° 00" & Forms!Frm_Solicitacao.Txt_Cod_Solicitacao _
    _
    _
    & "

    Status: " & Forms!Frm_Solicitacao.Txt_Status _
    & "

    Tarefa: " & Forms!Frm_Solicitacao.Txt_Tarefa _
    _
    _
    & "

    Proprietário: " & Forms!frm_solicitacaoMensagem.Txt_Proprietario _
    & "

    Mensagem: " & Forms!frm_solicitacaoMensagem.Txt_Mensagem _
    & "

    "
    'Corpo do e-mail em formato HTML
    With OutMail
    .Display
    .To = email_to
    .CC = email_cc
    '.BCC = email_oculto
    .subject = subject
    .Attachments.Add (AttachmentPath) """""esta dando erro nessa linha"""""
    .HTMLBody = corpo & "
    " & .HTMLBody
    '.Send
    End With
    'Envia e-mail
    'On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
    End Sub

    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4145
    Registrado : 29/06/2012

    Estou com Problema para Enviar E-mail pelo Outlook Empty Re: Estou com Problema para Enviar E-mail pelo Outlook

    Mensagem  Noobezinho 23/12/2016, 20:11

    Uma dica:

    Procure no site do Avelino, UsandoAccess, por emial via Outloock.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 22/1/2022, 17:18