Fråga : Framtidsutsiktmakroen som query en txt, sparar och överför e-post.

Hi makroen för

Outlook som query en txt, sparar och överför emails.
I önskar hjälp med en makro, när körningen kontrollerar en txt sparar som har data som this

Filename1; E-postaddress
Filename2; E-postaddress
Filename3; E-postaddress

The sparar - känt måste att kontrolleras in en mapp var alla dessa txt sparar är tillgängliga och därefter e-posten txten sparar nöjt in i förkroppsliga och e-posten tilltalar i TILL e-posten för box
Each tilltalar skulle är different

A betvingar något liknande med en boddata
I önskar lite txten som är nöjd in i en bordlägga. Så den ser neat.

Regards
Sharath
" klar "

Svar : Framtidsutsiktmakroen som query en txt, sparar och överför e-post.

Ok försök detta.

                       ”,
            Kretsa
            ”På det nästa fodra redigerar meddelandet som önskat.”,
            .HTMLBody = ”Hi,


         
           
             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:

           
           
             UnderImportFromFileAndSend ()
    Dunkel objFSO som anmärker, _,
        objFile1 som anmärker, _,
        objFile2 som anmärker, _,
        olkMsg som anmärker, _,
        strBuffer som stränger, _,
        arrParts som varianten, _,
        strTable som stränger
    Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
    ”På det nästa fodra redigerar spara - namnge och banan.”,
    Uppsättning objFile1 = objFSO.OpenTextFile (”C:\eeTesting\masterfile.txt”)
    Gör till objFile1.AtEndOfStream
        strBuffer = objFile1.ReadLine
        arrParts = splittring (strBuffer, ”; ”)
        Fastställd olkMsg = Application.CreateItem (olMailItem)
        Med olkMsg
            ”På det nästa fodra redigerar sparabanan.”,
            Uppsättning objFile2 = objFSO.OpenTextFile (”C:\eeTesting\” & arrParts (0))
            ”På det nästa fodra ändring betvinga som önskad.”,
            . Betvinga = ”ditt betvingar går här”,
            . Att = arrParts (1)
            .BodyFormat = olFormatHTML
            Gör till objFile2.AtEndOfStream
                ”På det nästa fodra redigerar HTMLEN som önskad.”,
                strTable = strTable & ”,
”& objFile2.ReadLine &”, 
”& strTable &”,Känd programvaraKommentarer


Hälsningar
Somename ",
            . Skärm
        Avsluta med
        objFile2.Close
    Kretsa
    Fastställd olkMsg = ingenting
    Uppsättning objFile1 = ingenting
    Uppsättning objFile2 = ingenting
    Fastställd objFSO = ingenting
Avsluta suben

           