Veeravicky22 Posted February 8, 2013 Share Posted February 8, 2013 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, colFilesSet 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") = 2objEmail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "xxxxx"objEmail.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25objEmail.Configuration.Fields.UpdateobjEmail.SendGsm added code tagsThanks,Veera Link to comment Share on other sites More sharing options...
gunsmokingman Posted February 8, 2013 Share Posted February 8, 2013 Make these changes to your script and see if that worksDim EmailTxt Do Until objFile.AtEndOfStream EmailTxt= EmailTxt & vbCrLf & objFile.ReadLine Loop objFile.Close Set objEmail.Textbody = EmailTxt Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now