Link to home
Start Free TrialLog in
Avatar of ArmstrongInt
ArmstrongInt

asked on

Automating the Delayed Sending of Your Emails - Outlook

Hi there

I know you can manually set an email to delayed in outlook in the options of the message, I am wondering if there is a way of automating this.

For example so they 'hold' if they are written between 7.00 pm and 7.30 am to send at 7.30 am.  The same for any written in the weekend - I would like to 'hold' them until 7.30 am on the following Monday.

I am sure it won't be possible Blackberry mail (we have BES 4.0). This would just be for specific user/s.

Any ideas would be appreciated.

Thanks

Arm
Avatar of David Lee
David Lee
Flag of United States of America image

Hi, ArmstrongInt.

I don't know how the Blackberry figures into the question.  Are you asking if it's possible to do this with messages sent via Outlook or from a Blackberry?  If Outlook, then I might be able to accomplish this with a bit of scripting.  If from the Blackberry, then I've no idea.  
This will do nothing for Blackberry, but something like it may work for Outlook.  It goes in the
ThisOutlookSession module...


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
   
    If Item.Class = olMail Then
        Select Case Weekday(Now, vbMonday)
            Case 1 To 5
                If Time < TimeValue("7:30 am") Then
                    Item.DeferredDeliveryTime = Date + TimeValue("7:30 am")
                ElseIf Time >= TimeValue("7:30 pm") Then
                    Item.DeferredDeliveryTime = Date + 1 + TimeValue("7:30 am")
                Else
                    'do nothing
                End If
            Case Else
                Item.DeferredDeliveryTime = Date + 8 - Weekday(Now, vbMonday) + TimeValue("7:30 am")
        End Select
    End If

End Sub
ASKER CERTIFIED SOLUTION
Avatar of ArmstrongInt
ArmstrongInt

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial