Jump to content
Felipe Henrique

MACRO PARA ENVIAR E-MAIL

Recommended Posts

Felipe Henrique

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 by Felipe Henrique
Esqueci de adicionar o arquivo.

Share this post


Link to post
Share on other sites
Gnrtuga

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. 


Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.