Veeravicky22

Member
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Neutral

About Veeravicky22

Profile Information

  • OS
    none specified
  1. 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