Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Automating the Delayed Sending of Your Emails - Outlook

Posted on 2008-10-30
3
Medium Priority
?
287 Views
Last Modified: 2012-05-05
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
0
Comment
Question by:ArmstrongInt
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
3 Comments
 
LVL 76

Expert Comment

by:David Lee
ID: 22839829
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.  
0
 
LVL 93

Expert Comment

by:Patrick Matthews
ID: 22839851
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
0
 
LVL 1

Accepted Solution

by:
ArmstrongInt earned 0 total points
ID: 22876837
Hi Guys

Sorry for the late reply, been off sick.

The user is happy to this via outlook manually as it will be for only a few emails, however when she does it the message was sent out at 07.00 on monday morning however  it still says sent 31 Oct 19.25 (when it was sent) which defeats the purpose.

Any ideas ?

Thanks
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article will help to fix the below errors for MS Exchange Server 2013 I. Certificate error "name on the security certificate is invalid or does not match the name of the site" II. Out of Office not working III. Make Internal URLs and Externa…
If you troubleshoot Outlook for clients, you may want to know a bit more about the OST file before doing your next job. IMAP can cause a lot of drama if removed in the accounts without backing up.
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

715 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question