Réaliser un publipostage word/Excel et select boite envoi

Bonjour à tous,

je souhaite automatiser un publipostage par mail à partir d'excel (corps du message).

Disposant sous outlook de 2 boites mail (perso et pro), je voudrais que mon code me permette à travers une variable, choisir la BAL émettrice.

Le code que j'exploite fonctionne bien... sauf qu'il fait partir les envois de ma boite perso.

J'ai beaucoup cherché, sans succès.

N'étant pas le seul utilisateur, je ne souhaite pas modifier les paramètres de OUTLOOK

Voici le code existant que je souhaiterais modifier

    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 précieuse !!!

Bonjour,

Si je comprends bien ta question ... c'est la macro qui pilote Outlook qui a besoin d'être légèrement modifiée ...

Me trompe-je ?

Bonjour James,

Je pense qu'il doit y avoir quelque chose dans le genre....mais je suis bloquée.

Que dois-je faire ? Un code sous Outlook ?

Merci pour ton aide.

Re - Bonjour ...

Tu veux dire que tu n'as pas une macro qui pilote Outlook ....!!! ...???

Re

en fait, le code que j'ai mis en ligne est dans un outil excel et permet la réalisation via word du publipostage.

Le publipostage est réalisé à partir de la boite mail activée.

Effectivement, je n'ai pas de macro qui pilote outlook (et là je crois que j'atteins mes limites car je vois pas trop comment faire...)

Je pense comprendre l'idée... mais pas sûre

Re,

Je pense que tu viens toi-même de donner la réponse ...

Dans la mesure où ...(et je ne sais pas comment ... ) Outlook est piloté 'tout seul' ...

c'est ... par défaut ...la boîte mail activée qui est utilisée .... normal ....

Si par hasard ... en creusant plus avant ... tu découvres ... par exemple ... dans Word ... une macro qui piloterait Outlook ...alors tu pourrais intervenir sur la boîte mail à utiliser ...

J'espère que cette excplication est assez claire ...

re,

bé l'explication est claire, si ce n'est que ce qui m'intéresse c'est un point de départ via EXCEL.

Est-ce possible ?

floBER a écrit :

re,

bé l'explication est claire, si ce n'est que ce qui m'intéresse c'est un point de départ via EXCEL.

Est-ce possible ?

Re,

Perso ... je ne l'ai jamais fait ...

Il faudrait déterminer dans ton Outlook le numéro de compte assigné à chacune de tes boites ... afin d'essayer de modifier celle qui doit être utilisée ...

Est-ce-que, dans ton entourage immédiat, il y a quelqu'un qui connait VBA ...?

De mon côté ...dès que j'ai un moment ... je vais essayer de creuser ...

Pas de connaissance VBA dans mon entourage...

Je vais aussi chercher de mon côté

Merci pour ton aide.

Re,

Pour commencer ... il faudrait tester le code suivant ...

Sub QuelNb()
'Ne pas oublier la référence à Outlook Object Library dans Outils
    Dim OutApp As Outlook.Application
    Dim I As Long

    Set OutApp = CreateObject("Outlook.Application")

    For I = 1 To OutApp.Session.Accounts.Count
        MsgBox OutApp.Session.Accounts.Item(I) & " : Le N° du compte est " & I
    Next I
End Sub

et bien sûr ... si le code fonctionne ... noter quelque part les résultats ...

En espèrant que cela t'aide ...

ce code serait à insérer dans Outlook ou bien dans EXCEL ?

floBER a écrit :

ce code serait à insérer dans Outlook ou bien dans EXCEL ?

Re,

Il s'agit d'une macro Excel ... comme tu l'as demandé ...

Fais attention à la ligne commentaire en vert ... Outils > Références > Librairie Outlook ....

ok, je m'y perds dans tout ça

Merci encore

@+

floBER a écrit :

ok, je m'y perds dans tout ça

Merci encore

@+

Re,

C'est un peu la raison pour laquelle je t'ai demandé ... si dans ton entourage immédiat ... tu pouvais trouver un peu d'aide ...

Accessoirement ... quelle est la personne qui a confectionné ta macro actuelle ... ?