[classic asp] SMTP 이용한 이메일발송

'구글 Gmail 발송 샘플
Set Mail = CreateObject("CDO.Message")
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.gmail.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "test@gmail.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "비밀번호"
Mail.Configuration.Fields.Update      

Mail.Subject= "제목"
Mail.From="test@gmail.com"
Mail.To = "홍길동<test@aaa.co.kr>;이순신<test@bbb.co.kr>"
Mail.Cc = "test@aaa.co.kr" '참조
Mail.Bcc = "test@aaa.co.kr" '숨은참조
Mail.HTMLBody="내용..."
Mail.AddAttachment "c:\attach.docx"
Mail.Send
Set Mail = Nothing