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

날짜: 2011-02-08 16:49:35, 조회수: 2080