Excel enviar e-mail de hora em hora

[Tim Baster]

Boa tarde, pessoal!

Qual codigo posso utilizar para disparar e-mail de hora em hora? 

[Midori]

@Tim Baster  Com a função OnTime p.ex para enviar a planilha a cada 1h,

 

Sub Macro()
    Application.OnTime Now + TimeValue("01:00:00"), "Macro"
    ThisWorkbook.SendMail "[email protected]", "Assunto"
End Sub

 

[Tim Baster]

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

[Midori]

@Tim Baster  Com a função OnTime você pode chamar a própria Sub (em um Módulo) como fiz acima ou chamar outra que no fim da execução chamará a sub do tempo, p.ex,

 

Estas subs tem que estar em um Módulo (Inserir > Módulo).

Sub EnviarEmail()
    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

	[...]

    Call Tempo
End Sub

 

Sub Tempo()
    Application.OnTime Now + TimeValue("01:00:00"), "EnviarEmail"
End Sub

 

Esta pode ficar em um módulo de planilha ou formulário se for o caso,

Private Sub btEmail_Click()
    Call Tempo
End Sub

 

[Tim Baster]

23 horas atrás, Midori disse:

@Tim Baster  Com a função OnTime você pode chamar a própria Sub (em um Módulo) como fiz acima ou chamar outra que no fim da execução chamará a sub do tempo, p.ex,

 

Estas subs tem que estar em um Módulo (Inserir > Módulo).

Sub EnviarEmail()
    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

	[...]

    Call Tempo
End Sub

 

Sub Tempo()
    Application.OnTime Now + TimeValue("01:00:00"), "EnviarEmail"
End Sub

 

Esta pode ficar em um módulo de planilha ou formulário se for o caso,

Private Sub btEmail_Click()
    Call Tempo
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