Ir para conteúdo
Fórum Script Brasil
  • 0

Executar Macro na hora determinada


acsatiro

Pergunta

Boa Tarde. Gostaria da ajuda de vocês para criar um código pra executar uma macro em uma determinada hora. Estou tentando mas não está funcionando. Acho que estou comendo mosca em algum momento. Segue o código abaixo. valeu.

 

Sub enviar_email()
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
      
    Dim picname As String
    Dim grafico As Chart
    Dim MyOlapp As Object, MeuItem As Object
    
    Set MyOlapp = CreateObject("Outlook.Application")
    Set MeuItem = MyOlapp.CreateItem(olMailItem)

    ActiveWorkbook.RefreshAll
    
    ActiveWorkbook.Sheets("plan1").ChartObjects(1).Activate
    Set grafico = ActiveWorkbook.Sheets("plan1").ChartObjects(1).Chart
    grafico.Export Filename:="C:\temp\Grafico1.jpg", filtername:="JPG"
    
    Worksheets("plan2").Activate
    
    ActiveWorkbook.Sheets("plan2").ChartObjects(1).Activate
    Set grafico = ActiveWorkbook.Sheets("plan2").ChartObjects(1).Chart
    grafico.Export Filename:="C:\temp\Grafico2.jpg", filtername:="JPG"
          
    Worksheets("plan3").Activate
    
    ActiveWorkbook.Sheets("plan3").ChartObjects(1).Activate
    Set grafico = ActiveWorkbook.Sheets("plan3").ChartObjects(1).Chart
    grafico.Export Filename:="C:\temp\Grafico3.jpg", filtername:="JPG"
    
    Worksheets("plan4").Activate
   
    ActiveWorkbook.Sheets("plan4").ChartObjects(1).Activate
    Set grafico = ActiveWorkbook.Sheets("plan4").ChartObjects(1).Chart
    grafico.Export Filename:="C:\temp\Grafico4.jpg", filtername:="JPG"
      
    Set MyOlapp = CreateObject("Outlook.Application")
    Set myItem = MyOlapp.CreateItem(olMailItem)
    Set myAttachments = myItem.Attachments
    
    Worksheets("dados").Activate
    
    
    'Faturamento Cachaça
    Range("c7").Select
    texto1 = ActiveCell
   
    'Faturamento por dia
    Range("c9").Select
    Texto2 = ActiveCell
    
    'Faturamento por Mês
    Range("c10").Select
    Texto3 = ActiveCell
    
    'Faturamento Orçado no Mês
    Range("c11").Select
    Texto4 = ActiveCell
    
    'Vendas em Litros
    Range("c12").Select
    Texto5 = ActiveCell
       
       
  
With MeuItem
    .BCC = ("index1")
    .Subject = "Faturamento Cachaça"
    
    .HTMLBody = " " & ActiveWorkbook.Sheets("DADOS").Range("C14").Value & "" & _
    "<BR><BR>" & _
    "<b>" & texto1 & "</b>" & "<br>" & "<br>" & _
    Texto2 & "<br>" & _
    Texto3 & "<br>" & _
    Texto4 & "<br>" & _
    Texto5 & "<br>" & _
    "<BR><BR>" & _
    "<img src='C:\temp\Grafico1.jpg'>" & _
    "<BR><BR>" & _
    "<img src='C:\temp\Grafico2.jpg'>" & _
    "<BR><BR>" & _
    "<img src='C:\temp\Grafico3.jpg'>" & _
    "<BR><BR>" & _
    "<img src='C:\temp\Grafico4.jpg'>" & _
    "<BR><BR>" & _
    "<i>" & "E-mail gerado automaticamente - Favor não responder." & "</i>"
      
    .Display
          
    .send
           
    
End With

    
    ActiveWorkbook.Save
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    
    OnTime1


End Sub
Public Sub OnTime1()
Call Application.OnTime(TimeValue("12:00:00"), "enviar_email")

End Sub

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...