outlook microsoft 2010

[shoulder]

Porque teniendo el outlook cerrado tengo que decir al usuario que trabaje con el outlook minimizado para que funcionen todas las sentencias que hice de envio de mail en el programa, delphi 7.

la sentencia que uso para ver si esta abierto y comenzar es esta

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

Si oulook esta minimizado envia mails, los muestra..pero si lo tienen cerrado no lo abre y sale un cartel de error, hay otra forma de activarlo?.
Gracias

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