none
Outlook 2007/macro pour dossier à la date du jour RRS feed

  • Question

  • Bonjour,

    J'aimerais déplacer un mail traité directement dans un dossier à la date du jour. Voici mon code 

     Private Sub maBoiteEnvoi_ItemAdd(ByVal Item As Object)
        Dim oDossier As Outlook.MAPIFolder
        Dim oDossiers As Outlook.MAPIFolder
        Dim Ol_App As New Outlook.Application
        Dim Ol_MAPI As Outlook.NameSpace
        Dim Ol_FolderFrom As Outlook.MAPIFolder
        Dim Ol_FolderTo As Outlook.MAPIFolder
        Dim Ol_Items As Outlook.MailItem
        
        jour = Day(Date)
        If jour < 10 Then
        jour = "0" & jour
        End If
        mois = Month(Date)
        If mois < 10 Then
        mois = "0" & mois
        End If
        mois2 = Month(Date)
        mois2 = Format(Date, "mmmm")
        annee2 = Year(Date)
        annee2 = Format(Date, "yyyy")
        annee = Year(Date)
        annee = Right(annee, 2)
      
        madate = jour & "." & mois & "." & annee
        madate2 = mois & mois2 & annee2
        
        Enrg = InputBox("Dans quel dossier déplacer ce mail ? " & vbCr & "Boite commune entrez : '1'" & vbCr & "Boite CG75 entrez : '2'", "Déplacer ce mail")
    
        Set oNS = Application.GetNamespace("MAPI")
        Set Ol_MAPI = Ol_App.GetNamespace("MAPI")
        Set oDossier = Ol_MAPI.Folders("Boîte aux lettres - Client").Folders("Boîte de réception").Folders("NOUVELLE BOITE").Folders(madate2).Folders("Traités").Folders("mikelee").Folders(madate)
        Set oDossiers = Ol_MAPI.Folders("Boîte aux lettres - fournisseur").Folders("Inbox").Folders("BOITE DE TRAITEMENT ET ARCHIVE").Folders("09 SEPTEMBRE").Folders("TRAITE").Folders("Mikelee").Folders(madate)
        If Enrg = "1" Then
           Item.Move oDossier
        ElseIf Enrg = "2" Then
          Item.Move oDossiers
          If Not oDossier Is Nothing Then
            End If
        End If
        

    Mon problème est au niveau de cette ligne :

    Set oDossier = Ol_MAPI.Folders("Boîte aux lettres - Client").Folders("Boîte de réception").Folders("NOUVELLE BOITE").Folders(madate2).Folders("Traités").Folders("Mikelee").Folders(madate)

    madate2 pose problème, le dossier est sous la forme 09 Septembre 2013.

    Est il possible d'avoir le mois en "mm" et "mmmm" ensemble?

    Merci pour votre attention,

    Codialement,


    lundi 30 septembre 2013 08:03

Réponses

  • "mmm" affiche sept

    "mmmm" affiche septembre

    Finalement, j'avais juste oublié les espaces " " pour la date.

    madate2 = mois & " " & mois2 & " " & annee2

    Cordialement,

    • Marqué comme réponse MikeLee75 lundi 30 septembre 2013 13:20
    lundi 30 septembre 2013 13:20

Toutes les réponses