VBA/Excel/Access/Word/Outlook/Outlook Task — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:33, 26 мая 2010
Содержание
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>