Substrater CSchene ()
Const ForAppending = 8
Faible olkMsg comme Outlook.MailItem, strIncidentNumber comme corde, strStatus comme corde, varLine comme variante, _
d'arrLine variante aussi, objFSO que l'objet, objFile comme objet
Placer l'objFSO = le CreateObject (« Scripting.FileSystemobject »)
« Sur la prochaine ligne changement le nom de fichier et le chemin. »
objFile réglé = objFSO.OpenTextFile (« C:\eeTesting\CShene.txt », ForAppending, vrais)
Pour chaque olkMsg dans Application.ActiveExplorer.Selection
Pour chaque varLine dans la fente (olkMsg.Body, vbCrLf)
l'arrLine = s'est dédoublé (varLine, « : ")
Si UBound (arrLine) > 0 puis
Choisir l'arrLine de cas (0)
Enfermer le « nombre d'incident »
strIncidentNumber = arrLine (1)
Cas « statut »
strStatus = arrLine (1)
Sortir pour
Finir choisi
Finir si
Après
objFile.WriteLine GetPrintable (strIncidentNumber) et « , » et GetPrintable (strStatus)
Après
objFile.Close
Placer l'objFSO = rien
Placer objFile = rien
Placer l'olkMsg = rien
msgbox « fait »
Sous-marin d'extrémité
|
