Is possible send a date to Outlook?

S

Stefano Zen

I have some date in a table.
I want to send it to Outlook so to have some kind of appointment,
And if is possible sent it with some paramameter like alarm1 week before.

Thanks
Stefano
 
D

Dan Artuso

Hi,
This should get you going. Set a reference to the
OUtlook library

Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim olItems As Outlook.Items
Dim olAppt As Outlook.AppointmentItem

Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set olFolder = olNS.GetDefaultFolder(olFolderCalendar)
Set olItems = olFolder.Items
Set olAppt = olItems.Add
With olAppt
.Start = "07-01-03 8:30 AM"
.End = "07-01-03 9:30 AM"
.Subject = "hi there"
.ReminderMinutesBeforeStart = "15"
.Save
End With
 
Top