VBA poate automatiza sarcinile și solicitările de activități. Următoarele secțiuni vă arată să creați o activitate, să lucrați cu conținutul unui element de activitate și să trimiteți o solicitare de activitate.

Crearea unei activități (Task)

Pentru a crea un element de activitate nou, utilizați metoda CreateItem a obiectului aplicație și specificați olTaskItem pentru argumentul ItemType. Următorul exemplu creează o variabilă de obiect TaskItem denumită myTask și îi atribuie un element de activitate nou:

Dim myTask As TaskItem

Set myTask = Application.CreateItem(ItemType:=olTaskItem)

Lucrul cu conținutul unui element de activitate

Pentru a lucra cu conținutul unui element de activitate, setați sau obțineți proprietățile corespunzătoare. Cele mai utilizate proprietăți sunt următoarele:

• Subject este subiectul activității.
• Body este textul corpului activității.
• Start este ora de începere a activității.
• DueDate este data scadentă a activității.
• Importance este importanța activității. O puteți seta la olImportanceHigh, olImportance Normal sau olImportanceLow.
• Status este starea activității: olTaskNotStarted, olTaskWaiting, olTaskDeferred, olTaskInProgress sau olTaskComplete.
• PercentComplete este procentul din activitatea finalizată.
• Companies specifică companiile asociate cu acea activitate.
• BillingInformation este compania sau departamentul implicată cu plata pentru activitate.

Următorul exemplu creează o variabilă de obiect TaskItem denumită myTask și îi atribuie un element de activitate nou. Acesta stabilește apoi subiectul și corpul sarcinii, specifică o dată scadentă în viitor, stabilește statutul de olTaskInProgress și procentul completării activității la 10, specifică compania implicată și care să factura, stabilește importanța activității la High și apoi salvează sarcina :

Dim myTask As TaskItem

Set myTask = Application.CreateItem(ItemType:=olTaskItem)

With myTask

  .Subject = "Crearea unui plan de afaceri"

  .Body = "Planul de afaceri trebuie sa acopere urmatorii patru ani." & _ 

      vbCr & vbCr & "Trebuie să furnizeze un buget detaliat, " & _

      "proiecții de personal și o analiză cost / beneficii."

  .DueDate = Str(Date + 28)

  .Status = olTaskInProgress

  .PercentComplete = 10

  .Companies = "Acme Polyglot Industrialists"

  .BillingInformation = "Sales & Marketing"

  .Importance = olImportanceHigh

  .Save 

End With

Obiectul TaskItem are 69 de proprietăți. Dacă doriți să explorați mai multe dintre ele, accesați pagina web MSDN:

http://msdn.microsoft.com/en-us/library/office/jj871952.aspx

Atribuirea unei sarcini unui coleg

Pentru a atribui o activitate unui coleg, utilizați metoda Assign a obiectului TaskItem, apoi utilizați metoda Add din colecția Recipients (Destinatari) pentru a adăuga unul sau mai mulți destinatari. În cele din urmă, puteți utiliza metoda Send pentru a trimite activitatea colegului dvs.

Următorul exemplu creează o activitate, utilizează metoda Assign pentru a indica faptul că va fi atribuită, specifică un destinatar și trimite activitatea:

Dim myTaskAssignment As TaskItem

Set myTaskAssignment = Application.CreateItem(ItemType:=olTaskItem)

With myTaskAssignment

  .Assign

  .Recipients.Add Name:="Petru Nagy"

  .Subject = "Cumpara covrigi"

  .Body = "Este randul tau sa cumperi covrigi vineri."

  .Body = .Body & vbCr & vbCr & "Atentie: FARA gogosi."

  .DueDate = Str(Date + 3)

  .Send 

End With