How do I get my Outlook meeting reminder sent to my cell phone?
 

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

How do I get my Outlook meeting reminder sent to my cell phone?
 

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

How do I get my Outlook meeting reminder sent to my cell phone
 

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

How do I get my Outlook meeting reminder sent to my cell phone
 

My guess is that typing Pager for Reminders into the To box and clicking Check Names won't work either. The symptoms suggest that you don't in fact have a contact with that name in any of the address lists that Outlook checks when it resolves names. Either adjust the address lists in the address book (Tools | Address Book, Tools | Options) or use the actual email address instead.

--
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 ...
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.

"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

How do I get my Outlook meeting reminder sent to my cell phone
 

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