Fóruns
Microsoft Excel - 2...
Datas & Horas
Inserir data e hora...
 
Notifications
Clear all

Inserir data e hora no assunto do e-mail

 
Datas & Horas
Post Recente por Wagner Morel 11 anos atrás
2 Posts
2 Usuários
0 Reactions
1,198 Visualizações
RSS
 mau_mau
(@mau_mau)
Posts: 3
Active Member
Topic starter
 

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
 
Postado : 07/04/2014 8:01 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

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
 
Postado : 07/04/2014 5:52 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico