MACRO PARA ENVIAR E-MAIL

[Felipe Henrique 0]

Boa tarde amigos, gostava de saber o que e como faço para que o excel envie um e-mail quando estiver a 5 dias de atingir a data de validade do meu produto. Não consigo achar tutoriais na internet.

O meu programa avisa quando faltam 5 dias para a inspeção de uma viatura.

Mas gostava que ele avisasse por e-mail.

http://www.mediafire.com/file/3ca2f4s4e2phtk2/Alerta_de_Inspe%C3%A7%C3%B5es.xlsm/file

Edited March 26, 2019 by Felipe Henrique
Esqueci de adicionar o arquivo.

[Gnrtuga 21]

Boas, 

primeiro tens que ter o Outlook configurado com a conta de onde queres enviar o email,

depois tens no projeto de VBA tens que selecionar em Tools, References Microsoft Outlook 14.0 Object Library (14 no meu caso que tenho o office 2010, no teu provavelmente é outro valor)

Cria um evento que vá verificar a condição pretendida (data menor que 5 dias), essa parte é mesmo contigo que sabes como o teu código se comporta e quando é que podes verificar a condição, pode ser por exemplo no arranque do form.

Public AppOutlook As Outlook.Application
Public mailoutlook As Outlook.MailItem

Private Sub CommandButton1_Click()


Set AppOutlook = New Outlook.Application
Set mailoutlook = AppOutlook.CreateItem(olMailItem)

With mailoutlook
    .Display
    .To = "mete aqui email de destino"
    .Subject = "teste Excel"
    .Importance = olImportanceHigh
    .Send
End With

Set AppOutlook = Nothing
Set mailoutlook = Nothing


End Sub

O objeto Outlook tem muitas propriedades, métodos e eventos, podes ver isso aqui:

https://docs.microsoft.com/en-us/office/vba/api/Outlook.MailItem

Nesse exemplo só usei algumas básicas como Display (vai abrir o Outlook), Subject e Send .

Boa sorte.

P.s - Para a próxima mete só o código que é importante para a questão, não metas um link para o ficheiro, apesar de teres boas intenções a maior parte do pessoal não vai sacar o ficheiro ou por preguiça ou por causa das viroses.