Mike760534211
New Member
- Outlook version
- Outlook 2010 32 bit
- Email Account
- Exchange Server
I am using the below code from http://www.slipstick.com/developer/send-email-outlook-reminders-fires/
with outlook 2013. I have created a category called MWVRAW. When I create a task and set a reminder, choose the MWVRAW category the reminder fires off but it never composes or sends the email. I added the code to the ThisOutlookSession as instructed. I have also set macro settings to Enable all macros in the Outlook trust center.
Any assistance would be appreciated.
with outlook 2013. I have created a category called MWVRAW. When I create a task and set a reminder, choose the MWVRAW category the reminder fires off but it never composes or sends the email. I added the code to the ThisOutlookSession as instructed. I have also set macro settings to Enable all macros in the Outlook trust center.
Code:
Private Sub Application_Reminder(ByVal Item As Object)
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
'IPM.TaskItem to watch for Task Reminders
If Item.MessageClass <> "IPM.Appointment" Then
Exit Sub
End If
If Item.Categories <> "MWVRAW" Then
Exit Sub
End If
objMsg.To = "my_email@domain.com"
objMsg.BCC = ""
objMsg.Subject = Item.Subject
objMsg.Body = Item.Body
objMsg.Send
Set objMsg = Nothing
End Sub
Any assistance would be appreciated.