Advertisement
Advertisement
| 04.28.2008 at 03:23AM PDT, ID: 23358232 | Points: 500 |
|
[x]
Attachment Details
|
||
| Microsoft |
| Apple |
| Internet |
| Gamers |
| Digital Living |
| Virus & Spyware |
| Hardware |
| Software |
| ITPro |
| Developer |
| Storage |
| OS |
| Database |
| Security |
| Programming |
| Web Development |
| Networking |
| Other |
| Community Support |
| 04.28.2008 at 09:51AM PDT, ID: 21455555 |
| 04.28.2008 at 09:54AM PDT, ID: 21455573 |
| 04.28.2008 at 09:58AM PDT, ID: 21455604 |
| 04.28.2008 at 06:44PM PDT, ID: 21458961 |
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: |
Dim olkApp, olkCalendar, olkEvent, objFSO, objFile, arrItem, strFilename
'Change the file name and path on the following line as needed.
strFilename = "C:\eeTesting\Outlook.hol"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFilename)
Set olkApp = CreateObject("Outlook.Application")
Set olkCalendar = olkApp.GetNamespace("MAPI").GetDefaultFolder(9)
Do While Not objFile.AtEndOfStream
arrItem = Split(objFile.ReadLine, ",")
Set olkEvent = olkApp.CreateItem(1)
olkEvent.Subject = arrItem(0)
olkEvent.Start = arrItem(1)
olkEvent.AllDayEvent = True
olkEvent.ReminderSet = False
olkEvent.Display
Loop
Set olkEvent = Nothing
Set olkCalendar = Nothing
Set olkApp = Nothing
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
WScript.Echo "Holidays Added"
|
| 04.29.2008 at 02:02AM PDT, ID: 21460566 |
| 04.29.2008 at 03:24AM PDT, ID: 21460897 |
| 04.29.2008 at 03:37AM PDT, ID: 21460949 |
| 05.02.2008 at 12:52PM PDT, ID: 21489552 |
| 05.06.2008 at 01:16AM PDT, ID: 21505542 |
| 05.15.2008 at 02:42PM PDT, ID: 21578232 |