Consultar Calendario Outlook con ASP

17/05/2006 - 09:48 por fpmweb | Informe spam

Hola es posible...

quiero consultar el Calendario de Outlook con ASP.
Puedo acceder invocando algun objeto ? es posible.

Muchas gracias.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Consultar una tabla de access con ASP

Leer las respuestas

#1 Piolin Net

17/05/2006 - 10:25 | Informe spam

Si puedes.

Leete el articulo de Cavalcanti.

http://www.microsoft.com/spanish/ms.../art19.asp

salud.

"fpmweb" escribió:

Hola es posible...

quiero consultar el Calendario de Outlook con ASP.
Puedo acceder invocando algun objeto ? es posible.

Muchas gracias.

Responder a este mensaje

#2 fpmweb

17/05/2006 - 12:09 | Informe spam

Conoceis alguna otra página dónde haya código o ejemplos en asp ?

He encontrado este código pero al ejecutarlo no me reconoce vcard.vcs, este
fichero que es ? dónde esta ?

Os pego el código:

<%
response.buffer=true

If Request("REQUEST_METHOD") = "POST" Then
Dim rsReminder 'Recordset used to open the reminder
Dim DTStart 'meeting Start Date and Time - mm/dd/yy hh:nn am/pm
Dim DTEnd 'meeting End Date and Time - mm/dd/yy hh:nn am/pm
Dim Subject 'Subject of the meeting
Dim Location 'Location the meeting will be held
Dim Description 'Full Description of the meeting
Dim sDefualtFileName 'The file name that will be given to the stream sent
to the user

'Set the file name
sDefualtFileName = "vcard.vcs"

DTStart = Request("DTStart")
DTEnd = Request("DTEnd")
Subject = Request("Subject")
Location = Request("Location")
Description = Request("Description")

'If the user didnt enter anything in the text boxes then enter a default
If Subject = "" Then Subject = "(No Subject Given)"
If Location = "" Then Location = "(No Location Given)"
If Description = "" Then Description = "(No Description Given)"

'Set the content to an stream so the user will be forced to Save/Open
the file
sMIME = "application/octetstream"

' Tell the browse the content type
Response.ContentType = sMIME

'Set the name of the file
Response.AddHeader "Content-Disposition", "filename=" & sDefualtFileName &
";"

Response.Write "BEGIN:VCALENDAR" & vbCrLf
Response.Write "VERSION:1.0" & vbCrLf
Response.Write "BEGIN: VEVENT" & vbCrLf
Response.Write "DTStart:" & FormatDT(DTStart) & vbCrLf
Response.Write "DTEnd:" & FormatDT(DTEnd) & vbCrLf
Response.Write "Location;ENCODING=QUOTED-PRINTABLE:" & Location & vbCrLf
Response.Write "UID:" & FormatDT(DTStart) & FormatDT(DTEnd) & vbCrLf
Response.Write "DESCRIPTION;ENCODING=QUOTED-PRINTABLE:" & Description &
vbCrLf
Response.Write "SUMMARY;ENCODING=QUOTED-PRINTABLE:" & Subject & vbCrLf
Response.Write "PRIORITY:3" & vbCrLf
Response.Write "End:VEVENT" & vbCrLf
Response.Write "End:VCALENDAR" & vbCrLf

Response.End

End If
%>

<HTML>
<BODY>

<FORM method=POST action="<%=Request("SCRIPT_NAME")%>" name="VCal"
method="POST">
<font face="Verdana" size="4"><STRONG>VCalendar Entry</font></strong></P>
<TABLE Border=0 align=center>
<tr>
<td>Start Date and Time:</td>
<td><INPUT align=right id=txtDTStart name=DTStart value=<%=DTStart%>></td>
<td>(Format: mm/dd/yy hh:nn am/pm)</td>
</tr>
<tr>
<td>End Date and Time:</td>
<td><INPUT align=right id=txtDTEnd name=DTEnd value=<%=DTEnd%>></td>
<td>(Format: mm/dd/yy hh:nn am/pm)</td>
</tr>
<tr>
<td>Subject:</td>
<td><INPUT align=right id=txtSubject name=Subject value=<%=Subject%>></td>
<td></td>
</tr>
<tr>
<td>Location:</td>
<td><INPUT align=right id=txtLocation name=Location
value=<%=Location%>></td>
<td></td>
</tr>
<tr>
<td>Description:</td>
<td><INPUT align=right id=txtDescription name=Description
value=<%=Description%>></td>
<td></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td></td>
<td><INPUT id=submit1 name=submit1 type=submit value=Submit></td>
<td><INPUT id=reset1 name=reset1 type=reset value=Reset></td>
</tr>
</TABLE>
</FORM>
</BODY>
</HTML>
<%
'local functions used for operations on this page

Function FormatDT(sDT)
dim d,m,y,t

d = PadVal(DatePart("D",sDT),2,"0",True)
m = PadVal(DatePart("M",sDT),2,"0",True)
y = DatePart("YYYY",sDT)

t= Replace(FormatDateTime(sDT, vbShortTime),":","") & "00"

FormatDT = y & m & d & "T" & t
End Function

function PadVal(sVal,iAmt,sWith,bFront)
dim sReturn
sReturn = sVal

Do While len(sReturn) < iAmt
If bFront Then
sReturn = sWith & sReturn
Else
sReturn = sReturn & sWith
End If
Loop

PadVal = sReturn
end function
%>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida