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

    Enviar anexos via outlook

    avatar
    israelcomex
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Enviar anexos via outlook Empty Enviar anexos via outlook

    Mensagem  israelcomex 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
    ----------------------------------------------------------------------------------------------------
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Enviar anexos via outlook Empty Re: Enviar anexos via outlook

    Mensagem  Alvaro Teixeira 24/1/2021, 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: 1/2/2023, 06:00