How can I auto accept task in Outlook 2007, with VBScript?
I have Outlook 2007, over windows XP SP3, and I developed the following code to create tasks and assign them to the people who helps me at work:
Sub CreateTaskItem(strSubject,strDueDate,strBody,StrDelegate,strCategory,intID) Const olTaskItem = 3 'Creates an Automation object of the specified class Set OutlookApp = CreateObject("Outlook.Application") 'Creates and returns a new Microsoft Outlook item (item: An item is the basic element that holds information in Outlook) Set oItems = OutlookApp.CreateItem(olTaskItem) 'Assigns a task and returns a TaskItem object that represents it. 'This method allows a task to be assigned (delegated) to another user. 'You must create a task before you can assign it, and you must assign a task before you can send it. 'An assigned task is sent as a TaskRequestItem object. oItems.Assign Set myDelegate = oItems.Recipients.Add(StrDelegate) myDelegate.Resolve If myDelegate.Resolved Then 'String indicating the subject for the Outlook item oItems.Subject = strSubject 'Date indicating the due date for the task oItems.DueDate = strDueDate 'String representing the clear-text body of the Outlook item oItems.Body = strBody 'String representing the categories assigned to the Outlook item oItems.Categories = strCategory 'String representing the names of the companies associated with the Outlook item. In this code, Categories info is saved. oItems.Companies = strCategory 'String representing the billing information associated with the Outlook item. In this code is used to assing and unique ID to this Task oItems.BillingInformation = CStr(intID) 'String representing the mileage for an item. Read/write. oItems.Mileage = "CRCD Guadalupe" 'Occurs when the user selects the Send action for an item, or when the Send method is called for the item, which is an instance of the parent object oItems.Send End If Set oItems = Nothing Set OutlookApp = Nothing End Sub
This code works all right, Can anybody help me to develop the VBScript code to automatically accept the task I send to my coworkers? I want to save time and work to my coworkers, accepting every task I assign them.
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
Hi, I improved code adding "Restrict" method, and used on Outlok 2007 with success:
Sub AcceptTasks() 'Code based from http://msdn.microsoft.com/en-us/library/bb207065 Const olFolderInbox = 6, olTaskAccept = 2 Set OutlookApp = CreateObject("Outlook.Application") 'NameSpace object of the specified type Set myNameSpace = OutlookApp.GetNameSpace("MAPI") 'GetDefaultFolder:Folder object that represents the default folder of the requested type for the current profile Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) 'Select all TaskRequestItems items inside folder sFilter = "[MessageClass] = 'IPM.TaskRequest'" Set myTaskRequestItems = myFolder.Items.Restrict(sFilter) For Each TaskRequestItem In myTaskRequestItems Set AssociatedTaskRequestItem = TaskRequestItem.GetAssociatedTask(True) Set myItem = AssociatedTaskRequestItem.Respond(olTaskAccept, True, True) myItem.Send Next Set TaskRequestItem = Nothing Set AssociatedTaskRequestItem = Nothing Set myItem = Nothing Set myTaskRequestItems = Nothing Set myFolder = Nothing Set myNameSpace = Nothing Set OutlookApp = Nothing End Sub
Experts Exchange has (a) saved my job multiple times, (b) saved me hours, days, and even weeks of work, and often (c) makes me look like a superhero! This place is MAGIC!
Hi, I improved code adding "Restrict" method, and used on Outlok 2007 with success:
Open in new window
Thanks,
migcsha