VBA/Excel/Access/Word/Outlook/Outlook Task

Материал из VB Эксперт
Перейти к: навигация, поиск

Assigning a Task to a Colleague

   <source lang="vb">

Sub taskItemTask()

   Dim myTaskAssignment As TaskItem
   Set myTaskAssignment = Application.CreateItem(ItemType:=olTaskItem)
   With myTaskAssignment
       .Assign
       .Recipients.Add Name:="Your Name"
       .Subject = "Body"
       .Body = "body."
       .DueDate = Str(Date + 3)
       .Send
   End With

End Sub

</source>
   
  


Create a TaskItem

   <source lang="vb">

Sub taskItem()

   Dim myTask As TaskItem
   Set myTask = Application.CreateItem(ItemType:=olTaskItem)
   With myTask
       .Subject = "plan"
       .Body = "body"
       .DueDate = Str(Date + 28)
   
       .Status = olTaskInProgress
       .PercentComplete = 10
       .rupanies = "your company"
       .BillingInformation = "Sales & Marketing"
       .Importance = olImportanceHigh
       .Save
   End With

End Sub

</source>
   
  


Creating a Task

   <source lang="vb">

Sub task()

   Dim myTask As TaskItem
   Set myTask = Application.CreateItem(ItemType:=olTaskItem)

End Sub

</source>
   
  


Using the Save Method

   <source lang="vb">

"Creates a new task; assigns it a subject, start date, and due date; turns off the reminder for the task; and then saves it: Sub taskItem()

   Dim myTask As TaskItem
   Set myTask = Application.CreateItem(ItemType:=olTaskItem)
   With myTask
       .Subject = "Arrange Review Meeting"
       .StartDate = Date
       .DueDate = Date + 7
       .ReminderSet = False
       .Save
   End With

End Sub

</source>