Question : Comment employer les perspectives VBA pour choisir des messages dans une chemise de perspectives et un macro couru de VBA

C'est un suivi à la solution : le href= " http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html " de le ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html

I du e.com/Soft de http://www.experts-exchang voudrait faire une boucle bien que tous les messages dans un dossier et une course spécifiques ce macro de VBA dans la solution précédente contre chaque message de courrier ce aux points de folder.

250 pour l'entrée qui aide le me
500 pour travailler code. class= de

Réponse : Comment employer les perspectives VBA pour choisir des messages dans une chemise de perspectives et un macro couru de VBA

Bonjour encore, cschene.

Ceci devrait le faire.  Remplacer la sous-routine appelée Cschene par celui ci-dessous.  Pour employer ceci

1.  Ouvrir la chemise avec les articles que vous voulez traiter
2.  Choisir les articles pour traiter.  CTRL+A les choisira tous
3.  Courir le macro
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 :

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é
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us