Questione : Macro di prospettiva per interrogare una lima del txt e per trasmettere i email.

Ciao, macro del

Outlook interrogare una lima del txt e trasmettere emails.
I vogliono l'aiuto con una macro quando il funzionamento controlla una lima del txt che ha dati come this

Filename1;
Filename2 di email address;
Filename3 di email address; Il nome di schedario del

The di email address deve essere controllato un dispositivo di piegatura dove tutte queste lime del txt sono disponibili ed allora inviare con la posta elettronica il soddisfare della lima del txt nel corpo ed il email address in al email address del box
Each sarebbe oggetto del different

A come con un poco data
I della domanda biologica di ossigeno vuole il soddisfare del txt in una tabella. Così osserva neat.

Regards
Sharath
class= del

Risposta : Macro di prospettiva per interrogare una lima del txt e per trasmettere i email.

L'approvazione, prova questa.

                       “
            Ciclo
            “Sulla linea seguente pubblicare il messaggio come voluto.„
            .HTMLBody = “ciao,


         
           
             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:

           
           
             ImportFromFileAndSend secondario ()
    objFSO fioco come oggetto, _
        objFile1 come oggetto, _
        objFile2 come oggetto, _
        olkMsg come oggetto, _
        strBuffer come stringa, _
        arrParts come variante, _
        strTable come stringa
    Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
    “Sulla linea seguente pubblicare il nome di schedario ed il percorso.„
    Regolar objFile1 = objFSO.OpenTextFile (“C:\eeTesting\masterfile.txt ")
    Fare fino a objFile1.AtEndOfStream
        strBuffer = objFile1.ReadLine
        i arrParts = hanno spaccato (strBuffer, “; ")
        Regolare il olkMsg = Application.CreateItem (olMailItem)
        Con olkMsg
            “Sulla linea seguente pubblicare il percorso della lima.„
            Regolar objFile2 = objFSO.OpenTextFile (“C:\eeTesting\„ & arrParts (0))
            “Sulla linea cambiamento seguente l'oggetto come voluto.„
            . L'oggetto = “il vostro oggetto va qui„
            . A = arrParts (1)
            .BodyFormat = olFormatHTML
            Fare fino a objFile2.AtEndOfStream
                “Sulla linea seguente pubblicare il HTML come voluto.„
                strTable = strTable & “
“& objFile2.ReadLine &„ 
“& strTable &„Nome del softwareOsservazioni


Riguardi
Somename "
            . Esposizione
        Estremità con
        objFile2.Close
    Ciclo
    Regolare il olkMsg = niente
    Regolar objFile1 = niente
    Regolar objFile2 = niente
    Regolare il objFSO = niente
Concludere il sommergibile

           