Las claves son los statements Open y Line Input.
Sub mailtest()
Dim sourcefile As String
Dim linecontent As String
Dim mail_body As String
sourcefile = "D:\RubenBK\REPORTS\mailtemplates\Karla.txt"
'Esto abre el archivo para ingreso, y con el # le damos un numero de referencia.
Open sourcefile For Input As #1
'Line Input va ingresado el valor de cada linea a la variable linecontent
Do Until EOF(1)
Line Input #1, linecontent
mail_body = mail_body & vbNewLine & linecontent & vbNewLine
Loop
'Cierra el archivo.
Close #1
'Llamo a otro procedimiento para enviar el mail.
Call Mail_LSP("test", "ruben.torres@huawei.com", "ruben.torres@huawei.com", mail_body)
End Sub
No hay comentarios:
Publicar un comentario