Jump to content

Veeravicky22

Member
  • Posts

    1
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    India

Posts posted by Veeravicky22

  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

×
×
  • Create New...