Cuestión : Macro de la perspectiva para preguntar un archivo del txt y para enviar email.

Hola, macro del

Outlook preguntar un archivo del txt y enviar emails.
I quieren ayuda con una macro cuando el funcionamiento comprueba un archivo del txt que tenga datos como this

Filename1;
Filename2 del email address;
Filename3 del email address; El nombre de fichero del

The del email address tiene que ser llegado una carpeta donde están disponibles todos estos archivos del txt y entonces enviar por correo electrónico el contenido del archivo del txt en el cuerpo y el email address en al email address del box
Each sería tema del different

A como con un poco data
I del tío quiere el contenido del txt en una tabla. Mira tan neat.

Regards
Sharath
class= del

Respuesta : Macro de la perspectiva para preguntar un archivo del txt y para enviar email.

La autorización, intenta esto.

                       “
            Lazo
            “En la línea siguiente corregir el mensaje según lo deseado.”
            .HTMLBody = “hola,


         
           
             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 secundario ()
    objFSO dévil como objeto, _
        objFile1 como objeto, _
        objFile2 como objeto, _
        olkMsg como objeto, _
        strBuffer como secuencia, _
        arrParts como variante, _
        strTable como secuencia
    Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
    “En la línea siguiente corregir el nombre de fichero y la trayectoria.”
    Fijar objFile1 = objFSO.OpenTextFile (“C:\eeTesting\masterfile.txt ")
    Hacer hasta objFile1.AtEndOfStream
        strBuffer = objFile1.ReadLine
        los arrParts = partieron (strBuffer, “; ")
        Fijar el olkMsg = Application.CreateItem (el olMailItem)
        Con el olkMsg
            “En la línea siguiente corregir la trayectoria del archivo.”
            Fijar objFile2 = objFSO.OpenTextFile (“C:\eeTesting\” y arrParts (0))
            “En la línea cambio siguiente el tema según lo deseado.”
            . El tema = “su tema va aquí”
            . A = arrParts (1)
            .BodyFormat = olFormatHTML
            Hacer hasta objFile2.AtEndOfStream
                “En la línea siguiente corregir el HTML según lo deseado.”
                strTable = strTable y “
“y objFile2.ReadLine y” 
“y strTable y”Nombre del softwareComentarios


Respetos
Somename "
            . Exhibición
        Extremo con
        objFile2.Close
    Lazo
    Fijar el olkMsg = nada
    Fijar objFile1 = nada
    Fijar objFile2 = nada
    Fijar el objFSO = nada
Terminar el submarino

           