|
| 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
May 24th 06, 01:51 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
Setting the ReminderTime gives strange results
I am using the following code in an Access database to create an Outlook Task
Item automatically. All is fine, except that the Reminder Date is always incorect. Any suggestions as to why, or more impoortantly, how to fix the problem, would be appreciated. Public Sub SetReminder() Dim OutlookApp As Outlook.Application Dim OutlookTask As Outlook.TaskItem Dim RemDate As Date Set OutlookApp = CreateObject("Outlook.Application") Set OutlookTask = OutlookApp.CreateItem(olTaskItem) RemDate = Forms!frm_Action_New.RemindMe With OutlookTask .Subject = "Auto-Reminder for Item Reference - " & Me.Item_Ref .Body = "Action:" & vbCrLf & Me.Action_Note & vbCrLf & vbCrLf _ & "Business Owner:" & vbCrLf & Me.Action_Bus_Owner & vbCrLf & vbCrLf _ & "Target date for completion:" & vbCrLf & Me.Target_Date .StartDate = Date .ReminderSet = True .ReminderTime = RemDate & " " & CDate(#9:00:00 AM#) .DueDate = Me.Target_Date .Categories = "AutoReminder" .ReminderPlaySound = True .ReminderSoundFile = "C:\Windows\Media\Ding.wav" .Save End With End Sub 
|
|
#2
May 25th 06, 08:48 AM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Setting the ReminderTime gives strange results
Am Wed, 24 May 2006 05:51:02 -0700 schrieb Tim_Pope:
What time do you expect and what is it instead? -- Viele Gruesse / Best regards Michael Bauer - MVP Outlook -- www.vbOffice.net -- I am using the following code in an Access database to create an Outlook Task Item automatically. All is fine, except that the Reminder Date is always incorect. Any suggestions as to why, or more impoortantly, how to fix the problem, would be appreciated. Public Sub SetReminder() Dim OutlookApp As Outlook.Application Dim OutlookTask As Outlook.TaskItem Dim RemDate As Date Set OutlookApp = CreateObject("Outlook.Application") Set OutlookTask = OutlookApp.CreateItem(olTaskItem) RemDate = Forms!frm_Action_New.RemindMe With OutlookTask .Subject = "Auto-Reminder for Item Reference - " & Me.Item_Ref .Body = "Action:" & vbCrLf & Me.Action_Note & vbCrLf & vbCrLf _ & "Business Owner:" & vbCrLf & Me.Action_Bus_Owner & vbCrLf & vbCrLf _ & "Target date for completion:" & vbCrLf & Me.Target_Date .StartDate = Date .ReminderSet = True .ReminderTime = RemDate & " " & CDate(#9:00:00 AM#) .DueDate = Me.Target_Date .Categories = "AutoReminder" .ReminderPlaySound = True .ReminderSoundFile = "C:\Windows\Media\Ding.wav" .Save End With End Sub
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Allow results of an advance search to use the new email message | Ehudsdagger | Outlook - Using Contacts | 0 | May 16th 06 12:43 AM |
| Outlook Calendar Import results in events spanning 2 days, not 1 | MikeM | Outlook - Calandaring | 1 | April 23rd 06 10:42 AM |
| Is there a policy or registry setting for setting the default addr | scsi | Outlook - Installation | 1 | February 28th 06 01:19 PM |
| email shot/ search results | Noha Diab | Outlook - Using Contacts | 2 | February 14th 06 03:18 PM |
| How to get the results of an Advanced Find? | Lucas Campos | Outlook and VBA | 1 | January 27th 06 03:39 PM |
Hybrid Mode
