Sending Mail Via SMTP Server

Sending Mail Via SMTP Server

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "

ummed.sindgh@optus.com.au"

objEmail.To = "

ayaskant.jena@optus.com.au"

objEmail.CC = "

adarsdh.venkatesh@optus.com.au"

objEmail.Subject = "Testing-project thor"

objEmail.Textbody = "Server1 is no longer accessible over the network."

objEmail.AddAttachment "C:\Documents and Settings\Ayaskant Jena\Desktop\BUOS_Updated_Friday.txt"

objEmail.Configuration.Fields.Item _

("

http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objEmail.Configuration.Fields.Item _

("

http://schemas.microsoft.com/cdo/configuration/smtpserver") = "CHOW2KE001.optus.com.au"

objEmail.Configuration.Fields.Item _

("

http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objEmail.Configuration.Fields.Update

objEmail.Send