Pergunta : Macro da probabilidade para perguntar uma lima do txt e para emitir email.

Olá!, macro do

Outlook perguntar uma lima do txt e emitir emails.
I querem a ajuda com um macro quando o funcionamento verific uma lima do txt que tenha dados como o this

Filename1;
Filename2 do email address;
Filename3 do email address; O nome de arquivo do

The do email address tem que ser verific dentro um dobrador onde todas estas limas do txt estão disponíveis e para enviar por correio electrónico então o índice da lima do txt no corpo e o email address no ao email address do box
Each seria assunto do different

A como com pouco data
I do bod quer o índice do txt em uma tabela. Assim olha neat.

Regards
Sharath
class= do

Resposta : Macro da probabilidade para perguntar uma lima do txt e para emitir email.

A aprovação, tenta esta.

“
            Laço
            “Na linha seguinte editar a mensagem como desejada.”
            .HTMLBody = “olá!,




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 secundário ()
    objFSO não ofuscante como o objeto, _
        objFile1 como o objeto, _
        objFile2 como o objeto, _
        olkMsg como o objeto, _
        strBuffer como a corda, _
        arrParts como a variação, _
        strTable como a corda
    Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
    “Na linha seguinte editar o nome de arquivo e o trajeto.”
    Ajustar objFile1 = objFSO.OpenTextFile (“C:\eeTesting\masterfile.txt ")
    Fazer até objFile1.AtEndOfStream
        strBuffer = objFile1.ReadLine
        arrParts = separação (strBuffer, “; ")
        Ajustar o olkMsg = o Application.CreateItem (o olMailItem)
        Com olkMsg
            “Na linha seguinte editar o trajeto da lima.”
            Ajustar objFile2 = objFSO.OpenTextFile (“C:\eeTesting\” & arrParts (0))
            “Na linha mudança seguinte o assunto como desejado.”
            . O assunto = “seu assunto vai aqui”
            . = arrParts (1)
            .BodyFormat = olFormatHTML
            Fazer até objFile2.AtEndOfStream
                “Na linha seguinte editar o HTML como desejado.”
                strTable = strTable & “
“& objFile2.ReadLine &” 
“& strTable &”Nome do softwareComentários


Considerações
Somename "
            . Exposição
        Extremidade com
        objFile2.Close
    Laço
    Ajustar o olkMsg = nada
    Ajustar objFile1 = nada
    Ajustar objFile2 = nada
    Ajustar o objFSO = nada
Terminar o submarino