outlook microsoft 2010

[pacopenin]

A mi me funciona si problema. ¿Que error sale? ¿En que línea se produce el error? ¿Con qué versión de Outlook estás probando?

[shoulder]

Me viene un cartel de delphi "OPERACION ANULADA", ahora de donde saca ese mensaje ni idea. Tengo Outlook Microsoft 2010.

[pacopenin]

Yo utilizo éste código y funciona sin problemas en 2007-2010-2013 en varias decenas de instalaciones...

Código Delphi [-]
uses

   OutlookXP,

var
  ol : OutlookXP.TOutLookApplication;
  mi : OutlookXP.TMailItem;
  ns : OutlookXP.NameSpace;
  fdInbox, fdOutbox : OutlookXP.MAPIFolder;
const
 olByValue = 1;

     .......

   try
     ol := OutlookXP.TOutLookApplication.Create(nil);

     ns := ol.GetNamespace('MAPI');
     fdInbox := ns.GetDefaultFolder(olFolderInbox);
     fdOutbox := ns.GetDefaultFolder(olFolderSentMail);

     mi := TmailItem.Create(nil);

     mi.ConnectTo( ol.CreateItem( olMailItem) as MailItem);
     mi.Subject := Datos.ZEMailDESCRIPCION.asstring;

     if Datos.ZEMailPARA.asstring <> '' then
      mi.Recipients.Add(Datos.ZEMailPARA.value);

     if Datos.ZEMailPARA_CC.asstring <> '' then
      mi.CC := Datos.ZEMailPARA_CC.asstring;
     if Datos.ZEMailPARA_CCO.asstring <> '' then
      mi.BCC := Datos.ZEMailPARA_CC.asstring;

     .....

   finally
     mi.Free;
     ns.Logoff;
   end

De todas formas, creo a partir de la versión del 2010 había un cambio. Trata de utilizar solo la opcion de Create...

[shoulder]

Primero Gracias por tus respuestas, intente tu forma, otra que encontre parecida, me da siempre el mismo error. Si el outlook no esta abierto y minimizado me sale "El servidor no esta disponible" u "Operacion Anulada". Y no me deja hacer nada. Si tengo el outlook abierto funciona todo perfecto. Te muestro las forma que use.

Código Delphi [-]

  Outlook := TOutlookApplication.Create( nil );
  try
      Outlook.Connect;
      try
        olNameSpace := Outlook.GetNamespace('MAPI');
        olNameSpace.Logon('', '', False, False);
        try
           MailIt := TMailItem.Create( nil );
           MailIt.ConnectTo( Outlook.CreateItem( olMailItem ) as MailItem );
            try
             MailIt.Recipients.Add.........;
             ......................................
             MailIt.Display;
            finally
              MailIt.Free;
            end;
         finally
              MailIt.Free;
         end;
      finally
     //   Outlook.Disconnect;
      end;
   finally
      Outlook.free;
    end;

o la forma del ejemplo del post 1-

Código Delphi [-]
 try
       Outlook := GetActiveOleObject('Outlook.Application');
     except
      Outlook := CreateOleObject('Outlook.Application');
     end;

      MailItem := Outlook.CreateItem(olMailItem);
      MailItem.Recipients.Add(...........
...............................
      MailItem.Display;
      // MailItem.send;
      Outlook := Unassigned;
     
    end

[shoulder]

Hola sigo con este problema sin poder resolverlo, Si el outlook esta abierto y minimizado funziona todo perfecto, si el outlook esta cerrado viene el cartel de delphi "Operacion Anulada". Me esta faltando un uses?, ya proble de todo y sigo con el error.


Gracias.

[pacopenin]

Parece algo relacionado con permisos (prueba a ejecutar tu programa como administrador) o algo de configuración de outlook. ¿Probaste en algún ordenador más?. O mira la configuración del antivirus. Si puedes depurarlo, localiza la línea en la que da el error.

No se me ocurre otra cosa.

[shoulder]

Hola lo probe mas o menos en 15 Pcs, la linea que me da el error es

try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;