tips
12-03-2015, 04:57 AM
Hi,
First post please forgive me if i do something wrong.
So i am using outlook 2010 on a windows 7 64 bit system. I am using the below code to send automate emails based on calander alerts.
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 <> "Send Message" Then
Exit Sub
End If
objMsg.To = Item.Location
objMsg.Subject = Item.Subject
objMsg.Body = Item.Body
objMsg.Send
Set objMsg = Nothing
End Sub
This works perfectly apart from sending duplicate emails. I can not stop the duplicate email.
Thanks for any help.
regards
Craig
First post please forgive me if i do something wrong.
So i am using outlook 2010 on a windows 7 64 bit system. I am using the below code to send automate emails based on calander alerts.
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 <> "Send Message" Then
Exit Sub
End If
objMsg.To = Item.Location
objMsg.Subject = Item.Subject
objMsg.Body = Item.Body
objMsg.Send
Set objMsg = Nothing
End Sub
This works perfectly apart from sending duplicate emails. I can not stop the duplicate email.
Thanks for any help.
regards
Craig