Discussion :

[legone38]

Bonjour a tous,
voila mon problème, j'essaie de stocker une partie de l'objet d'un mail (dans ce contexte je cherche un numéro commençant par 20) mais étant novice dans ce langage j'espère pouvoir trouver de l'aide parmi vous, c'est au niveau du filtre et du restrict que ca plante.
Je vous envoie mon code :

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
30
31
32
33
34
35
36
Dim WithEvents colSentItems As Items
 
Private Sub Application_Startup()
'pour evenement itemadd
   Dim NS As Outlook.NameSpace
   Set NS = Application.GetNamespace("MAPI")
   Set colSentItems = NS.GetDefaultFolder(olFolderSentMail).Parent.Folders("test").Items 'dossier outlook où la macro va se déclancher
   Set NS = Nothing
 'fin section
 
End Sub
Private Sub colSentItems_ItemAdd(ByVal Item As Object)
Dim myMail As Outlook.MailItem
Dim myMails As Outlook.Items
Dim filterStr As String
Dim test As String
 
    If Item.Class = olMail Then
 
        filterStr = "@SQL=""urn:schemas:httpmail:subject"" like '20%'"
 
        Set myMails = colSentItems.Items.Restrict(filterStr)
        MsgBox (myMails)
 
        'répertoire où déplacer les mails
        Repertoire = ("C:\Users\thibaud.veyssade\OneDrive - PBM\Bureau\testdes\mails\" & Item.Subject & "\")
 
        'retirer les caractères interdits
        Strname = Repertoire & Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Item.Subject, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), "<", ""), ">", ""), "|", ""), ".", ""), """", ""), vbTab, ""), Chr(7), ""), 160)
 
        'affiche l'objet du mail
        MsgBox ("l'objet est " & Item.Subject)
 
        Item.SaveAs Strname & ".msg", OlSaveAsType.olMSG
    End If
End Sub

[legone38]

Après plusieurs recherche je n'ai pas résolu mon problème mais il faut que je remplace cette partie du code par la fonction inStr, si je trouve la réponse avant que quelqu'un m'ait aidé je la posterai sur le topic.

Code :

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

1
2
3
filterStr = "@SQL=""urn:schemas:httpmail:subject"" like '20%'"
 
        Set myMails = colSentItems.Items.Restrict(filterStr)

[legone38]

C'est bon, après plusieurs tentatives de recherche j'ai trouvé comment résoudre mon problème, il fallait que je récupère l'emplacement du début du mot ou numero recherché (pour ma part un numéro qui comporte toujours 9 caractères) puis utiliser la fonction mid pour récupérer le numéro que je recherche. Il me reste juste quelques points a peaufiner
mais surmontable, voici mon code pour les intéressé.

Code :

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

1
2
3
4
'filtre l'objet du mail pour obtenir le numéro de commande
        postionNum = InStr(1, Item.Subject, "20220")
        numCommande = Mid(Item.Subject, postionNum, 9)
        MsgBox (numCommande)