Frage : Aussicht-Makro, zum einer txt Akte zu fragen und von eMail zu senden.

Hallo,

Outlook das Makro, eine txt Akte wünschen zu fragen und emails.
I zu senden Hilfe bei einem Makro, wenn Durchlauf eine txt Akte überprüft, die Daten als this

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

The Dateinamen muss innen überprüft werden ein Faltblatt, wo alle diese txt Akten vorhanden sind und den txt Akteninhalt in den Körper dann zu mailen und email address in box
Each zum email address würde different

A Thema wie mit einem wenig Verschlusspfropfen data
I wünschen den txt Inhalt in eine Tabelle sein. So schaut es neat.

Regards
Sharath

Antwort : Aussicht-Makro, zum einer txt Akte zu fragen und von eMail zu senden.

O.K., versuchen dieses.

                       „
            Schleife
            „Auf der folgenden Linie die Mitteilung redigieren, wie gewünscht.“
            .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:
6:
37:

           
           
             VorImportFromFileAndSend ()
    Schwaches objFSO als Gegenstand, _
        objFile1 als Gegenstand, _
        objFile2 als Gegenstand, _
        olkMsg als Gegenstand, _
        strBuffer als Schnur, _
        arrParts als Variante, _
        strTable als Schnur
    objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
    „Auf der folgenden Linie den Dateinamen und den Weg redigieren.“
    Einstellen objFile1 = objFSO.OpenTextFile („C:\eeTesting\masterfile.txt ")
    Bis objFile1.AtEndOfStream tun
        strBuffer = objFile1.ReadLine
        arrParts = spalteten auf sich (strBuffer, „; ")
        olkMsg = Application.CreateItem (olMailItem) einstellen
        Mit olkMsg
            „Auf der folgenden Linie den Aktenweg redigieren.“
            Einstellen objFile2 = objFSO.OpenTextFile („C:\eeTesting\“ u. arrParts (0))
            „Auf folgenden Zzeilenwechsel das Thema, wie gewünscht.“
            . Thema = „Ihr Thema geht hier“
            . Zu = arrParts (1)
            .BodyFormat = olFormatHTML
            Bis objFile2.AtEndOfStream tun
                „Auf der folgenden Linie das HTML redigieren, wie gewünscht.“
                strTable = strTable u. „
„u. objFile2.ReadLine u.“ 
„u. strTable u.“Software-NameAnmerkungen


Respekt
Somename "
            . Anzeige
        Ende mit
        objFile2.Close
    Schleife
    olkMsg einstellen = nichts
    Einstellen objFile1 = nichts
    Einstellen objFile2 = nichts
    objFSO einstellen = nichts
Unterseeboot beenden

           