☰

Outlook - envie e-mails apenas durante o horário comercial/comercial

tag-icon • tag-icon email microsoft-outlook
Outlook - envie e-mails apenas durante o horário comercial/comercial

Como configuro meu Outlook para que os e-mails que escrevo após o horário comercial e nos finais de semana sejam atrasados ​​e sejam enviados apenas durante o horário comercial?

Quero parecer produtivo, mas usando meu tempo de maneira eficaz. É muito difícil perguntar?

Posso atrasar mensagens únicas a qualquer momento e usar regras em até 120 minutos. Alguém pode me dar alguma dica sobre como criar uma regra personalizada para enviar e-mails somente em horário comercial.

Desde já, obrigado!

Responder1

Pesquisei um pouco no Google por uma solução vba (Visual Basic for Applications) e encontrei essa:
http://www.vbforums.com/showthread.php?t=574491

Esta solução foi desenvolvida para o Outlook 2003, mas também pode funcionar em versões mais recentes do Outlook.

Editar:
aqui está o código vba que deve ser colocado no Outlook.

Public Sub CheckSendTime()
    Dim obj As Object
    Dim Mail As Outlook.MailItem
    Dim WkDay As String
    Dim MinNow As Integer
    Dim SendHour As Integer
    Dim SendDate As Date
    Dim SendNow As String

'Set Variables
SendDate = Now()
SendHour = Hour(Now)
MinNow = Minute(Now)
WkDay = Weekday(Now)
SendNow = Y

'Check if Before 8am
If SendHour < 8 Then
    SendHour = 8 - SendHour
    SendDate = DateAdd("h", SendHour, SendDate)
    SendDate = DateAdd("n", -MinNow, SendDate)
    SendNow = N
End If
'Check if after 7PM
If SendHour > 19 Then           'After 7 PM
    SendHour = 32 - SendHour    'Send a 8 am next day
    SendDate = DateAdd("h", SendHour, SendDate)
    SendDate = DateAdd("n", -MinNow, SendDate)
    SendNow = N
End If

'Check if Sunday
If WkDay = 1 Then
    SendDate = DateAdd("d", 1, SendDate)
    SendNow = N
End If

'Check if Saturday
'If WkDay = 7 Then
'    SendDate = DateAdd("d", 2, SendDate)
'    SendNow = N
'End If

'Send the Email
  Set obj = Application.ActiveInspector.CurrentItem
  If TypeOf obj Is Outlook.MailItem Then
    Set Mail = obj
    'Check if we need to delay delivery
    If SendNow = N Then
      Mail.DeferredDeliveryTime = SendDate
    End If
    Mail.Send
  End If

End Sub

Talvez você tenha que ajustar o tempo.

Responder2

Se você está apenas tentando trabalhar em sua lista de pendências, durante o fim de semana, e não tem realmente uma sessão de e-mail ao vivo, coloque o Outlook offline antes de começar a enviar suas respostas.

Então, quando você voltar ao trabalho na segunda-feira, acesse a Internet e envie.

Isso também tem o efeito colateral extra de permitir que você se concentre em sua dívida de e-mail existente, em vez de permitir que novas atividades que chegam fora do horário comercial interrompam seu pensamento.

informação relacionada