Question : J'ai voulu analyser dehors le texte dans les perspectives using VBA et sauver les valeurs dans un bilan

Bonjour, le

I ont un message et un gisement des textes suivant les indications de l'image jointe. Ceux-ci sont d'OnTime, un produit d'Axasoft. le

I veulent au

1) analysent dehors cet email et extraient le nombre d'incident using le
2) Pase l'emal et extraient le
3) apposent le texte « nombre d'incident », le « statut » à un file

I des textes supposent que ceci exigerait VBA, mais n'importe quelle approche qui fonctionne est très bien.

class= de

Réponse : J'ai voulu analyser dehors le texte dans les perspectives using VBA et sauver les valeurs dans un bilan

Voici ma solution.  Suivre ces instructions d'ajouter le code aux perspectives.

1.  Commencer les perspectives
2.  Cliquer les outils > le macro > le rédacteur de Visual Basic
3.  Sinon déjà augmenté, augmenter les objets de perspectives de Microsoft Office
4.  Sinon déjà augmenté, augmenter les modules
5.  Choisir un module existant (par exemple Module1) par double-clicking là-dessus ou créer un nouveau module right-clicking des modules et en choisissant l'insertion > le module.
6.  Copier le code de la boîte d'extrait de code et le coller dans le carreau droit de la fenêtre de rédacteur du VB des perspectives
7.  Éditer le code comme nécessaire.  J'ai inclus des commentaires là où que quelque chose a besoin ou peut changer
8.  Cliquer l'icône de disquette sur la barre porte-outils pour sauver les changements
9.  Fermer le rédacteur de VB

Pour employer ceci

1.  Choisir ou ouvrir un message
2.  Courir le macro CShene

Une alternative est de changer le code légèrement pour le courir d'une règle.

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 : 37 : 38 : 39 : 40 : 41 :

CShene secondaire () 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 Choisir le cas TypeName (Application.ActiveWindow) Enfermer le « explorateur » Placer l'olkMsg = l'Application.ActiveExplorer.Selection (1) Enfermer le « inspecteur » Placer l'olkMsg = l'Application.ActiveInspector.CurrentItem Finir choisi 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 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) objFile.WriteLine GetPrintable (strIncidentNumber) et « , » et GetPrintable (strStatus) objFile.Close Placer l'objFSO = rien Placer objFile = rien Finir le sous-marin Fonction GetPrintable (strValue comme corde) comme corde Faible intCount comme nombre entier, strTemp comme corde Pour l'intCount = 1 à Len (strValue) strTemp = mi (strValue, intCount, 1) Choisir le cas Asc (le strTemp) Affaire 32 126 GetPrintable = GetPrintable et strTemp Extrémité choisie Après GetPrintable = équilibre (GetPrintable) Fonction de fin