Rad bi iz excelove tabele vnesel podatke v Outlook.
in sicer bi rad modificiral začetek in konec obstoječega sestanka v MS Outlooku. Vse skup bi najraje (najlažje) upravljal s pomočjo makroja v excelu.
imam tabelo:
http://shrani.si/f/1Y/B8/4A3e8wNJ/zajeta-slika.jpg
torej bi naredil naslednje: Za vsako vrstico v excelu poišči sestanek na ta dan in spremeni uro zacetka in konca sestanka
Koda: Izberi vse
Sub Makro1()
N = Cells(1, 1).End(xlDown).Row
For i = 1 To N
dan = Cells(i, 1).Value
zacetek = Cells(i, 2).Value
konec = Cells(i, 3).Value
[[[ PREHOD NA OUTLOOK]]]
Dim Appt As Object
Set Items = Session.GetDefaultFolder(olFolderCalendar).Items
For Each Appt In Items
On Error Resume Next
If Appt.Start = dan Then
With Appt
.start = zacetek
.end = konec
End With
End If
Next
Set Appt = Nothing
[[[PREHOD NA EXCEL]]]
Next
End Sub
Obstaja kaksen drugacen nacin kako ''najdem'' sestanek na določen dan?
Obstaja drugačen način kako spremenin začetek in kenec sestanka?
ker namreč tale makro se izvede ampak dejansko se začetek sestanka ne spremeni..... npr. koda:
Koda: Izberi vse
Dim Appt As Object
Set Items = Session.GetDefaultFolder(olFolderCalendar).Items
For Each Appt In Items
On Error Resume Next
If Appt.Start > "23.7.2014 0:00:00" And Appt.Start < "23.7.2014 9:00:00" Then
With Appt
.Start = "23.7.2014 8:23:00"
End With
MsgBox Appt.Subject & " " & Appt.Start
End If
Next
Set Appt = Nothing