Notifications
Clear all

E-mail via VBA com critérios

3 Posts
1 Usuários
0 Reactions
900 Visualizações
(@kaweperes)
Posts: 9
Active Member
Topic starter
 

Prezados, boa tarde.

Venho através deste post pedir encarecidamente a ajuda de vocês.

Estou criando uma planilha e preciso que ela envie os e-mails automaticamente baseado nos critérios:

 

Critério: Linhas com o status CRÍTICO ou Alerta (Coluna AL)

Processo:

-Enviar email para o Colaborador (Coluna AB)

-Cópia para Parceiro e Chefia (Coluna AD e AE respectivamente)

-Assunto e-mail: Férias Críticas (Caso crítica) ou Férias em Alerta (caso alerta)

-Corpo e-mail: Caso as férias estejam críticas, anexar ao corpo do e-mail a imagem "Crítico" salva na Aba "Imagens",

porém caso alerta, anexar imagem ao corpo do e-mail a imagem "Em alerta".

 

A planilha em anexo é somente um rascunho do original. Estou tentando construir um código para alcançar este resultado esperado, porém sou muito inexperiente em VBA.

Peço encarecidamente uma ajuda neste tema.

Quaisquer dúvidas estou à disposição!

 

Muito obrigado e é um prazer fazer parte do fórum.

 

At.te,

Kawe Peres

 

 

 
Postado : 11/03/2021 4:59 pm
(@kaweperes)
Posts: 9
Active Member
Topic starter
 

Boa tarde,

 

Será que alguém poderia dar uma luz? Obrigado!

 
Postado : 14/03/2021 4:10 pm
(@kaweperes)
Posts: 9
Active Member
Topic starter
 

Bom dia,

Montei este código e aparentemente está funcionando. Falta somente eu encontrar uma maneira de anexar as imagens na aba "Imagens" ao corpo do E-mail.

Fiquem à vontade para dar um feedback sobre o código.

Sub enviar_email()

Set objeto_outlook = CreateObject("Outlook.Application")

For linha = 2 To 700

 

If Cells(linha, 38).Value = "Crítico" Then

Set Email = objeto_outlook.CreateItem(0)

Email.display

Email.To = Worksheets("Programação de férias").Cells(linha, 29).Value

Email.cc = Worksheets("Programação de férias").Cells(linha, 31).Value & ";" & _
Worksheets("Programação de férias").Cells(linha, 24).Value
Email.Subject = "Férias Críticas"

End If
Next

End Sub

 

 
Postado : 15/03/2021 9:30 am