Discussion :

[antakini]

Bonjour,

J'ai dans outlook une "extension" qui me permet d'envoyer des messages et des pièces jointes à divers destinataires.
cette extension "charge" à l'ouverture d'outlook un fichier txt contenant l'objet et le corps du message.
Ayant différents type d'envois à effectuer, j'ai crée une macro VBA qui me permet de changer ce fichier txt.
Le problème est que ce changement n'est effectif que si je ferme puis relance Outlook.

Auriez vous une idée pour m'éviter cette étape (fermeture puis réouverture d'outlook) ?

Merci

[Oliv-]

SAlut,
C'est quoi cette extention ?
Sinon la solution c'est de ré écrire un code complet

[antakini]

salut,

C'est un "outil" créé en interne, qui permet de de joindre des fichiers différents à des destinataires différents (le nom des fichiers et des destinataires étant présents dans un txt).
cet outil est installé dans outlook gràce à un exécutable.

[Oliv-]

Tu peux essayer cela dans ton code après avoir modifier ton fichier txt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim myaddin As COMAddIn
    Set myaddin = Outlook.Application.COMAddIns.Item("ADDIN.Connect")
    myaddin.Connect = False
    DoEvents
     myaddin.Connect = True

Pour trouver le nom de ce complément (ProgId) lance cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub msgbox_Mesaddins ()
     Dim myaddin As COMAddIn
    Dim myaddinS As COMAddIns
     Set myaddinS = Outlook.Application.COMAddIns
    For Each myaddin In myaddinS
    If myaddin.Connect = True Then
    MsgBox myaddin & vbCr & "=" & vbCr & myaddin.ProgId
    End If
    Next
End sub