Vraag : De Macro van vooruitzichten om een txtdossier te vragen en e-mail te verzenden.

Hallo, Macro

Outlook om txt te vragen wil een dossier en emails.
I te verzenden hulp met een macro wanneer de looppas een txtdossier controleert dat gegevens als this

Filename1 heeft; E-mail address
Filename2; E-mail address
Filename3; E-mail address

The- dossier - de naam moet worden gecontroleerd in een omslag waar al deze txt dossiers beschikbaar zijn en toen e-mail de inhoud van het txtdossier in het lichaam en het e-mailadres in AAN box
Each e-mail adres zou different

A onderworpen als met wat BZV data
I behoefte de txtinhoud in een lijst zijn. Zo kijkt het neat.

Regards
Sharath

Antwoord : De Macro van vooruitzichten om een txtdossier te vragen en e-mail te verzenden.

O.k., probeer dit.

„
            Lijn
            „Op de volgende lijn geef het bericht uit zoals gewenst.“
            .HTMLBody = „hallo,




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:



Sub ImportFromFileAndSend ()
    Schemerige objFSO als Voorwerp, _
        objFile1 als Voorwerp, _
        objFile2 als Voorwerp, _
        olkMsg als Voorwerp, _
        strBuffer als Koord, _
        arrParts als Variant, _
        strTable als Koord
    Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
    „Op de volgende lijn geef het dossier uit - naam en weg.“
    Plaats objFile1 = objFSO.OpenTextFile („C:\eeTesting\masterfile.txt“)
    Doe tot objFile1.AtEndOfStream
        strBuffer = objFile1.ReadLine
        arrParts = verdeel (strBuffer, „; “)
        Reeks olkMsg = Application.CreateItem (olMailItem)
        Met olkMsg
            „Op de volgende lijn geef de dossierweg uit.“
            Plaats objFile2 = objFSO.OpenTextFile („C:\eeTesting\“ & arrParts (0))
            „Op de volgende lijn verander het onderwerp zoals gewenst.“
            . Het onderwerp = „Uw Onderwerp gaat hier“
            . Aan = arrParts (1)
            .BodyFormat = olFormatHTML
            Doe tot objFile2.AtEndOfStream
                „Op de volgende lijn geef HTML uit zoals gewenst.“
                strTable = strTable & „
„& objFile2.ReadLine &“ 
„& strTable &“De Naam van de softwareCommentaren


Achting
Somename "
            . Vertoning
        Eind met
        objFile2.Close
    Lijn
    Reeks olkMsg = niets
    Vastgesteld objFile1 = niets
    Vastgesteld objFile2 = niets
    Reeks objFSO = niets
Sub van het eind