[VBA] Message d'alerte dans Outlook 2003Résolu

Question

Bonjour tout le monde!

   J'ai un petit probl&#232;me VBA &#224; soumettre. Je r&#233;cup&#232;re des donn&#233;es dans Outlook &#224; partir d'un module dans Access 2003 pour les mettre dans une base. Mon probl&#232;me est qu'Outlook me donne un message d'avertissement du type "Un programme essaie d'acc&#233;der &#224; vos contacts" et me demande pour combien de temps je veux laisser ce programme acc&#233;der &#224; mes contacts.
   Je voulais savoir s'il &#233;tait possible de supprimer ce message d'avertissement avec une commande VB ou des r&#233;glages dans Outlook.

   J'ai fait des recherches sur le forum et j'ai vu que cette question avait d&#233;j&#224; &#233;t&#233; pos&#233;e plusieurs fois. Je la repose au cas o&#249; les personnes qui avaient le m&#234;me probl&#232;me ait r&#233;ussi &#224; le r&#233;soudre.

Merci pour vos r&#233;ponses et bon week-end!

zoglub14 · Accepted Answer

Bonjour le Forum,


Je viens de lire ton probl&#232;me et j'ai la solution ! 

@ +

....

Non je d&#233;conne.

Depuis Outlook 2000 SP3, Microsoft &#224; inclus un cette protection tr&#232;s g&#233;nante. Elle a pour but d'eviter l'envoi massif de mails &#224; toute l'entreprise lorsque qu'un micro &#224; un virus.

Tu ne peux pas la d&#233;sactiver dans Outlook tout court car ils considerent que si tu utilises ce logiciel c'est que tu es en entreprise, avec serveur et blablabla. Seul les utilisateurs "d'express" peuvent la d&#233;cocher car il consid&#232;re que Outlook express = Maison.

Comme d'habitude chez microsoft l'id&#233;e est louable mais pas pouss&#233;e jusqu'au bout !

Bref deux solutions :

1 - Tu demandes &#224; ton service informatique de d&#233;cocher cette option dans le serveur exchange. Mais du coup cette option s'appliquera &#224; tous les PC et si quelqu'un recoit un virus et le lance tu peux &#234;tre s&#251;r que ton reseau va tomb&#233; sous le poids des mails autos.

2 - Il existe un petit logiciel qui s'appelle ClickYes, qui permet de simuler le click dans cette fenetre uniquement. 
Fait une recherche sur le net et tu trouveras le logiciel &#224; t&#233;l&#233;charger.
Ci dessous le code &#224; inserer dans ton programme. A noter que moi j'ajoute &#224; ce code le chargement et d&#233;chargement de clickyes.

Dans l'entreprise o&#249; je bosse il y a 600 PC. Si tout le monde charge Clickyes au d&#233;marrage et qu'un virus se trouve sur le reseau ... C'est le drame !! lol
Donc je charge cliqckyes, je lance ma requ&#234;te Outlook, puis je d&#233;charge clickyes. Comme cela mon reseau est quand m&#234;me un peu prot&#233;g&#233; et je n'aurais pas d'envoi massif de mails.

@+

Zoglub

Microsoft Visual Basic (VB/VBA) Sample
' Declare Windows' API functions
Private Declare Function RegisterWindowMessage _
        Lib "user32" Alias "RegisterWindowMessageA" _
        (ByVal lpString As String) As Long


Private Declare Function FindWindow Lib "user32" _
        Alias "FindWindowA" (ByVal lpClassName As Any, _
        ByVal lpWindowName As Any) As Long


Private Declare Function SendMessage Lib "user32" _
        Alias "SendMessageA" (ByVal hwnd As Long, _
        ByVal wMsg As Long, ByVal wParam As Long, _
        lParam As Any) As Long


Private Sub SomeProc()
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long


' Register a message to send
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")


' Find ClickYes Window by classname
wnd = FindWindow("EXCLICKYES_WND", 0&)


' Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)


' ...
' Do some Actions
' ...


' Send the message to Suspend ClickYes
Res = SendMessage(wnd, uClickYes, 0, 0)


End Sub

cs_CanisLupus · Answer

Salut,

En VB, pas de solution simple &#224; ma connaissance.
Dans les r&#232;glages Outlook :
Menu Outils/Options ; Onglet "S&#233;curit&#233;" ; d&#233;cocher "M'avertir lorsque d'autres applications ....

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Simouss33 · Answer

Merci pour ta r&#233;ponse mais je ne trouve pas l'onglet en question ou un qui y ressemblerait j'ai parcouru tout ce qui &#233;tait dispo dans les Options...

cs_CanisLupus · Answer

Tu as quelle version d'Outlook ? Moi j'ai Outlook Express 6 et je t'assure que cet onglet existe bien dans Outlook Express !

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Simouss33 · Answer

J'utilise Microsoft Office Outlook 2003, pas Express...

cs_CanisLupus · Answer

Alors d&#233;sol&#233;, je passe la main car je ne l'utilise pas et donc ne le connais pas. Cherche quand m&#234;me dans l'aide de ton produit. Il doit s&#249;rement y avoir un item sur cette possibilit&#233;.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Un petit conseil tout de m&#234;me, repose ta question en sp&#233;cifiant que c'est Microsoft Office Outlook 2003 car, si tu parles d'Outlook, la majorit&#233; des gens comprennent Outlook Express qui est nettement plus utilis&#233;.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Simouss33 · Answer

En tout cas merci pour tes r&#233;ponses, je vais continuer &#224; chercher avec l'aide d'outlook...
Bon week end

Simouss33 · Answer

Ca marche bien, ClickYes est automatiquement suspendu &#224; la fin de mon prog et ma base de donn&#233;es a &#233;t&#233; mise &#224; jour sans que j'intervienne.
Merci beaucoup Zoglub 14

[VBA] Message d'alerte dans Outlook 2003

9 réponses

Discussions similaires