[Veeravicky22]

Hi ,

I have a list of values in an array. I want to print each value from the array in a new line in the email body. Please find below the code for the mail body. Please help me on how to display the each value in a new line in the mail body.

Set objFSO = CreateObject("Scripting.FileSystemObject") 

Dim objFSO, objFolder, colFiles
Set objFile = objFSO.OpenTextFile("C:\Deployment\Deploy_Group_Deploy\Input.txt", ForReading) 
 
Const ForReading = 1 
 
Dim arrFileLines() 
i = 0 
Do Until objFile.AtEndOfStream 
Redim Preserve arrFileLines(i) 
arrFileLines(i) = objFile.ReadLine 
i = i + 1 
Loop 
objFile.Close 

Set objEmail = CreateObject("CDO.Message")
ObjEmail.From = "xxxx@xxx.com"
objEmail.To = "xxxx@xxx.com"
objEmail.Subject = "Informatica Deployment Completion" 
Set objEmail.Textbody = 
<THIS IS WHERE I NEED TO PRINT THE ARRAY VALUES>
				
							
														
		    		
objEmail.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ 
"xxxxx"
 
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

Gsm added code tags
Thanks,
Veera

[gunsmokingman]

Make these changes to your script and see if that works

Dim EmailTxt

 Do Until objFile.AtEndOfStream
  EmailTxt= EmailTxt & vbCrLf & objFile.ReadLine 
 Loop 
objFile.Close 

Set objEmail.Textbody = EmailTxt