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

    [Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010?

    hugopanzer
    hugopanzer
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 182
    Registrado : 16/11/2010

    [Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010? Empty Como enviar varios anexos usando DoCmd.SendObject Accesss 2010?

    Mensagem  hugopanzer 12/3/2013, 17:21

    Boa tarde,
    Converti uma macro para vba e gostaria de juntar mais anexos num só e-mail. Tem como, usando este comando "docmd.sendObject"?
    Obrigado



    Macro convertida para vba (access 2010)
    Function sendmail()
    On Error GoTo sendmail_Err

    DoCmd.SendObject acQuery, "ar", "Excel97-Excel2003Workbook(*.xls)", "isso@querias.tu", "", "Assunto:xpto", "", False, ""

    sendmail_Exit:
    Exit Function

    sendmail_Err: MsgBox Error$
    Resume sendmail_Exit

    End Function
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010? Empty Re: [Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010?

    Mensagem  JPaulo 12/3/2013, 17:32

    Código: Email Varios Destinatarios

    http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access



    .................................................................................
    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]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010? Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010? Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010? Folder_announce_new Instruções SQL como utilizar...
    hugopanzer
    hugopanzer
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 182
    Registrado : 16/11/2010

    [Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010? Empty Re: [Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010?

    Mensagem  hugopanzer 12/3/2013, 17:35

    Obrigado JPaulo. Andei à procura deste codigo no forum mas nos sitios errados.
    Grande abraço e muito obrigado
    hugopanzer
    hugopanzer
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 182
    Registrado : 16/11/2010

    [Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010? Empty Re: [Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010?

    Mensagem  hugopanzer 12/3/2013, 17:58

    JPaulo so mais uma duvida,
    Nesta linha como adiccionar mais do que um ficheiro

    Set rst = CurrentDb.OpenRecordset("tblteste")

    O que eu pretendo é criar um modulo automático de forma a enviar varias tabela e consultas para vários destinarios. Com o código que o Mestre JPaulo disponibilizou não estou a conseguir adicionar mais anexos e não estou a conseguir colocar o código a funcionar num modulo. As minhas desculpas mas ainda estou muito verdinho em VBA.

    Conteúdo patrocinado


    [Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010? Empty Re: [Resolvido]Como enviar varios anexos usando DoCmd.SendObject Accesss 2010?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:42