E-mail mais de um destinatário  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

E-mail mais de um destinatário

Mensagempor pires » Sex Nov 09, 2018 8:09 am

Bom dia Prezados,

Possuo o seguinte código para envio de e-mail. A questão é que gostaria adicionar mais de 1 destinatário, se possível por range.

Código: Selecionar todos
Dim OutApp As Object
    Dim OutMail As Object
    Dim sh As Worksheet
    Dim cell As Range
    Dim FileCell As Range
    Dim rng As Range

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set sh = Sheets("E-mail CCR")
 
    Set rng = sh.Range("b1:f22").SpecialCells(xlCellTypeVisible)
   
    Set OutApp = CreateObject("Outlook.Application")

            Set OutMail = OutApp.CreateItem(0)
               
            With OutMail
               [b] .To = Range("i1").Text[/b]
                .Subject = Range("i2").Text
                .HTMLBody = RangetoHTML(rng)
                .Send  'Or use .Display
            End With

            Set OutMail = Nothing

    Set OutApp = Nothing
   
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
   
Sheets("CONTROLE INDIVIDUAL").Select

Range("a1").Select

End Sub


Agradeço a ajuda.
pires
Membro
Membro
 
Mensagens: 19
Registrado em: Qua Mai 16, 2018 8:23 am
Has thanked: 12 times
Have thanks: 0 time

{ SO_SELECT }

Re: E-mail mais de um destinatário  [Resolvido]

Mensagempor wagner » Sex Nov 09, 2018 9:25 am

pires,

Bom dia!

Faça assim:
Código: Selecionar todos
                'Supondo que o outro endereço esteja na célula i2
                .To = Range("i1").Text & ";" & Range("i2").Text
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
pires (Seg Nov 12, 2018 7:34 am)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4386
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1895 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: SandroLima, teleguiado e 6 visitantes