Is possible send a date to Outlook?

  • Thread starter Thread starter Stefano Zen
  • Start date Start date
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
 
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
 
Back
Top