• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 300
  • Last Modified:

Outlook 2010 Macro Coding

I need code that, if I activate the macro while I have an email selected, the macro will forward the email to me and will delay delivery of the email until tomorrow at 2:00pm.

Any help is appreciated. Thank you.
0
carlosab
Asked:
carlosab
  • 2
1 Solution
 
David LeeCommented:
Hi, carlosab.

This will do what you described.  It will forward all of the messages you have selected to yourself with delivery set to 2:00pm on the following day.

Sub DelayedForward()
    Dim olkMsg As Outlook.MailItem, olkFwd As Outlook.MailItem
    For Each olkMsg In Application.ActiveExplorer.Selection
        Set olkFwd = olkMsg.Forward
        With olkFwd
            .Recipients.Add Session.CurrentUser.Address
            .Recipients.ResolveAll
            .DeferredDeliveryTime = DateAdd("d", 1, Date) & " 2:00 pm"
            .Send
        End With
    Next
    Set olkMsg = Nothing
    Set olkFwd = Nothing
End Sub

Open in new window

0
 
carlosabAuthor Commented:
Perfect. Thanks.
0
 
David LeeCommented:
You're welcome!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Certified Penetration Testing

This CPTE Certified Penetration Testing Engineer course covers everything you need to know about becoming a Certified Penetration Testing Engineer. Career Path: Professional roles include Ethical Hackers, Security Consultants, System Administrators, and Chief Security Officers.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now