1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    janvier 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : janvier 2011
    Messages : 3
    Points : 2
    Points
    2

    Par défaut Extraction pièces jointe selon critères

    Bonjour,
    ce code est sensé extraire les pièces jointes d'un dossier outlook en fonction du numéro de département
    le numéro de département est obtenu en fonction du nom de la pièce jointe qui commence toujours par un code postal suivi d'un nom exemple "95240_DUPONT.xls"
    le département est donc 95 dans l'exemple
    hélas cette procédure ne fonctionne pas au niveau du SELECT CASE je pense.
    merci de votre aide


    Dim x As Integer


    Sub ExtrairePjXml(Item As Outlook.MailItem)
    Dim Ol As New Outlook.Application
    Dim Ns As Outlook.NameSpace
    Dim Inbox As MAPIFolder

    Set Ns = Ol.GetNamespace("MAPI")
    Set Inbox = Ns.GetDefaultFolder(olFolderInbox)

    Dim x As Integer
    Dim y As Integer
    Dim pceJointe As Outlook.Attachment
    Dim nomPJ As Integer

    If Not Item.Attachments.Count = 0 Then
    For y = 1 To Item.Attachments.Count
    Set pceJointe = Item.Attachments(y)


    Select Case nomPJ
    nomPJ = Left(pceJointe.FileName, 2)

    MsgBox = nomPJ
    Case Is = 95
    NomDoss = "U:\Extractions_GLO_DT_95\"
    pceJointe.SaveAsFile NomDoss & "\" & pceJointe.FileName
    End If

    Case Is = 93
    x = x + 1
    NomDoss = "U:\Extractions_GLO_DT_93\"
    pceJointe.SaveAsFile NomDoss & "\" & pceJointe.FileName
    End If
    'etc.....
    End Select


    Set pceJointe = Nothing
    Next y
    End If

    Dim myDestFolder As Outlook.Folder

    Set myInbox = Ns.GetDefaultFolder(olFolderInbox)

    Item.Move myDestFolder
    End Sub

  2. #2
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 004
    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 004
    Points : 5 255
    Points
    5 255
    Billets dans le blog
    13

    Par défaut

    Salut,

    Peut être juste mettre des guillemets

    sinon il faut utiliser le mose pas à pas f8 pour voir comment le programme rentre dans la boucle

  3. #3
    Candidat au Club
    Profil pro
    Inscrit en
    janvier 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : janvier 2011
    Messages : 3
    Points : 2
    Points
    2

    Par défaut

    bonjour,

    Çà ne marche non plus avec les guillemets et la touche F8 ne fonctionne pas car c'est un script outlook.

    Cordialement,

    Perdinch

  4. #4
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 004
    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 004
    Points : 5 255
    Points
    5 255
    Billets dans le blog
    13

    Par défaut

    Citation Envoyé par perdinch Voir le message
    bonjour,

    et la touche F8 ne fonctionne pas car c'est un script outlook.


    Perdinch
    Il faut utiliser un point d'arrêt.

    ou lancer F8 à partir de la macro qui exécute ce script

Discussions similaires

  1. Extraction pièces jointes Outlook via VBA
    Par pontoise dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 14/07/2017, 14h34
  2. Réponses: 2
    Dernier message: 20/05/2016, 17h01
  3. [OL-2007] Extraction pièce jointe dans word et déplacement dossier
    Par th3sorrow dans le forum VBA Outlook
    Réponses: 4
    Dernier message: 09/05/2012, 15h30
  4. Extraction pièces jointes CSV
    Par sebo13 dans le forum Débuter
    Réponses: 9
    Dernier message: 29/01/2010, 16h51
  5. Extraction pièces jointes Outlook via VBA
    Par roidurif dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 22/12/2009, 09h56

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