MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Set outapp = CreateObject("Outlook.Application")

    avatar
    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 19/05/2017

    [Resolvido]Set outapp = CreateObject("Outlook.Application") Empty [Resolvido]Set outapp = CreateObject("Outlook.Application")

    Mensagem  Dougtha91 em 18/2/2019, 17:48

    Pessoal,
    Criei o código seguinte abaixo, porém ao chegar na linha Set outapp = CreateObject("Outlook.Application") ele gera o erro:

    "Outra versão do Outlook esta em execução atualmente, feche-a e tente novamente"

    e logo em seguida gera este outro erro: "O componente ActiveX não pode criar objeto."

    Segue o código:

    Dim outapp As Object

    MSG1 = "A todos," & _
    vbCrLf & vbCrLf & "Segue em anexo o relatório de reversa das Notas Fiscais transportadas em:" & _
    vbCrLf & vbCrLf & "O uso da ferramenta é importante a todos." & _
    vbCrLf & "Enviado por Expedição"

    TESTE = DLookup("[EMBARQUE]", "0092 VOLTA REVERSA")

    SUBJ = "REVERSA" & " " & " (" & Forms!frm_PAINEL.Lista25 & ")"

    Caminho = "H:\Planejamento e Qualidade\Romaneio Diário\Romaneios\" & strArquivo

    Set outapp = CreateObject("Outlook.Application")
    outapp.Session.Logon

    Set OutMail = outapp.CreateItem(0)

    With OutMail

    '.To = CC4
    .BCC = CC4
    .SUBJECT = SUBJ
    .CC = ""
    .Body = MSG1
    .Attachments.Add (Caminho)

    .send

    End With

    Meu office é o 2010 o que pode estar acontecendo? Já verifiquei as referencias e esta ok.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Set outapp = CreateObject("Outlook.Application") Empty Re: [Resolvido]Set outapp = CreateObject("Outlook.Application")

    Mensagem  JPaulo em 20/2/2019, 10:12

    Olá;

    Agumas coisas que deve alterar, para testar;

    1º Declare sempre as variáveis no inicio
    Código:
    Dim MSG1, TESTE, SUBJ, Caminho, strArquivo As String

    2º Nomes de tabelas cou campos com espaços têm de estar entre colchetes
    Código:
    TESTE = DLookup("[EMBARQUE]", "[0092 VOLTA REVERSA]")

    3º Não necessita da instrução a seguir, porque você invoca a criação do objecto "CreateObject("Outlook.Application")"
    Delete ou comente esta linha com aspa simples no inicio
    Código:
    'outapp.Session.Logon

    4º Não vejo onde o "strArquivo" vai buscar a informação

    5º Antes de você usar o .Send para envio imediato, use o .Display para gerar o email e ver se funciona, se funfar então volte a usar o .Send


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Set outapp = CreateObject("Outlook.Application") Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Set outapp = CreateObject("Outlook.Application") Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Set outapp = CreateObject("Outlook.Application") Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Set outapp = CreateObject("Outlook.Application") Empty Re: [Resolvido]Set outapp = CreateObject("Outlook.Application")

    Mensagem  JPaulo em 21/2/2019, 16:42

    Testou para dar o retorno ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Set outapp = CreateObject("Outlook.Application") Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Set outapp = CreateObject("Outlook.Application") Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Set outapp = CreateObject("Outlook.Application") Folder_announce_new Instruções SQL como utilizar...
    avatar
    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 19/05/2017

    [Resolvido]Set outapp = CreateObject("Outlook.Application") Empty Set outapp = CreateObject("Outlook.Application")

    Mensagem  Dougtha91 em 13/5/2019, 17:29

    Sim Obrigado JPaulo

      Data/hora atual: 8/8/2020, 12:36