Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Msmapi32.ocx
Message
De
14/07/2009 09:21:41
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Divers
Thread ID:
01407718
Message ID:
01412196
Vues:
47
Mathias

The code that you send me works to avoid the message "A program is trying to automatically send an email in your name? Do you allow this?"

But I got another message.

This new windows vista message ocurrs when the vbscript is executed. The message is related with the lack of program editor for vbscript.

Could you help me?


>Apparently that is a security feature is NOT suppose to be avoided.
>
>You can write a script that mimmicks a user's response to dismiss that dialogue. Here is the script that will do it:
>'------------------------------------
>'DismissDialogue.VBS
>On Error Resume Next
>Set WshShell = Wscript.CreateObject("WScript.Shell")
>Do
>Loop Until WshShell.AppActivate("Microsoft Office Outlook")
>Wscript.Sleep WScript.Arguments(0)
>WshShell.SendKeys "{TAB}"
>WshShell.SendKeys "{TAB}"
>WshShell.SendKeys "{ENTER}"
>'------------------------------------------
>
>Save the script in a .vbs file. For testing you could have it in the root of you app.
>
>Now within the app just before the .Send() start the script like this:
>
>lcCommandString = "'DismissDialogue.vbs " + Chr(34) + Transform(10) + Chr(34)
>oWshShell = CreateObject("WScript.Shell")
>oWshShell.Run(lcCommandString)
>oWshShell = Null
>
>Scripting is also subject to it's own security concerns.
>
>
>
>>I am using activex msmapi32.ocx do send email. When my VFP program is trying to send email using outlook the following message appears "A program is trying to automatically send an email in your name? Do you allow this?"
>>
>>How to avoid this message?
Antonio Carlos Kleinübing
Systems Analyst
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform