Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Seletor de E-mails
 
Notifications
Clear all

Seletor de E-mails

 
2024 - VBA & Macros
Post Recente por romanholi 6 anos atrás
4 Posts
2 Usuários
0 Reactions
1,245 Visualizações
RSS
 romanholi
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

Pessoal, bom dia.

Tenho uma macro que gerar uma relatório em PDF e envia por e-mail para algumas pessoas. O problema é que as vezes eu não quero enviar a todas as pessoas que eu deixei programado. Então pensei em criar uma formulário que apareça na hora da execução e que eu escolha os e-mails desejados.

O formulário está feito... mas eu não sei como armazenar as variáveis de acordo com os checkbox marcados.

Preciso que essa variável fique da seguinte forma. Ex: Se eu marcar todos:
[email protected];[email protected];[email protected];d@d.com.br;[email protected]

Se eu marcar só os dois primeiros:
[email protected];[email protected]

E que essa variável eu possa utilizar (Pulica) no código do e-mail.

Veja o arquivo.

Obrigado amigos

 
Postado : 03/08/2018 11:26 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

romanholi,

Boa tarde!

Veja se é assim.

Ajuda_Emails.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 03/08/2018 12:03 pm
 romanholi
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

Quase isso meu amigo!
Ele está pegando o nome do Checkbox... deveria utilizar o caption.... como alterar?
Mas é por aí sim... obrigado pela ajuda

 
Postado : 03/08/2018 12:46 pm
 romanholi
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

Consegui alterar!

Obrigado Pela Ajuda Pessoal:

Private Sub Cmd_Concluir_Click()
    Dim Caixa As Control
    Dim Endereço As String
    
    For Each Caixa In Frm_Email.Controls
        If Left(Caixa.Name, 3) = "Chk" And Caixa.Value = True Then
            Endereço = Endereço & Caixa.Caption & ";"
        End If
    Next
    
    'Não sei armazenar as variáveis dos e-mails para compor o Para no envio do e-mail
    
    Call Envio_Email(Endereço)


End Sub
 
Postado : 06/08/2018 5:57 am
Forum Jump:
  Tópico Anterior
Próximo Tópico