FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; Un saludo a todos los miembros del clubdelphi Jose Manuel García |
|
|
|