Welcome to MSFN

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.


Sign in to follow this  
Followers 0
Veeravicky22

Print array values in email body in vbscript

2 posts in this topic

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

0

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

0

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  
Followers 0

  • Recently Browsing   0 members

    No registered users viewing this page.