Oliv-

Bonjour,
c'est une mise à jour de la faq : http://outlook.developpez.com/faq/?p...#VBA_save_mail

Code VBA :

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

1
2
3
4
5
6
7
8
 
Sub SavAs_mail_as_msg(MyMail As Outlook.MailItem, repertoire)
'---------------------------------------------------------------------------------------
' Procedure : SavAs_mail_as_msg
' Author    : Oliv
' Date      : 12/02/2016 modifié 01/07/2020
' Purpose   :
'---------------------------------------------------------------------------------------

...

Bonjour,
Une fonction récursive pour faire quelque chose dans chaque dossier, sur le dossier ou les éléments de ce dossier.

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
 
Sub Lance_Traitement()
'---------------------------------------------------------------------------------------
' Procedure : Lance_Traitement
' Author    : Oliv
' Date      : 12/02/2016
' Purpose   :
'---------------------------------------------------------------------------------------

...

Bonjour,
Voici un code utilisable à partir d'une macro ou d'un règle dans OUTLOOK

Elle permet d'opérer sur le mail passé en paramètres les action suivantes :

Code VB :

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

Sub ExportSuppression_PJ_v3(MyMail As Outlook.MailItem, Export As Boolean, Supp As Boolean, SuppEmbedded As Boolean, DirExport As String, Deplace As String, DossierMove As String, BodyWrite As Boolean)

-Export des pièces jointes dans un répertoire (Windows) -->Export :=true avec ...

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

...