Bom dia pessoal!
Estou rodando uma macro com parciais de produção de duas em duas horas, esta macro envia um e-mail com os dados e gostaria que, no assunto do e-mail, constasse a hora da parcial, por exemplo.
Esta macro roda as 10:00, 12:00, 14:00, 16:00, 18:00 e 20:00, porém o e-mail é enviado com um certo delay (alguns minutos de atraso). Sendo assim, gostaria de algum script para incluir na macro com a seguinte lógica:
se hora atual >=10:00 e <12:00 -------- Assunto do e-mail = Parcial 10:00 h
O código atual é o seguinte:
Sub envia_email()
Dim m_outlook As Object, msg As Object
Set m_outlook = CreateObject("Outlook.Application")
Set msg = m_outlook.CreateItem(olMailItem)
With msg
.To = ""
.CC = ""
.Subject = "Parcial de instalações e serviços"
.Attachments.Add "G:regional_sudesteparcial_regional.xlsx", olByReference, 1
.HTMLBody = "<img border='0' src='G:regional_sudestecabecalho.png'><br><br><img border='0' src='G:regional_sudesteproducao.gif'>"
.send ' Ou Display para abrir o email.
End With
End Sub
mau_mau,
Boa Noite!
Se entendi corretamente o que você quer, seria algo mais ou menos assim:
Sub envia_email()
Dim m_outlook As Object, msg As Object
Set m_outlook = CreateObject("Outlook.Application")
Set msg = m_outlook.CreateItem(olMailItem)
With msg
.To = ""
.CC = ""
If Time >= "10:00:00" And Time < "12:00:00" Then
.Subject = "Parcial 10:00 h - de instalações e serviços"
ElseIf Time >= "12:00:00" And Time < "14:00:00" Then
.Subject = "Parcial 12:00 h - de instalações e serviços"
ElseIf Time >= "14:00:00" And Time < "16:00:00" Then
.Subject = "Parcial 14:00 h - de instalações e serviços"
ElseIf Time >= "16:00:00" And Time < "18:00:00" Then
.Subject = "Parcial 16:00 h - de instalações e serviços"
ElseIf Time >= "16:00:00" And Time < "18:00:00" Then
.Subject = "Parcial 16:00 h - de instalações e serviços"
ElseIf Time >= "18:00:00" And Time < "20:00:00" Then
.Subject = "Parcial 18:00 h - de instalações e serviços"
ElseIf Time >= "20:00:00" Then
.Subject = "Parcial 20:00 h - de instalações e serviços"
End If
.Attachments.Add "G:regional_sudesteparcial_regional.xlsx", olByReference, 1
.HTMLBody = "<img border='0' src='G:regional_sudestecabecalho.png'><br><br><img border='0' src='G:regional_sudesteproducao.gif'>"
.send ' Ou Display para abrir o email.
End With
End Sub
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel