Tim Baster

Boa noite, Pessoal! Alguém tem código vba para disparar de forma automática e-mail usando os critérios abaixo; segue exemplo. Coluna A Coluna B Coluna C Data início. Data fim. Horas restant 01/11 10:00 01/11 22:00 72 horas A hora limite é 72 horas, gostaria de em 5 e 5 horas ele disparace um e-mail informando que falta tantas horas para registro boletim de descarga.

anexo não, seria no corpo do e-mail, abaixo das saudações, (bom dia, boa tarde e boa noite).

Olá, Eu consegui esse código abaixo, onde ele gerar o e-mail do DAHSBOARD da planilha atual, como e onde modifico o codigo para gerar um único e-mail colando corpo (outlook) os 4 DASHBOARD QUE EU TENHO na minha planilha? Segue as imagens para facilitar. Option Explicit Private Sub btEmail_Click() Dim WH As Worksheet Dim OutProg As Object Dim OutMail As Object Dim OutApp As Object Set WH = Planilha1 Set OutProg = CreateObject("Outlook.Application") Set OutMail = OutProg.CreateItem(0) Application.ScreenUpdating = False WH.Select Application.ScreenUpdating = True Application.DisplayAlerts = False With OutMail .Display .To = WH.Range("AV4") 'Para .Subject = WH.Range("AV9") ' Assunto .Body = WH.Range("AV11") ' Corpo e-mail End With Application.DisplayAlerts = True Set OutMail = Nothing Set OutApp = Nothing Set OutProg = Nothing WH.Range("F1:AQ47").Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture WH.Range("E2").Select ThisWorkbook.Save ' Salva pasta de trabalho End Sub

adicionado 0 minutos depois Obrigado! adicionado 13 minutos depois Olá, Eu consegui esse código abaixo, onde ele gerar o e-mail do DAHSBOARD da planilha atual, como e onde modifico o codigo para gerar um único e-mail colando corpo (outlook) os 4 DASHBOARD QUE EU TENHO na minha planilha? Segue as imagens para facilitar. Option Explicit Private Sub btEmail_Click() Dim WH As Worksheet Dim OutProg As Object Dim OutMail As Object Dim OutApp As Object Set WH = Planilha1 Set OutProg = CreateObject("Outlook.Application") Set OutMail = OutProg.CreateItem(0) Application.ScreenUpdating = False WH.Select Application.ScreenUpdating = True Application.DisplayAlerts = False With OutMail .Display .To = WH.Range("AV4") 'Para .Subject = WH.Range("AV9") ' Assunto .Body = WH.Range("AV11") ' Corpo e-mail End With Application.DisplayAlerts = True Set OutMail = Nothing Set OutApp = Nothing Set OutProg = Nothing WH.Range("F1:AQ47").Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture WH.Range("E2").Select ThisWorkbook.Save ' Salva pasta de trabalho End Sub

Olá, No codigo abaixo, onde eu usaria essa aplicação? Option Explicit Private Sub btEmail_Click() Dim WH As Worksheet Dim OutProg As Object Dim OutMail As Object Dim OutApp As Object Set WH = Planilha1 Set OutProg = CreateObject("Outlook.Application") Set OutMail = OutProg.CreateItem(0) Application.ScreenUpdating = False WH.Select Application.ScreenUpdating = True Application.DisplayAlerts = False With OutMail .Display .To = WH.Range("AV4") 'Para .Subject = WH.Range("AV9") ' Assunto .Body = WH.Range("AV11") ' Corpo e-mail '.Send End With Application.DisplayAlerts = True Set OutMail = Nothing Set OutApp = Nothing Set OutProg = Nothing WH.Range("F1:AQ47").Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture WH.Range("E2").Select ThisWorkbook.Save ' Salva pasta de trabalho End Sub

Boa tarde, pessoal! Qual codigo posso utilizar para disparar e-mail de hora em hora?