Sans catégorie

Bonjour,
Voici plusieurs méthodes pour ouvrir une boite de dialogue et choisir un DOSSIER, à partir d'OUTLOOK (testé sous OL2010)


En utilisant EXCEL

Code vb :

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

1
2
3
4
5
6
7
8
 
Sub test()
Msgbox BrowseFolderExplorer("Choisissez un dossier", msoFileDialogViewDetails, SDossier(0, 0))
End Sub
 
 
Function BrowseFolderExplorer(Optional DialogTitle As String, _
                              Optional ViewType As MsoFileDialogView = _

...

Voici simplement un copié collé d'un code de Peter Thornton (Excel MVP 2008-13) et sa traduction.

Cela permet d'attraper l'instance EXCEL que l'on souhaite lorsqu'il y en a plusieurs d'ouvertes.

Code VB :

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

1
2
3
Option Explicit
'https://social.msdn.microsoft.com/Forums/office/en-US/e3e99712-01a7-483e-bf0e-52bb1f94889c/how-to-use-accessibleobjectfromwindow-api-in-vba-to-get-excel-application-object-from-excel?forum=exceldev
Private Declare Function FindWindowEx

...

Si vous voulez recevoir des Evénements sur plusieurs EMAILS ouverts, vous devez utiliser un Module de classe.

Ici nous allons tester le CHANGEMENT de SUJET d'un Email et agir selon.

A METTRE dans THISOUTLOOKSESSION

Code VBA :

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

1
2
3
4
5
6
7
8
9
 
 
 
Private m_MyEmails As VBA.Collection
Private m_lNextKeyEmails As Long
 
 
Private Sub Application_ItemLoad(ByVal item As Object)
'---------------------------------------------------------------------------------------

...

Bonjour,

J'avais déjà donné dans le forum OUTLOOK VBA, une nouvelle version pour OL 2007 et suivants à la fonction qui se trouve dans la FAQ et qui permet de Vérifier si une Pièce jointe est incorporée dans le corps du Mail ou une vrai PJ.

Mais voilà dans certains cas le résultat était faux, alors voici une nouvelle version.

Code vba :

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

1
2
Function PJ_Isembedded(ByVal pj As Attachment) As Boolean
'---------------------------------------------------------------------------------------

...

Lorsque vous avez dans OUTLOOK, un compte Exchange avec des ALIAS, il peut être intéressant de trouver sur quelle ADRESSE on vous a écrit, notamment pour se désabonner d'une newsletter.

c'est l'équivalent en manuel de rechercher "to:" dans Fichier/propriétés : en tête internet.

Code vb :

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

1
2
3
Function GetToFromHeader(objMail As Outlook.MailItem) As String
'---------------------------------------------------------------------------------------
' Procedure

...