1. #1
    Candidat au Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    novembre 2014
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2014
    Messages : 9
    Points : 4
    Points
    4

    Par défaut Déclencher une macro a l'ouverture d'un mail pour modifier le champs objet

    Bonjour,
    J'aimerais modifier l'objet d'un mail (nouveau ou réponse)
    J'arrive a enclencher la macro, mais je n'arrive pas a lire le champs objet, si il y a qq chose dedans pour le modifier
    peut on m'aider ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Public WithEvents AM As MailItem
     
     
    Private Sub Application_ItemLoad(ByVal Item As Object)
    'se déclenche à la selection du mail
    ' Vérifis que le formulaire est bien celui d'un MAIL
        If Item.Class <> olMail Then Exit Sub
        Set AM = Item
     
    End Sub
     
    Private Sub AM_Open(Cancel As Boolean)
    ' se déclenche à l'ouverture du Mail
     Dim Exp, DateRecp, NouveauSujet, TestObjet As String
        x = Format(Date, "yymmdd")
        Y = Subject
     
     
        NouveauSujet = x & "_" & y & "_" & Subject
        Subject = NouveauSujet
     
     
    End Sub

  2. #2
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 230
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 230
    Points : 5 611
    Points
    5 611
    Billets dans le blog
    15

    Par défaut

    essaye comme cela

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    Public WithEvents AM As MailItem
     
     
    Private Sub Application_ItemLoad(ByVal Item As Object)
    'se déclenche à la selection du mail
    ' Vérifis que le formulaire est bien celui d'un MAIL
    If Item.Class <> olMail Then Exit Sub
    Set AM = Item
     
    End Sub
     
    Private Sub AM_Open(Cancel As Boolean)
    ' se déclenche à l'ouverture du Mail
     
    Dim Exp, DateRecp, NouveauSujet, TestObjet As String
    x = Format(Date, "yymmdd")
    Y = AM.Subject
     
     
    NouveauSujet = x & "_" & y & "_" & AM.Subject
    AM.Subject = NouveauSujet
    am.save
     
     
    End Sub

  3. #3
    Candidat au Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    novembre 2014
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : novembre 2014
    Messages : 9
    Points : 4
    Points
    4

    Par défaut

    Super merci
    Pendant que j'y suis je veux mettre le nom de l'envoyeur
    J'ai essayé d'utiliser : Exp = AM.Sender.Name
    Ca ne marche pas

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    Public WithEvents AM As MailItem
     
     
    Private Sub Application_ItemLoad(ByVal Item As Object)
    'se déclenche à la selection du mail
    ' Vérifis que le formulaire est bien celui d'un MAIL
    If Item.Class <> olMail Then Exit Sub
    Set AM = Item
     
    End Sub
     
    Private Sub AM_Open(Cancel As Boolean)
    ' se déclenche à l'ouverture du Mail
     
    Dim DateEnv, Exp, NouveauSujet, TestObjet As String
    DateEnv = Format(Date, "yymmdd")
    Exp = AM.Sender.Name
    TestObjet = AM.Subject
     
     
     
     
    NouveauSujet = DateEnv & "_" & Exp & "_" & TestObjet
     
    AM.Subject = NouveauSujet
    AM.Save
     
     
    End Sub

Discussions similaires

  1. Déclencher une macro a début d'une diapositive
    Par krhyme dans le forum VBA PowerPoint
    Réponses: 7
    Dernier message: 28/05/2008, 07h20
  2. Réponses: 2
    Dernier message: 19/05/2008, 14h37
  3. Réponses: 7
    Dernier message: 14/05/2008, 12h41
  4. [VBA-E] déclencher une macro a chaque fin d'ecriture dans une cellule
    Par k-eisti dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 24/04/2007, 20h45
  5. Réponses: 2
    Dernier message: 22/07/2002, 13h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo