Jump to content
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble

MSFN is made available via donations, subscriptions and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, register and become a site sponsor/subscriber and ads will be disabled automatically. 



Sign in to follow this  
Veeravicky22

Print array values in email body in vbscript

Recommended Posts

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×