xhudi69
XLDnaute Accro
Bonjour à toutes & tous
j'aimerais sélectionner automatiquement tous les mails d'un même "Sender" et les traiter.
la partie traitement est faite (voir code plus bas), reste la partie sélection pour que l'utilisateur n'est pas à faire cette tâche supplémentaire.
Ce code fait partie d'une interface de gestion des tickets d'incidents et cela m'aiderais fortement.
merci à vous.
Extrait du code pour la partie traitement.
j'aimerais sélectionner automatiquement tous les mails d'un même "Sender" et les traiter.
la partie traitement est faite (voir code plus bas), reste la partie sélection pour que l'utilisateur n'est pas à faire cette tâche supplémentaire.
Ce code fait partie d'une interface de gestion des tickets d'incidents et cela m'aiderais fortement.
merci à vous.
Extrait du code pour la partie traitement.
VB:
For Each Item In OutApp.ActiveExplorer.Selection
If InStr(1, Item.Subject, "[Alerting]", vbTextCompare) <> 0 Then
Sh.Cells(Nvl, 1) = Item.Sender
Sh.Cells(Nvl, 2) = Replace(Item.Subject, "[Alerting] ", "")
Sh.Cells(Nvl, 3) = Format(Item.ReceivedTime, "mm/dd/yyyy")
Sh.Cells(Nvl, 4) = Format(Item.ReceivedTime, "hh:mm")
Sh.Cells(Nvl, 5) = Item.Body
Sh.Cells(Nvl, 6) = Format(Item.ReceivedTime, "mm/dd/yyyy hh:mm")
'Sh.Cells(Nvl, 4) = Item.Categories
'Item.SaveAs "C:\temp\" & .Cells(Ligne, 1) & ".msg", olMSG
Nvl = Nvl + 1
Item.Delete
End If
Next Item