Macro publipostage via outlook

Bonjour

j'ai besoin d'aide pour contourner un problème sous outlook :

je souhaite réaliser un publipostage word/excel par mail (environ 5000 destinataires) personnalisé dans le corps du message.

L'idée c'est de partir via une commande dans mon fichier de travail.

Le code s'éxécute correctement MAIS (évidemment il y a un MAIS), j'ai un message de sécurité de outlook 2010 : je peux débloquer la sécurité pendant 10 minutes mais pas au delà.

Lorsque je fais le publipostage directement dans word sans le code macro, je n'ai pas ce problème de sécurité, à priori c'est le fait de passer via une macro (dans word, comme dans excel)

Quelqu'un aurait-il une astuce ?

Voici le code :

Sub publipostage()
    'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim docWord As Word.Document
    Dim appWord As Word.Application
    Dim NomBase As String

    NomBase = "C:\MES DOCUMENTS\TEST.xlsx"

    Application.ScreenUpdating = False
    Set appWord = New Word.Application
    appWord.Visible = True
    'Ouverture du document principal Word
    Set docWord = appWord.Documents.Open("C:\MES DOCUMENTS\test flo.docx")

    'fonctionnalité de publipostage pour le document spécifié
    With docWord.MailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
            Connection:="Driver={Microsoft Excel Driver (*.xlsx)};" & _
            "DBQ=" & NomBase & "; ReadOnly=True;", _
            SQLStatement:="SELECT * FROM [INTERMED$]"
        'Spécifie la fusion vers l'imprimante
        .MailAddressFieldName = "EMAIL"
        .Destination = wdSendToEmail
        .SuppressBlankLines = True
            'Prend en compte l'ensemble des enregistrements
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With

    Application.ScreenUpdating = True

    'Fermeture du document Word
    docWord.Close False
    appWord.Quit
End Sub

merci d'avance pour votre aide