Pytanie : Światopogląd Makro- query txt kartoteka i email.

Cześć,

Outlook Makro- query txt kartoteka i emails.
I chcieć pomoc z macro gdy bieg sprawdzać txt kartoteka który mieć dane jako this

Filename1; Email address
Filename2; Email address
Filename3; Email address

The kartoteka - imię musieć sprawdzać wewnątrz falcówka dokąd wszystkie te txt kartoteka być dostępny i wtedy email the txt kartoteka zawartość w the ciało i adres emaila w the Box
Each adres emaila być different

A temat jak z troszkę bod data
I chcieć the txt zawartość w stół. W Ten Sposób ono patrzeć neat.

Regards
Sharath

Odpowiedź : Światopogląd Makro- query txt kartoteka i email.

Ok, próbować to.

                       "
            Pętla
            "Na the następny linia redagować the wiadomość pragnąć."
            .HTMLBody = "Cześć,


         
           
             (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:

           
           
             Okręt podwodny ImportFromFileAndSend ()
    Ciemnawy objFSO Jako Przedmiot, _
        objFile1 Jako Przedmiot, _
        objFile2 Jako Przedmiot, _
        olkMsg Jako Przedmiot, _
        strBuffer Jako Sznurek, _
        arrParts Jako Wariant, _
        strTable Sznurek
    Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
    "Na the następny linia redagować the kartoteka - imię i ścieżka."
    Ustawiać objFile1 = objFSO.OpenTextFile ("C:\eeTesting\masterfile.txt ")
    Do objFile1.AtEndOfStream
        strBuffer = objFile1.ReadLine
        arrParts = Rozłam (strBuffer, "; ")
        Ustalony olkMsg = Application.CreateItem (olMailItem)
        Z olkMsg
            "Na the następny linia redagować the kartoteka ścieżka."
            Ustawiać objFile2 = objFSO.OpenTextFile ("C:\eeTesting\" & arrParts ((0)))
            "Na the następny kreskowy zmiana the temat pragnąć."
            . Temat = "Twój Temat Iść Tutaj"
            . = arrParts (1)
            .BodyFormat = olFormatHTML
            Do objFile2.AtEndOfStream
                "Na the następny linia redagować the HTML pragnąć."
                strTable = strTable & "
"& objFile2.ReadLine &" 
"& strTable &"Oprogramowanie ImięKomentarz


Uwzględnienie
Somename "
            . Pokaz
        Końcówka Z
        objFile2.Close
    Pętla
    Ustalony olkMsg = Nic
    Set objFile1 = Nic
    Set objFile2 = Nic
    Ustalony objFSO = Nic
Końcówka Okręt podwodny

           