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

    Envio E-mail Outlook - Vários E-mails Copias

    avatar
    Curty123
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 25
    Registrado : 02/01/2019

    Envio E-mail Outlook - Vários E-mails Copias Empty Envio E-mail Outlook - Vários E-mails Copias

    Mensagem  Curty123 em 23/7/2020, 17:25

    Prezados, boa tarde!


    Estou montado uma automação para enviar e-mails através do outlook, já consegui conforme código abaixo porém preciso enviar com cópias para diversos e-mails.

    Problema: Enviar para mais de um e-mail como cópia.


    Dim OutApp As Object
    Dim OutMail As Object
    Dim conteudo2 As String

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

    assunto = "teste"
    conteudo = "Prezados!!"

    'E-mail principal
    emails = "vinicius@gmail.com"


    With OutMail
    .To = emails
    .Subject = assunto
    .CC = "vinicius@gmail.com" 'cópia do e-mail
    .Body = conteudo
    .Send
    End With

    'objOutlookMsg.Send

    Set OutApp = Nothing
    Set OutMail = Nothing
    Set OutApp = Nothing


    Obs: Já pesquisei no fórum e não achei.
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    Envio E-mail Outlook - Vários E-mails Copias Empty Re: Envio E-mail Outlook - Vários E-mails Copias

    Mensagem  =>Nois em 23/7/2020, 19:44

    tente assim:

    crie uma tabela com o nome tbl_email
    crie duas colunas do tipo texto longo ou memorando
    (Para_enviar) e a outra (com_copia)

    cadastre seus e-mail's na primeira linha dessa tabela lembrando a regra de enviar para mais de um e-mail
    ex: fulando@algumacoisa.com; jose.silva@hotmail.com; zemaria@bol.com.br

    'insira no seu codigo inicial essas variaveis para buscar sua lista

    Dim enviarto, enviarcc As String

    enviarto = Nz(DLookup("Para_enviar", "tbl_email"), "-")
    enviarcc = Nz(DLookup("com_copia", "tbl_email"), "-")

    Dim OutApp As Object
    Dim OutMail As Object
    Dim conteudo2 As String

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

    assunto = "teste"
    conteudo = "Prezados!!"

    'E-mail principal
    'emails = "vinicius@gmail.com"

    'chamar as string inseridas acima

    With OutMail
    .To = enviarto
    .Subject = assunto
    .CC = enviarcc
    .Body = conteudo
    .Send
    End With

    'objOutlookMsg.Send

    Set OutApp = Nothing
    Set OutMail = Nothing
    Set OutApp = Nothing


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    Envio E-mail Outlook - Vários E-mails Copias Empty Re: Envio E-mail Outlook - Vários E-mails Copias

    Mensagem  =>Nois em 28/7/2020, 12:57

    conseguiu?


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 1/12/2020, 12:08