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