![]() |
Reminder
Hello all,
How do I via vba write code that will automatically put in a reminder two days out when an email is sent out from excel? Example. I have an excel sheet that checks for corrections of a form, once I have made the corrections via excel userform, I have a commandbutton (email) that opens an outlook message, pastes my comments, inserts email addresses etc. What I would also like to do is write code that creates a reminder in outlook that will remind me to email after a couple of days. Here is the code that I use to send the message from excel: Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) With OutMail .to = " .CC = " " .BCC = " " .Subject = "OER for " & Worksheets("Correction_Sheet").Range("b3") & ", Thru date " & Worksheets("Correction_Sheet").Range("e5") & "." .Body = Focus .Display Application.Wait (Now + TimeValue("0:00:04")) Application.SendKeys "%esf{enter}" End With Set OutMail = OutApp.CreateItem(0) Set OutApp = Nothing Please help. |
Reminder
Add another function to create a separate Task Item with a reminder set:
Sub AddTaskWithReminder() Dim OutApp As Outlook.Application Dim objTask As Outlook.TaskItem Set OutApp = CreateObject("Outlook.application") Set objTask = OutApp.CreateItem(olTaskItem) objTask.Subject = "Send E-mail" objTask.ReminderSet = True objTask.ReminderTime = DateAdd("d", 5, Date) objTask.Display Set OutApp = Nothing Set objTask = Nothing End Sub -- Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration) Try Picture Attachments Wizard for Outlook: http://www.collaborativeinnovations.ca Blog: http://blogs.officezealot.com/legault/ "BigPig" wrote: Hello all, How do I via vba write code that will automatically put in a reminder two days out when an email is sent out from excel? Example. I have an excel sheet that checks for corrections of a form, once I have made the corrections via excel userform, I have a commandbutton (email) that opens an outlook message, pastes my comments, inserts email addresses etc. What I would also like to do is write code that creates a reminder in outlook that will remind me to email after a couple of days. Here is the code that I use to send the message from excel: Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) With OutMail .to = " .CC = " " .BCC = " " .Subject = "OER for " & Worksheets("Correction_Sheet").Range("b3") & ", Thru date " & Worksheets("Correction_Sheet").Range("e5") & "." .Body = Focus .Display Application.Wait (Now + TimeValue("0:00:04")) Application.SendKeys "%esf{enter}" End With Set OutMail = OutApp.CreateItem(0) Set OutApp = Nothing Please help. |
All times are GMT +1. The time now is 05:39 AM. |
Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com