Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Outlook Automation, Deleting Tasks
Using the only working example I can find to search and delete OlItems based on a criteria, I have been able to successfully search out and delete OlCalendarItems, but not olTaskItems.
I can't understand why it works for one type of item in the model and not another. Any ideas Here is an example of my code: The part after the doubleline doesn't 'search and destroy Are there any code errors? I am a beginner [/startcode Dim olTsk As Outlook.TaskIte Dim olAppt As Outlook.AppointmentIte Dim ol As New Outlook.Applicatio Dim delfol As Outlook.MAPIFolde Dim ns As Outlook.NameSpac Dim yyny As VbMsgBoxResul Dim fdAppts As MAPIFolde Dim fdTasks As MAPIFolde Dim itmsAppointments As Outlook.Item Dim ItmsTasks As Outlook.Item Dim itm As Objec Dim olApp As Outlook.Applicatio Dim olNs As Objec Dim Newdddate As Strin Dim newstart As Objec Dim OutlookApp As Objec Const olAppointmentItem = Const olTaskItem = Set ns = OutlookApp.GetNamespace("MAPI" 'Reference the default Contacts folder and the 'return the Items collection of the folder Set fdAppts = ns.GetDefaultFolder(olFolderCalendar Set itmsAppointments = fdAppts.Item 'Establish the criteria and locate the Appt criteria = "[Subject] = Due Today " & UserForm2.TextBox10.Value & " For " & UserForm2.TextBox5.Valu Set itm = itmsAppointments.Find(criteria 'Determine if the item was found If itm Is Nothing The yyny = msgbox("Unable to locate the Outlook Calendar item. Continue and create new Item?", vbYesNo If yyny = vbNo Then GoTo End GoTo con End I 'Delete the Appointment Application.ScreenUpdating = Fals Set delfol = ns.GetDefaultFolder(olFolderDeletedItems On Error GoTo con While TypeName(itm) < "Nothing itm.Move delfo Wen Application.ScreenUpdating = Tru '================================================= === cont Set fdTasks = ns.GetDefaultFolder(olFolderTasks Set ItmsTasks = fdTasks.Items ' not workin criteria = "[Subject] = "subject to be deleted" itmm = ItmsTasks.Find(criteria) '?? ''Determine if the Task was found If itmm = "Nothing" The yyny = msgbox("Unable to locate the Task. Continue and create new Task?", vbYesNo If yyny = vbNo Then GoTo End GoTo cont1 End I 'Delete the Tas Set delfol = ns.GetDefaultFolder(olFolderDeletedItems Application.ScreenUpdating = Fals While TypeName(itmm) < "Nothing itmm.Move delfo Wen [/endcode Thanks for any help, I'm very close to completing my first app :-j. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Outlook Automation, Deleting Tasks
Why not post this in an Outlook newsgroup rather than an Excel news group.
There doesn't seem to be anything here that has to do with Excel. -- Regards, Tom Ogilvy jjjustinnn wrote in message ... Using the only working example I can find to search and delete OlItems based on a criteria, I have been able to successfully search out and delete OlCalendarItems, but not olTaskItems. I can't understand why it works for one type of item in the model and not another. Any ideas? Here is an example of my code: The part after the doubleline doesn't 'search and destroy' Are there any code errors? I am a beginner. [/startcode] Dim olTsk As Outlook.TaskItem Dim olAppt As Outlook.AppointmentItem Dim ol As New Outlook.Application Dim delfol As Outlook.MAPIFolder Dim ns As Outlook.NameSpace Dim yyny As VbMsgBoxResult Dim fdAppts As MAPIFolder Dim fdTasks As MAPIFolder Dim itmsAppointments As Outlook.Items Dim ItmsTasks As Outlook.Items Dim itm As Object Dim olApp As Outlook.Application Dim olNs As Object Dim Newdddate As String Dim newstart As Object Dim OutlookApp As Object Const olAppointmentItem = 1 Const olTaskItem = 3 Set ns = OutlookApp.GetNamespace("MAPI") 'Reference the default Contacts folder and then 'return the Items collection of the folder. Set fdAppts = ns.GetDefaultFolder(olFolderCalendar) Set itmsAppointments = fdAppts.Items 'Establish the criteria and locate the Appt. criteria = "[Subject] = Due Today " & UserForm2.TextBox10.Value & " For " & UserForm2.TextBox5.Value Set itm = itmsAppointments.Find(criteria) 'Determine if the item was found. If itm Is Nothing Then yyny = msgbox("Unable to locate the Outlook Calendar item. Continue and create new Item?", vbYesNo) If yyny = vbNo Then GoTo End1 GoTo cont End If 'Delete the Appointment. Application.ScreenUpdating = False Set delfol = ns.GetDefaultFolder(olFolderDeletedItems) On Error GoTo cont While TypeName(itm) < "Nothing" itm.Move delfol Wend Application.ScreenUpdating = True '================================================= ==== cont: Set fdTasks = ns.GetDefaultFolder(olFolderTasks) Set ItmsTasks = fdTasks.Items ' not working criteria = "[Subject] = "subject to be deleted" itmm = ItmsTasks.Find(criteria) '??? ''Determine if the Task was found. If itmm = "Nothing" Then yyny = msgbox("Unable to locate the Task. Continue and create new Task?", vbYesNo) If yyny = vbNo Then GoTo End1 GoTo cont11 End If 'Delete the Task Set delfol = ns.GetDefaultFolder(olFolderDeletedItems) Application.ScreenUpdating = False While TypeName(itmm) < "Nothing" itmm.Move delfol Wend [/endcode] Thanks for any help, I'm very close to completing my first app. :-j. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Outlook Automation, Deleting Tasks
Actually, my application is referencing Outlook from Excel vb. In the mean time, I have found a solution that works. The working solution is at http://msdn.microsoft.com/library/de.../en-us/dnout2k 2/html/odc_novoltips.asp Thanks. -justin *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Outlook Automation, Deleting Tasks
Which has a title of:
Ten Tips for Microsoft Outlook Developers (November 2002) and says: Applies to: Microsoft® Outlook® 2002 so where you manipulate outlook from is pretty much moot. Glad you found a solution though. -- Regards, Tom Ogilvy jjjustinnn wrote in message ... Actually, my application is referencing Outlook from Excel vb. In the mean time, I have found a solution that works. The working solution is at http://msdn.microsoft.com/library/de.../en-us/dnout2k 2/html/odc_novoltips.asp Thanks. -justin *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Counting tasks | Excel Discussion (Misc queries) | |||
Using Outlook Tasks from Excel... | Excel Discussion (Misc queries) | |||
Exporting tasks | Excel Worksheet Functions | |||
deleting outlook | Excel Discussion (Misc queries) | |||
Having links from excel spreadsheet to my outlook tasks | Excel Discussion (Misc queries) |