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

    Enviar email via VBA com vários anexos para vários usuários.

    Compartilhe

    Wagner Oliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 30/05/2014

    Enviar email via VBA com vários anexos para vários usuários.

    Mensagem  Wagner Oliveira em Dom 20 Mar 2016, 15:29

    Bom dia, gostaria de ajuda com o código abaixo, pois preciso enviar vários anexos, para vários usuários, a parte do anexos está funcionando porém não consigo anexar mais do que 1 destinatario no campo CC estou utilizando o código abaixo:
    Dim cod As String
    Dim ser As String
    Dim DAT As String

    Dim OutApp As Object
    Dim OutMail As Object

    cod = TXCODPC
    ser = TXNSERIE
    DAT = DTORC

    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
    .To = "destinatário 1"
    .CC =  "destinatário 2" - como faço para inserir vários destinatários no campo com cópia (CC)
    .BCC = ""
    .Subject = "Relatórios de gestão"
    .Body = "teste"
    .Attachments.Add "C:\Relatórios1.pdf"
    .Attachments.Add "C:\Relatórios2.pdf"
    .Attachments.Add"C:\Relatórios3.pdf"
    .Send
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3489
    Registrado : 14/08/2013

    Re: Enviar email via VBA com vários anexos para vários usuários.

    Mensagem  FabioPaes em Dom 20 Mar 2016, 16:18

    Não tenho certeza, mas acho que no campo onde tem os emeils, vc deve separa-los por ;

    Da uma olhada aqui:
    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]


      Data/hora atual: Sex 15 Dez 2017, 00:30