B
Bob [BVP]
Trying to do what Ebay does with making links to add appointment with
reminder via html/asp page.. but with no luck.. The page executes
but nothing happens.. any advise would be appreciated.. Server vs Client
scripts ? Help appreciate..
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<SCRIPT LANGUAGE=vbscript>
Dim olApp
Dim oAppt
Dim objRecip
Set olApp = GetObject(, "Outlook.Application")
Dim olNs
Set olNs = olApp.GetNamespace("MAPI")
Set oAppt = olApp.CreateItem(olAppointmentItem)
'Set meeting parameters
With oAppt
..Duration = 60 'lDuration '(in minutes)
..Location = "Here" 'sLocation
'.MeetingStatus = 0 'olMeeting - No, 0 = olNonMeeting
..MeetingStatus = 1 'olMeeting is value 1
..Start = "4/5/2004 17:22" 'dtStart
..End = "4/5/2004 17:59"
..Subject = "Test Subject" 'sSubject
..ReminderSet = True
..ReminderMinutesBeforeStart = 15 'lReminder '(in Minutes)
' Set objRecip = .Recipients.Add("Test, Name")
' objRecip.Type = olRequired
..save
End With
</SCRIPT>
<br>
<hr>
</BODY>
</HTML>
reminder via html/asp page.. but with no luck.. The page executes
but nothing happens.. any advise would be appreciated.. Server vs Client
scripts ? Help appreciate..
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<SCRIPT LANGUAGE=vbscript>
Dim olApp
Dim oAppt
Dim objRecip
Set olApp = GetObject(, "Outlook.Application")
Dim olNs
Set olNs = olApp.GetNamespace("MAPI")
Set oAppt = olApp.CreateItem(olAppointmentItem)
'Set meeting parameters
With oAppt
..Duration = 60 'lDuration '(in minutes)
..Location = "Here" 'sLocation
'.MeetingStatus = 0 'olMeeting - No, 0 = olNonMeeting
..MeetingStatus = 1 'olMeeting is value 1
..Start = "4/5/2004 17:22" 'dtStart
..End = "4/5/2004 17:59"
..Subject = "Test Subject" 'sSubject
..ReminderSet = True
..ReminderMinutesBeforeStart = 15 'lReminder '(in Minutes)
' Set objRecip = .Recipients.Add("Test, Name")
' objRecip.Type = olRequired
..save
End With
</SCRIPT>
<br>
<hr>
</BODY>
</HTML>