Delay Send and Mail Merge

Status
Not open for further replies.

kavihasya

New Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Looking for a macro that will solve all my problems.

I support a program that runs numerous events, at the end of which an email needs to be sent inviting the recipient to fill out a survey. I obviously don't want to send these emails out before the event has taken place. I would prefer to schedule the sending of these emails in advance to better manage my workflow

I create these emails through a mail merge (sending the messages into my offline email outbox). But it seems that the only way to delay sending by more than 120 minutes is to go into each email individually and change it - Not a great solution!

Is there a macro out there that will allow me to select more than one email, and specify a specific date and time to send those emails? Most of the stuff I've found online has to do with waiting til the next morning - I sometimes want to wait more than a week to send stuff out.
 

kavihasya

New Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
See Delay Delivery of Messages Sent at Specific Times - you'll probably want to remove the lines that check the time of day... :)
Uh, most of it is checking the time of day?

Is this what you are thinking of?

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
SendDate = InputBox("Enter date to send")
SendAt = SendDate + #7:00:00 PM#
Item.DeferredDeliveryTime = SendAt
End Sub​
 

kavihasya

New Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
See Delay Delivery of Messages Sent at Specific Times - you'll probably want to remove the lines that check the time of day... :)
Oh, but I'm also noticing that this will impact everything that I send! How do I get it to only impact selected messages in my outbox?
Uh, most of it is checking the time of day?

Is this what you are thinking of?

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
SendDate = InputBox("Enter date to send")
SendAt = SendDate + #7:00:00 PM#
Item.DeferredDeliveryTime = SendAt
End Sub​
Oh, but I'm also noticing that this will impact everything. I only want this to apply to specific messages I select. Not everything. How do I specify?
 
Status
Not open for further replies.
Top