'//
'// smtp 서비스 사용해서 메일 보내기
'// ms technet site 내용.
'// 메일 보내기 테스트
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "send email address"
objEmail.To = "receive email address"
objEmail.Subject = "메일 보내기 테스트 입니다/"
objEmail.Textbody = "내용을 만들어서 보내세요."
objEmail.Send
