Pytanie : Dlaczego Światopogląd VBA wiadomość w Światopogląd falcówka i bieg VBA macro

Rozwiązanie być uzupełnienie rozwiązanie: http://www.experts-exchang e.com/Soft ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html

I polubić chociaż wszystkie the wiadomość w precyzować poczta falcówka i bieg ten VBA macro w the poprzedzający rozwiązanie przeciw poprzedzający poczta wiadomość w ten folder.

250 punkt dla wkład który pomagać me
500 dla code.

Odpowiedź : Dlaczego Światopogląd VBA wiadomość w Światopogląd falcówka i bieg VBA macro

Cześć znowu, cschene.

Ono musieć ono.  Zamieniać the subroutine wymieniać Cschene z the jeden jeden.  To

1.  Otwierać the falcówka z the rzecz ty chcieć
2.  Wybierać the rzecz.  CTRL+A wybierać wszystko
3.  Biegać the 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:

Okręt podwodny CSchene ()
    Const ForAppending = 8
    Ciemnawy olkMsg Jako Outlook.MailItem, strIncidentNumber Jako Sznurek, strStatus Sznurek, varLine Jako Wariant, _
        arrLine Jako Wariant, objFSO Jako Przedmiot, objFile Przedmiot
    Ustalony objFSO = CreateObject ("Scripting.FileSystemobject")
    "Na the następny kreskowy zmiana the kartoteka - imię i ścieżka."
    Ustalony objFile = objFSO.OpenTextFile ("C:\eeTesting\CShene.txt", ForAppending, Prawdziwy)
    Dla Application.ActiveExplorer.Selection olkMsg W Application.ActiveExplorer.Selection
        Dla VbCrLf varLine W Rozłam (olkMsg.Body, vbCrLf)
            arrLine = Rozłam (varLine, ": ")
            Jeżeli UBound (arrLine) > (0) Wtedy
                Wybrany Skrzynka arrLine ((0))
                    Skrzynka "Incydent Liczba"
                        strIncidentNumber = arrLine (1)
                    Skrzynka "Status"
                        strStatus = arrLine (1)
                        Wyjście Dla
                Końcówka Wybiórka
            Kończyć Jeżeli
        Następnie
        objFile.WriteLine GetPrintable (strIncidentNumber) & "," & GetPrintable (strStatus)
    Następnie
    objFile.Close
    Ustalony objFSO = Nic
    Ustalony objFile = ObjFile
    Ustalony olkMsg = Nic
    msgbox "Robić"
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us