Email from qtp to Microsoft outlook through vb script

[gammaflare]

Use this vbscript. For sending email.

Create a text file and save one or more email addresses in that file. eg.
"c:\email.txt" will have the following entries
abc@abc.com
def@abc.com
etc@etc.com


Create a vbs file, this will be responsible for sending emails. Say this is email.vbs

Code:

strofile = "c:\email.txt"
'Open the file for reading
Set fso = CreateObject("Scripting.FileSytemObject")
'Get the email addresses
Set ObjInpFile = fso.OpenTextFile(strofile,1)
inpdata = Split(objInpfile,ReadAll,vbnewline)
Dim ObjEmail
    For each strdata in inpdata
        set objEmail = CreateObject("CDO.Message")
        ObjEmail.from = "someone@somewhere.com"
        ObjEmail.to = strdata
        ObjEmail.Subject = "Some subject"
        ObjEmail.Textbody = "Text Body"
'SMTP Server Config
        ObjEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        ObjEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "your smtp server name"
        ObjEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        ObjEmail.Send
     Next
ObjInpFile.close
Set ObjEmail = Nothing