troubleshooting Question

Force a specific time in this vCalendar code...?

Avatar of Kevin Smith
Kevin SmithFlag for United States of America asked on
ASP.NETVB ScriptOutlook
7 Comments1 Solution277 ViewsLast Modified:
I use the vcalendar code to send an appointment from a webform.  How do I use the code below to always have the time set to 8:00:00 am?  So if a user only puts in a date, the code will make sure the appointment is set to 8am.

' Get the start and end dates of the event (GMT).
startDateAdd = request.form("startdate")
endDate = request.form("startdate")
 
' Get a unique ID to assign to the calendar event.
uniqueID = FormatDateTime(Now()) & "-" & tmpName & "-@" &_
   Request.ServerVariables("SERVER_NAME")
 
Set file = fso.CreateTextFile(filename)
 
' Write the iCalendar file to the file system.
file.WriteLine "BEGIN:VCALENDAR"
file.WriteLine "PRODID:-//ASP iCalendar Test//My ASP App V1.0//EN"
file.WriteLine "VERSION:2.0"
file.WriteLine "METHOD:REQUEST"
file.WriteLine "BEGIN:VEVENT"
file.WriteLine "ORGANIZER:MAILTO:" & Session("MM_Username")
file.WriteLine "DTSTART:" & FormatDateTime(startDateAdd)
file.WriteLine "DTEND:" & FormatDateTime(endDate)
file.WriteLine "LOCATION:MSS"
file.WriteLine "TRANSP:OPAQUE"
file.WriteLine "SEQUENCE:0"
file.WriteLine "UID:" & uniqueID
file.WriteLine "DESCRIPTION:New Hire Start Date."
file.WriteLine "SUMMARY:New Hire Start Date"
file.WriteLine "PRIORITY:5"
file.WriteLine "CLASS:PUBLIC"
file.WriteLine "BEGIN:VALARM"
file.WriteLine "TRIGGER:-PT15M"
file.WriteLine "ACTION:DISPLAY"
file.WriteLine "END:VALARM"
file.WriteLine "END:VEVENT"
file.WriteLine "END:VCALENDAR"
ASKER CERTIFIED SOLUTION
Rick

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 7 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 7 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros