pantxo yo estoy intentado crear citas desde asp, pero no lo hago con el outlook....
Yo estoy utilizando este codigo, pero no funciona....Lo encontre por la red y segun ponia debe funcionar...pero no
set info = CreateObject("ADSystemInfo")
set persona = CreateObject("CDO.Person")
set dir = CreateObject("CDO.Addressee")
response.Write("uno" & "@" & info.DomainDNSName)
response.Write("<br><b>LDAP://</b>" & info.DomainDNSName & "/" & info.UserName)
dir.EmailAddress = "uno" & "@" & info.DomainDNSName
if not dir.CheckName("LDAP://" & info.DomainDNSName) then
response.Write("<br>Persona no encontrada")
else
response.Write("<br>persona encontrada")
response.Write("<p>")
Response.Write("<br><b>LDAP://</b>" & info.DomainDNSName & "/" & "uno")'info.UserName)
response.Write("</p>")
Response.Write("<br> Direccion --> " & dir.DirURL & "<br>")
persona.DataSource.Open dir.DirURL '"mailto:" & dir.DirURL
set MailBox = persona.GetInterface("IMailbox")
Response.Write("<br><b>User E-Mail Address:</b>")
Response.Write(persona.Email)
Response.Write("<br><b>User Mailbox folder URL:</b>")
Response.Write(MailBox.BaseFolder)
end if
'strFreeBusy = dir.GetFreeBusy("14/4/2005 18:00:00 PM", "14/4/2005 20:00:00 PM", 30)
'strFreeBusy = iAddr.GetFreeBusy("5/11/2000 13:00:00 PM", "5/11/2000 15:00:00 PM", 30)
'Response.Write("<br>Free Busy=" & strFreeBusy & "<br>")
cdoRequiredParticipant = 0
cdoOptionalParticipant = 1
Set objAppt = CreateObject("CDO.Appointment")
Set Conexion = CreateObject("ADODB.Connection")
Conexion.Provider = "ExOLEDB.Datasource"
Response.Write("<br>Appointment Made=" & objAppt.StartTime )
'completo con los datos de la cita
with objAppt
.StartTime = "14/4/2005 10:00:00 PM"
.EndTime = "14/4/2000 12:00:00 PM"
'.Subjet = "Esto es una prueba"
.Location = "Valencia"
.TextBody = "Probando acceso a Exchange"
Set iAtt = .Attendees.Add
'Set the persons to invite
iAtt.Address = "
[email protected]"
iAtt.Role = cdoRequiredParticipant
Set iAtt = .Attendees.Add
iAtt.Address = "
[email protected]"
iAtt.Role = cdoOptionalParticipant
response.Write("<br>iAtt.Role --> " & iAtt.Role)
response.Write("<br>MailBox.BaseFolder --> " & MailBox.BaseFolder)
Conexion.open MailBox.BaseFolder
.DataSource.SaveToContainer MailBox.Calendar, Conexion
end with
Response.Write("<br>Appointment Made=" & objAppt.StartTime )
'libero
objAppt = nothing
persona = nothing
MailBox = nothing
dir = nothing
conexion = nothing
response.Write("<br>Cita creada<br>")
A mi me da el siguiente error...
Provider error '80040e21'
La operación de múltiples pasos de OLE DB generó errores. Compruebe los valores de estado de OLE DB si es posible. No se realizó ningún trabajo.
/verifica.asp, línea 64
alguno me puede ayudar con este tema.... Si podeis comentarme un poco el codigo, os lo agradecere infinitamente.... Vi el codigo por la red pero aun hay cosas que no tengo claras.
PD: la linea 64 esta en marcada...
Gracias a todos....