Creating and sending an Appointment item with VB script
Posted on 2004-08-25
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myOutBox = myNameSpace.GetDefaultFolder(olFolderOutbox)
Set myitem = myOlApp.CreateItem(olAppointmentItem)
myitem.MeetingStatus = olMeeting
Set recip = myitem.Recipients.Add(@"email@example.com")
recip.Type = olRequired
myitem.Subject = "Come To My Meeting"
myitem.Start = #8/25/2004 1:30:00 PM#
myitem.Duration = 5
Set myitem = Nothing
<input type="button" value="Add Appointment" onclick="createapt();" ID="Button1" NAME="Button1">
Needless to say, it's not working or I wouldn't need you all! Can someone help?