Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Function AddOutLookTask() Dim appOutLook As Outlook.Application Dim taskOutLook As Outlook.TaskItem Set appOutLook = CreateObject("Outlook.Application") Set taskOutLook = appOutLook.CreateItem(olTaskItem) With taskOutLook .Subject = "This is the subject of my task" .Body = "This is the body of my task." .ReminderSet = True .ReminderTime = DateAdd("n", 2, Now) ' Set to remind us 2 ' minutes from now. .DueDate = DateAdd("n", 5, Now) ' Set the due date to ' 5 minutes from now. .ReminderPlaySound = True 'add the path to a .wav file on your computer. .ReminderSoundFile = "C:\Win95\media\ding.wav" .Save End With End Function Sub AssignTask() Dim myItem As Outlook.TaskItem Dim myDelegate As Outlook.Recipient Set MyItem = Application.CreateItem(olTaskItem) MyItem.Assign Set myDelegate = MyItem.Recipients.Add("Dan Wilson") myDelegate.Resolve If myDelegate.Resolved Then myItem.Subject = "Prepare Agenda For Meeting" myItem.DueDate = Now + 30 myItem.Display myItem.Send End If End Sub
|How to combine new outlook.com account with my other email accounts||6||13|
|Calulated Field in MSAccess||11||8|
|message box formulas||3||16|
|Access 2016 - Use a Button to Select a specific Record on a form||12||14|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!