[..] Message sécurité Outlook

[Hugues]

Bonjour,

Je génère d'un message Outlook (format HTML) pour l'envoyer automatiquement (sans l'afficher).

Sur mon poste de travail ok pas de soucis, mais lorsque j'utilise mon application sur un autre poste, il m'affiche cette fenêtre

.

Dans mon code, j'utilise

Code : Tout sélectionner

.send

et cela me fait afficher cette fenêtre.

Et si j'utilise

Code : Tout sélectionner

.Display

, cela m'affiche mon message, mais n'est pas envoyer. Il faut que se soit l'utilisateur qui le fasse...

Est ce que quelqu'un aurait une idée? (sans passer par les ControlClick ou autre...)

Merci par avance.

[Y01]

Bonjour,

Je suppose qu'avec un bout de code, ça aiderait à comprendre le problème.

[jguinch]

Tu peux essayer un truc comme ça :

Code : Tout sélectionner

Local $oSecurityManager = ObjCreate("AddinExpress.Outlook.SecurityManager")
If IsObj($oSecurityManager) Then $oSecurityManager.DisableOOMWarnings = True
 

edit :
Sinon, peut-être dans la base de registre : http://kb.politemail.com/?p=1039

[Hugues]

Merci, mais...

J'ai omis de préciser que:

J'ai 3 postes avec la même session Windows , le même compte Outlook... Et ce qui est bizarre, c'est que sur 2 poste c'est OK mais sur le troisème, il continue de m'afficher cette p***** de fenêtre...

[Y01]

Tous les postes tournent sur le même OS ?

[Hugues]

Oui, ils tournent tous les 3 sous le même OS.

[Hugues]

Voici mon code avec lequel j'envoye l'Email:

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>

#AutoIt3Wrapper_Run_AU3Check=n

Global $oOApp, $oOMail, $aItemEmail, $EmailTo
Global $olMailItem = 0, $olFormatRichText = 3 ,$olImportanceLow = 0 ,$olImportanceNormal = 1 ,$olImportanceHigh = 2 ,$olByValue = 1 ,$olFormatHTML = 2 ,$olFormatPlain = 1

_CheckOutlookAccount()  ;Je vérifie si le poste à un compte Outlook
_ReadEmailTo()          ;Je lit mon fichier ini pour récupérer les déstinataires du mail
_SendEmail()            ;Je construis et envoye mon mail


Func _CheckOutlookAccount()

    _IEErrorNotify()
    $oOutlook = ObjCreate("Outlook.Application")
    If Not IsObj($oOutlook) Then
        MsgBox(16, "", "Impossible de créer l'objet Outlook!")
        Exit
    EndIf

    $oNameSpace = $oOutlook.GetNameSpace("MAPI")
    Global $oUser = $oNameSpace.CurrentUser
    If Not IsObj($oUser) Then
        MsgBox(16, "", "Vous n'avez pas de compte Outlook, vous ne pouvez pas utiliser cette application.")
        Exit
    EndIf

EndFunc

Func _ReadEmailTo()

    Global $ReadSectionEmail = IniReadSection(@ScriptDir & "\ini\Config.ini", "Email")

    If Not @error Then
        For $j = 1 To $ReadSectionEmail[0][0]
            $EmailTo &= $ReadSectionEmail[$j][0] & ";"
        Next
    EndIf

EndFunc

Func _SendEmail()

    Local $oSecurityManager = ObjCreate("AddinExpress.Outlook.SecurityManager")
    If IsObj($oSecurityManager) Then $oSecurityManager.DisableOOMWarnings = True
    Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

    $oOApp = ObjCreate("Outlook.Application")
    $oOMail = $oOApp.CreateItem ($olMailItem)
    ;$oOMail.Save
    With $oOMail
        .To = $EmailTo
        .Subject = "Email avec " & @AutoItVersion
        .BodyFormat = $olFormatHTML
        .Importance = $olImportanceHigh
        .HTMLBody = "Ceci est le contenu de mon Message."

        ;.attachments.add(@ScriptDir & "\AttachedFiles\File_1.txt")     ;Ajout pièce jointe.
        ;.Display
        .Send
    EndWith
    $oOApp = 0

EndFunc