☰

Outlook: envíe correos electrónicos solo durante el horario laboral/comercial

tag-icon • tag-icon email microsoft-outlook
Outlook: envíe correos electrónicos solo durante el horario laboral/comercial

¿Cómo configuro Outlook para que los correos electrónicos que escribo fuera del horario comercial y los fines de semana se retrasen y solo se envíen durante el horario comercial?

Quiero parecer productivo, pero usando mi tiempo de manera efectiva. ¿Es demasiado difícil preguntar?

Puedo retrasar mensajes individuales hasta cualquier momento y usar reglas hasta 120 minutos. ¿Alguien puede darme algún consejo sobre cómo crear una regla personalizada para enviar correo solo en horario comercial?

¡Gracias de antemano!

Respuesta1

Busqué en Google un poco una solución vba (Visual Basic para Aplicaciones) y encontré esa:
http://www.vbforums.com/showthread.php?t=574491

Esta solución está diseñada para Outlook 2003, pero también puede funcionar en versiones más recientes de Outlook.

Editar:
aquí está el código vba que debe colocarse en 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

Quizás tengas que ajustar el tiempo.

Respuesta2

Si solo está intentando trabajar en su trabajo pendiente durante el fin de semana y en realidad no tiene una sesión de correo en vivo, desconecte Outlook antes de comenzar a enviar sus respuestas.

Luego, cuando regrese al trabajo el lunes, conéctese y envíe.

Esto también tiene el efecto secundario adicional de permitirle concentrarse en su deuda de correo electrónico existente, en lugar de permitir que la nueva actividad que llega fuera del horario laboral interrumpa su pensamiento.

información relacionada