Discussion :

[perdinch]

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

[Oliv-]

Salut,

Peut être juste mettre des guillemets

Code :

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

1
2
 
Case Is = "95"

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

[perdinch]

bonjour,

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

Cordialement,

Perdinch

[Oliv-]

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