outlook microsoft 2010

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

[TiammatMX]

Empezado por shoulder

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

Prueba a quitarle las comillas..., sospecho que se espera un OBJETO, no una CADENA.

[pacopenin]

Echa un ojo a ésto. Creo que ya lo había sugerido.

http://www.clubdelphi.com/foros/showthread.php?t=83932

Sigues si indicar en que línea da el error, solo comentas el bloque que incluye dos instrucciones.
Te sugiero que utilices las otras formas que te hemos comentado y trates de identificar en donde se produce el error de forma más exacta. Si no arrinconamos el problema dificilmente podremos darle solución.

Revisa en la configuración de Outlook: Archivo-Opciones-Centro de confianza-Configurar centro de confianza-Acceso mediante programación y verifica que no esté bloqueado.

Si buscas GetActiveOleObject Outlook en google verás que no eres el primero al que le pasa. Esa instrucción me parece que falla a partir de Outlook 2010. El código que te pasé está funcionando en varias decenas de instalaciones y nunca me ha dado problema (hasta el momento) en XP, W7 y W8, por eso sugerí que revises configuración de permisos o antivirus.
Si al final no consigues solucionarlo te sugiero que utilices algún componente de envío de correos vía MAPI como jvMail (del las JVCL) ó SMail (de smcomponents), ambos gratuítos y que funcionan bien. Yo utilizo el jvMail cuando no tienen Outlook y es necesario usar Mail, Outlook Express ó Thunderbird por ejemplo, aunque funciona sin problemas en Outlook también.

Saludos,

[shoulder]

Primero Gracias por las respuestas, identifique el error!!!! al menos es algo....

es en esta linea donde me da operacion anulada sino tengo abierto el outlook.

MailItem.Recipients.Add(edit3.Text+'@hormail.com');

Gracias.