Problema Outlook.Application

[zero_sos]

Hola a todos,

Estoy intentando enviar un email utilizando Exchange con el outlook application.

Ahora bien, cuando pongo el siguiente codigo:

<%

dim o
dim m

set o = createobject("outlook.application")
set m = o.CreateItem(olMailItem)

with m
'.to = inputbox("To", "Mail","")
'.subject = inputbox("Subject", "Mail","")
'.body = inputbox("Content", "Mail","")


.to = "efernandez"
.subject = "Importante"
.body = "Por fin lo hicimos"
.send
end with

%>


Sin embargo, cuando lo ejecuto me dice que Activex Cant Create Object "Outlook.Application", alguien sabe que error puede ser este?

Yo comprobe este codigo haciendo un .vbs con este codigo, y se ejecuto sin problemas.

Por favor cualquier comentario me servira de mucho.

Saludos.!

Zero

[zero_sos]

Nadie sabe algo sobre esto???

[pantxo]

hola que tal!!

siento no poder ayudarte

he oido que el outlook.application sirve tambien para crear citas en el calendario del outlook. no sabras como???


gracias

[unholy]

El problema que da es porque , aparentemente, no tienes el componente registrado en el servidor, es decir, lo tienes en la maquina, y por eso puedes usarlo bajo vbs, pero al intentar referenciarlo en ASP, el IIS no sabe donde buscar.

[santolin]

La solución es ejecutar la página sobre el servidor de Exchange, de esa forma funciona correctamente

Saludos

[Jat_ibo]

¿A que te refieres con ejecutar la página sobre el servidor? Yo lo estoy ejecutando dentro del servidor Exchange 2003, pero no me funciona...
Ya no se que probar!!

Por favor ayudarme!!

[Jat_ibo]

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....

[Vandroy]

Hola, he visto q hablais del servidor Exchange, y ya que lo mencionais me gustaría hacer una consulta.

En mi outlook una carpeta de la carpeta de direcciones se encuentra en el servidor, yo quiero hacer un programa que me coja del outlook la informacion de la carpeta de direcciones para luego sacarla en el programa y quiero q esa carpeta sea la que se encuentra en el servidor de exchange. ¿Hay alguna manera de q a la hora de crear la instancia de outlook poder conectarse al servidor?

[Jat_ibo]

No se si te netendi bien, pero... ¿dónde tienes el programa? Imagino que si el programa lo tienes en el servidor y con los permisos necesarios, todo debe funcionar correcto. SI lo que quieres saber es como recuperar los datos de la carpeta, aun no lo he descubierto, pero cuando lo haga te lo comunicaré...
Yo estoy probando con FSO, pero tampoco termina de funsionar bien

Siento no valerte de mas ayuda...
Salu2