I put the code on "ThisOutlookSession" and it worked fine for me. The only
thing I changed was the contact name to ReminderPhone.

Rafael

"rimmer59" wrote in message
...
Yes. I also receive this Run-time-error '-2147467259 (80004005)': Outlook
does not recognize one or more names.

"Sue Mosher [MVP-Outlook]" wrote:

What error? Do you have a contact in your contacts folder named "Pager
for Reminders" with a valid email address? Otherwise, Outlook won't know
who to send it to.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"rimmer59" wrote in message
...
I have typed in the following but get an error at oEmail.Send. This
code was
for an earlier version of Outlook. What do you do now for the 2003
version?
Regards, Tim

Private Sub Application_Reminder(ByVal Item As Object)
If Item.Sensitivity olConfidential Then
If TypeOf Item Is AppointmentItem Then SendApptReminder Item
If TypeOf Item Is MailItem Then SendMailReminder Item
If TypeOf Item Is TaskItem Then SendTaskReminder Item
End If
End Sub

Private Sub SendApptReminder(ByRef Item As AppointmentItem)
SendPage Item.Subject, FormatDateTime(Item.Start, vbShortTime) & _
"-" & FormatDateTime(Item.End, vbShortTime) & vbCrLf & _
Item.Location
End Sub

Private Sub SendMailReminder(ByRef Item As MailItem)
SendPage "Mail Reminder", Item.Subject
End Sub

Private Sub SendTaskReminder(ByRef Item As TaskItem)
SendPage Item.Subject, Item.Body
End Sub

Private Sub SendPage(ByRef Subject As String, ByRef Body As String)
Dim oEmail As Object
Set oEmail = Application.CreateItem(olMailItem)
oEmail.Subject = Subject
oEmail.Body = Body
oEmail.Recipients.Add "Pager For Reminders"
oEmail.Send
End Sub