Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.