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
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
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
ThisOutlookSession module...
Private Sub Application_ItemSend(ByVal
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
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
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.