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

    Enviar anexos via outlook

    avatar
    israelcomex
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 12/05/2017

    Enviar anexos via outlook Empty Enviar anexos via outlook

    Mensagem  israelcomex em 8/1/2021, 17:12

    Olá

    Estou tentando anexar mais de um arquivo para enviar em um mesmo e-mail via outlook mais não estou conseguindo. Podem me ajudar?

    Já vi alguns exemplos aqui na página, mais procuro algo mais simples.

    Nesse exemplo a seguir até consigo o que desejo, porém os anexos vão em e-mail diferentes.

    Desde já agradeço.
    ---------------------------------------------------------------------------------------------------------------------
    Dim MSG As String

    MSG = MsgBox("Deseja enviar os arquivos via e-mail agora?", vbYesNo, "Pickmap Mov!")

    If MSG = vbYes Then


    DoCmd.SendObject acQuery, ("Movimentacao_Rebal"), acFormatXLSX, "e-mail@xxx.com", "", , "Exportacao-Movimentacao_Rebal", "Seguem Anexos - Arquivos "
    DoCmd.SendObject acQuery, ("Mov Geral"), acFormatXLSX, "e-mail@xxx.com", "", , "Exportacao_Mov", "*** Envio de e-mail é automático! ***"

    MsgBox "E-mail enviado com sucesso!!", vbInformation, "Arquivo Mov!"

    Else

    MsgBox "Envio Cancelada!", vbCritical, "Arquivo Mov"

    End If
    ----------------------------------------------------------------------------------------------------
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6996
    Registrado : 15/03/2013

    Enviar anexos via outlook Empty Re: Enviar anexos via outlook

    Mensagem  ahteixeira Ontem à(s) 17:37

    Olá Israel,

    Não faltam exemplos no fórum, efetue uma "busca".

    Veja este por exemplo
    https://www.maximoaccess.com/t29252-resolvidoanexar-arquivos-email

    Abraço

      Data/hora atual: 25/1/2021, 03:59