stocker un mot/numéro spécifique de l'objet d'un mail dans une variable

Version imprimable

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:

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

28/07/2022, 11h17
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:

1 2 3 filterStr = "@SQL=""urn:schemas:httpmail:subject"" like '20%'" Set myMails = colSentItems.Items.Restrict(filterStr)
29/07/2022, 09h10
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:

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)