2000서버에서는 메일보낼때 CDONTS.NewMail 객체를 쓰는데
2003서버에서는 바꼈네요 CDO.Message 로
코드:
sub send_mail(str_address,str_subject,str_body)
‘Set objMail = CreateObject(“CDONTS.NewMail”)
Set objMail = CreateObject(“CDO.Message”)
objMail.From= “메일주소” ‘ 보내는 사람
objMail.Subject=str_subject ‘글의 제목
objMail.HtmlBody=str_body
objMail.To = str_address ‘받는 사람
objMail.Send
Set objMail = nothing
end sub
Comments
Powered by Facebook Comments