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

    Estou com Problema para Enviar E-mail pelo Outlook

    Compartilhe

    vmorais96
    Novato
    Novato

    Respeito às Regras 100%

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

    Estou com Problema para Enviar E-mail pelo Outlook

    Mensagem  vmorais96 em Qua 21 Dez 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

    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Sex 23 Dez 2016, 20:11

    Uma dica:

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

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Sex 22 Set 2017, 14:13