[es] - macro: na osnovu vrednosti excel celija napraviti zadatak u outlook

superr
Pančevo

Član broj: 129200
Poruke: 31
*.adsl-a-2.sezampro.rs.

+3 Profil

macro: na osnovu vrednosti excel celija napraviti zadatak u outlook

^{09.05.2011. u 19:19 - pre 170 meseci}

Pozdrav svima!
Za dugme "Unesi zadatak!" treba smisliti macro koji bi od odrećenih celija iz excela napravio novi "zadatak- task" u Outlook
Konkretno te ćelije bi bile sledeće:

Excel: outlook:
B2 "kupac" Tema
G2 "datum" Datum početka
G5 "Datum ugradnje" Krajnji rok

dakle aktiviranjem macroa otvara se novi zadatak u outlook sa gore definisanim poljima, onda bih ja popunio ostatak vrednosti ručno i na kraju ručno sačuvao zadatak.

Prikačeni fajlovi

Primer.xlsm - 32.56k

Odgovor na temu

Djuka Maricic
Djuka Maricic
Mirijevo

Član broj: 71362
Poruke: 18
109.121.54.*

+2 Profil

Re: macro: na osnovu vrednosti excel celija napraviti zadatak u outlook

^{26.05.2011. u 15:38 - pre 169 meseci}

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)

Odgovor na temu