Tous les billets

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 ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    'integre les adresses de mon email
Sub creationDB()
    Dim Db As DAO.database
    Dim rcset As DAO.recordset
    Dim objNamespace As NameSpace
        'espace email object
    Set objNamespace = GetNamespace("Mapi")
        'connection a l'email
    Set MyList = objNamespace.GetDefaultFolder(10)
    Set AllContacts = MyList.Items
        'database
    Set Db = Engine.OpenDatabase("E:\CarnetAdresse.accdb",

...

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

...

Bonjour,
Pour progresser en VBA il est nécessaire de connaitre les fonctions de débogage.

Le mode Pas à pas, les espions, la fenêtre exécution, la fenêtre des variables Locales.

Le mode pas à pas ne retourne pas forcement d'erreur, il permet d’exécuter chaque instruction avec une pause pour voir ce qui se passe.

Les vrais erreurs feront stopper le code même sans cela !

Par contre ça permet de voir si un test ou une boucle se fait ...