728x90

Set objMail= CreateObject("CDO.Message") 
objMail.From = "보내는 테스트사용자<testUser@test.com>"
objMail.Subject =subject
objMail.HtmlBody = html
objMail.To = "받는 테스트사용자<receiver@test.com>"

'objMail.Bcc = toMail

objMail.BodyPart.Charset = "euc-kr"
objMail.HtmlBodyPart.Charset = "euc-kr"
objMail.fields.update
objMail.Send

Set objMail = Nothing

728x90

+ Recent posts