Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)
-   -   Abrir outlook en primer plano (https://www.clubdelphi.com/foros/showthread.php?t=14233)

Jose Manuel 14-09-2004 12:24:39

Abrir outlook en primer plano
 
Quisiera saber si se puede realizar lo siguiente:

Estoy trabajando con una aplicación hecha en D6, y en ella tengo un botón para enviar un documento por email, utilizando OUTLOOK, y está instalado el Antivirus de McAfee.

1º problema: Casi siempre, aunque en algunas ocasiones no es así, el outlook se abre en segundo plano, mostrando la siguiente ventana a la que no puedo acceder y cuyo texto dice:

MICROSOFT OUTLOOK
Un programa está intentando obtener acceso a direcciones de
correo electrónico almacenadas en Outlook. ¿Desea Permitirlo?
Si esto es inesperado, puede que sea un virus y deberia elegir "NO".
Permitir acceso a :1 minuto, ..

así es que quisiera saber como indicar desde D6, que el OUTLOOK se abra siempre en primer plano, tanto si está minimizado como si no esta abierto.

El procedimiento utilizado es el siguiente:

Código:

procedure SendOutlookMail;
const
  olMailItem = 0;
var
  Outlook: OleVariant;
  vMailItem: variant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add('dummy@hotmail.com');
  vMailItem.Subject := 'test email';
  vMailItem.Body := 'This is a test';
  vMailItem.Attachments.Add('C:\temp\sample.txt');
  vMailItem.Send;

  VarClear(Outlook);
end;

2º problema: Hay alguna forma de decir desde D6 a OUTLOOK, que desmarque la opción "Solicitar confirmación de lectura para este mensaje", la quiero tener marcada por defecto para todos los envios, excepto para este.


Un saludo a todos los miembros del clubdelphi
Jose Manuel García

Pitilingorri 08-01-2008 19:18:07

Bueno, haciendo uso del buscador me he encontrado esta pregunta, que casualmente es la misma que yo quiero hacer :D Veremos si esta vez hay más suerte.

Gracias de antemano por vuestra ayuda.

petete2008 15-12-2011 01:05:18

Otro más que busca lo mismo!! jeje

Yo el mensaje de
MICROSOFT OUTLOOK
Un programa está intentando obtener acceso a direcciones de
correo electrónico almacenadas en Outlook. ¿Desea Permitirlo?
Si esto es inesperado, puede que sea un virus y deberia elegir "NO".
Permitir acceso a :1 minuto, ..

Lo he eliminado instalando un programa que se llama clickyes
Lo bueno sería implementar el clicyes dentro de nuestra aplicación delphi para evitar usar aplicaciones de terceros.

petete2008 24-02-2012 19:25:50

¿Alguien ha conseguido programar un "clicyes" dentro de delphi?


La franja horaria es GMT +2. Ahora son las 19:40:24.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi