Pošto na kompu nemam novi ofis, nisam uspeo da vidim fajl koji si zakačio.
Ali mislim da ti ovaj kod može pomoci:
Code:
Sub xltool()
Dim ol As Outlook.Application 'ovo je outlook aplikacija
Dim zadatak As Outlook.TaskItem 'zadatak- task u outlooku
Dim ws As Worksheet
Application.ScreenUpdating = False 'iskljucivanje osvezavanja ekran, ubrzava se makro
Set ol = CreateObject("Outlook.Application") 'definisanje outlooka
Set zadatak = ol.CreateItem(olTaskItem) 'novi zadatak u outlooku
Set ws = ThisWorkbook.Sheets(1) 'sheet u ekselu odakle se podaci prebacuju u outlook
zadatak.Subject = ws.Range("B2") 'subject (tema zadatka)
zadatak.StartDate = ws.Range("G2") 'datum pocetka
zadatak.DueDate = ws.Range("G5") 'datum zavrsetka
zadatak.Display 'prikaz- otvaranje zadatka
Application.ScreenUpdating = True
End Sub
Moram da napomenem da u vba dodaš outlook library (Tools-References i cekiraš Microsoft Outlook 11.0 (u ofisu 2003) Object Library)