Hi Outlook-Forums-Users,
i am searching for an Workaround to creating an task by email-item in Outlook (2010/2013) in draft-mode
befor sending! The .MarkAsTask option works after sending an email. I need a workaround to set a reminder for the sender and not for the recipients bevor sending.
Do this manually by menue of Outlook it works.
Have anybody an idea of an workaround?
Here is my samplecode...
Greetings from Germany
Public Sub SetTask()
Dim objOutApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOutApp = GetObject(, "Outlook.Application")
Set objMail = objOutApp.ActiveInspector.CurrentItem
With objMail
.TaskDueDate = DateAdd("d", 5, Now)
.TaskStartDate = DateAdd("d", 5, Now)
.ReminderSet = True
.ReminderTime = #6/21/2014#
.Save
.Display
End With
Set objMail = Nothing
Set objOutApp = Nothing
End Sub
i am searching for an Workaround to creating an task by email-item in Outlook (2010/2013) in draft-mode
befor sending! The .MarkAsTask option works after sending an email. I need a workaround to set a reminder for the sender and not for the recipients bevor sending.
Do this manually by menue of Outlook it works.
Have anybody an idea of an workaround?
Here is my samplecode...
Greetings from Germany
Public Sub SetTask()
Dim objOutApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOutApp = GetObject(, "Outlook.Application")
Set objMail = objOutApp.ActiveInspector.CurrentItem
With objMail
.TaskDueDate = DateAdd("d", 5, Now)
.TaskStartDate = DateAdd("d", 5, Now)
.ReminderSet = True
.ReminderTime = #6/21/2014#
.Save
.Display
End With
Set objMail = Nothing
Set objOutApp = Nothing
End Sub