Pessoal bom dia, estou com o mesmo problema a diferença é que não tenho nenhuma macro criada que pudesse resolver meu problema. Tenho uma planilha de controle com vários vencimentos e meu chefe gostaria que quando atingisse cada um dos prazos, disparasse um e-mail para lembrete de vencimento para pelo menos 5 pessoas responsáveis. Encontrei alguns códigos que enviam apenas para um destinatário, e também buscando os vencimentos em uma única coluna.
Minha idea é sempre que quando a planilha for aberta, ou seja, irei configurar para que a planilha abra sempre junto com Windows, a macro automaticamente fará um loop na sheet, e quando encontrasse uma data com 5 dias antes do vencimento, copiasse a linha com as informações e enviasse no corpo do e-mail.
PASSO 01: Ao abri a planilha, fazer loop buscando vencimentos com 5 dias antes;
PASSO 02: Copiar linha com as informações, e colar no corpo do email;
PASSO 03: Enviar o aviso para pelo menos 5 responsáveis (destinatários) ao mesmo tempo.
Segue exemplo abaixo que encontrei com os parceiros dos fóruns, porém este é para fazer o processo pelo Outlook, no meu caso teria que ser pelo Outlook 365.
Sub CriaEmail(Destinatario As String, cCopia As String, NomeDoArquivo As String)
Dim objOutlook As Object
Dim objMail As Object
Dim myAnexos
Dim myDestinatario
Dim myCopia
'Cria um novo item de email e altera suas propriedades
Set objOutlook = CreateObject("Outlook.Application")
'Cria uma nova instancia de item de email
Set objMail = objOutlook.Application.CreateItem(olMailItem)
Set myAnexos = objMail.Attachments
Set myDestinatario = objMail.Recipients
With objMail
'Define o corpo do email em HTML
.BodyFormat = olFormatHTML
.Importance = 2
' Cria as tag com as informações no corpo da mensagem
.HTMLBody = "<HTML>" & _
"<BODY><p>Prezados (as),</p>" & _
"<p>Para complementação da atualização do banco de dados de " & _
"considerando todos os campos.</p>" & _
".</BODY></HTML>"
' Define o Destinatário da Mensagem nos campos Para
myDestinatario.Add (Destinatario)
myCopia = "fulano@dominio.com.br"
myCopia = myCopia & cCopia
.CC = myCopia
.BCC = "cicrano@dominio.com.br"
' Anexa o respectivo Extrato
myAnexos.Add NomeDoArquivo
' Cria o Título do Email
.Subject = "Validação Bco Dados"
.Display ' Exibe a mensagem na Tela
SendKeys "%mm"
.Send
End With
End Sub
Exemplo:
PLANILHA:
Cod Data Empresa Produto
1 21/03/08 XYZ Mesa
2 22/03/08 Beta Soluções Cadeira
3 05/04/08 Apinfy Sapato
ENVIO:
Assunto do email: Datas expiradas
Corpo do email: Cod Data Empresa Produto
1 21/03/08 XYZ Mesa
2 22/03/08 Beta Soluções Cadeira
Postado : 13/02/2017 7:18 am