Ir ao conteúdo

Posts recomendados

Postado

boa tarde Pessoal !

Sou leigo no assunto, então desde já me perdoem.

Consegui um código na internet que poderá me ajudar, porém não estou conseguindo finalizar ele, por isso gostaria da ajudar de vocês que são muito mais entendidos do que eu.

Bem, vamos lá, eu preciso que o Excel me envie um e-mail sempre quando houver um cobrança para fazer, para isso eu tenho um controle de cobranças que contêm as datas, valores etc.

2 coisas que eu precisava:

 

If Range("j85:j96").Value >= Range("a2").Value Then

 

O comando acima não ta funcionado, ele só funciona com apenas uma célula, queria que ele procurasse nessa coluna variais linhas, J85 a J96, que vão conter mais datas vencidas, aí sempre que encontrar uma data vencimento o e-mail é envido.

 

olMail.Body = "Teste2" 

 

Aqui se possível, no corpo do email enviar parte da tabela.

 

Código:

 

Sub EMail_Automático()

Dim olApp As Object, olMail As Object
If Range("j85:j96").Value >= Range("a2").Value Then
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)

olMail.Subject = "COBRANÇA PARA FAZER" 'Campo Assunto
olMail.Body = "Teste2" 
olMail.To = "meuemail"

olMail.Send

Set olApp = Nothing
Set olMail = Nothing
End If
End Sub

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Mostrar mais  

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mostrar mais  
×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!