strToaddress = "Jayakrishna@sample.com; Jayakrishna2@sample.com " strSubject = "Sample-Subject" strBody = "Sample-Body" strAttachPath = "C:\Dump\Sample.txt" SendMailFromOutlook strToaddress,strSubject,strBody,strAttachPath Function SendMailFromOutlook ( strToaddress,strSubject,strBody,strAttachPath ) Dim objOut, Objmail Set objOut = CreateObject ( "Outlook.Application" ) Set Objmail = objOut.CreateItem ( 0 ) With Objmail . To = strToaddress .Subject = strSubject .Body = strBody ...