hcourcelles
Guest
|
Hi,
I recently bought the Add-in Express Security Manager and using the VCL component.
Everything is working find but I encounter a problem and was hoping that maybe you already have a solution that I can place in my code to avoid it.
When I didn't had the security manager, the email item that was created by code was opening and a security window was asking to allow the access for 1 to 10 minutes.
What was happening is that the new email item was automatically focus and display on top.
Since I inserted the security manager code, the security window is not showned anymore and with this, the new created email item doesn't always get focus and display on top. In fact, it often is reduce and Outlook blinks in the bottom tools bar.
Do you have a solution for this?
Here is my code:
OutlookApplication1.Connect;
EspaceDeNom := OutlookApplication1.GetNamespace('MAPI');
EspaceDeNom.Logon('', '', False, False);
DossierReception:=EspaceDeNom.GetDefaultFolder(olFolderInbox);
try
OLSecurityManager1.ConnectTo(OutlookApplication1.Application);
OLSecurityManager1.DisableOOMWarnings := True;
UnMail := OutlookApplication1.CreateItem(olMailItem) as MailItem;
UnMail.To_ := vartostr(DataModule1.MSQueryInscriptions['Courriel']);
UnMail.Subject := vartostr(DataModule1.MSQueryStatuts['Sujet_courriel']);
Unmail.HTMLBody := 'Test';
UnMail.Display(True);
finally
OLSecurityManager1.DisableOOMWarnings := False;
end;
Best regards, |
|
Renat Tlebaldziyeu
Guest
|
Hi,
Thank you for choosing our product.
I was not able to reproduce the issue on my Virtual PCs with Outlook 2010 (32-bit), 2007 and 2003.
Using your code, the newly created mail item always gets focus and is displayed on top.
What version and build of the VCL edition of Outlook Security Manager do you use?
What Outlook version do you use?
Could you please send me a sample project, which reproduces the issue
(please see readme.txt for the e-mail address and make sure your e-mail contains a link to this topic)? |
|
speck
Guest
|
Tip:
try
UnMail.Display(False); // suppress the service pack issue.
except
end;
|
|
Renat Tlebaldziyeu
Guest
|
Thank you for sharing your knowledge, Sally. |
|