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:
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