|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
|
|
#1
February 9th 06, 07:09 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
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 
|
|
#2
February 9th 06, 07:19 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
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
|
|
#3
February 9th 06, 08:19 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
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
|
|
#4
February 9th 06, 10:23 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
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
|
|
#5
February 9th 06, 08:45 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
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
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Receptionist needing a phone memo form to email phone messages. | Kathy | Outlook - Using Forms | 1 | March 3rd 06 11:07 AM |
| Display two cell phone fields in Outlook | A S Rai | Outlook - Using Contacts | 1 | February 17th 06 02:34 PM |
| Sending Outlook Reminders To Cell Phone | [email protected] | Outlook - Calandaring | 1 | February 5th 06 10:44 PM |
| can calendar reminders by synched to text message my cell phone? | danville kelly | Outlook - Calandaring | 1 | January 25th 06 11:38 AM |
| When sycn'g my phone outlook insert a 2nd meeting 5 hrs later? | jgni | Outlook - Calandaring | 1 | January 19th 06 05:14 PM |
Hybrid Mode
