Felipe Henrique 0 Posted March 26, 2019 Report Share Posted March 26, 2019 (edited) 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. Link to post Share on other sites
Gnrtuga 21 Posted March 26, 2019 Report Share Posted March 26, 2019 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.. Link to post Share on other sites
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now