Gmail SMTP 를 이용한 메일 발송

<%
Function GoogleSendMail(strTo, strFrom, strSubject, strBody)
On Error Resume Next

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpaccountname") = "홍길동 <홍길동@gmail.com>"
Flds.Item(schema & "sendemailaddress") = "홍길동 <홍길동@gmail.com>"
Flds.Item(schema & "smtpuserreplyemailaddress") = "홍길동 <홍길동@gmail.com>"
Flds.Item(schema & "smtpserver") = "smtp.gmail.com" 
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "홍길동@gmail.com"
Flds.Item(schema & "sendpassword") = "메일암호"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

Set Flds = Nothing
Set iMsg =  Server.CreateObject("CDO.Message")
With iMsg
  .Configuration = iConf
  .To       = strTo                 ' 받는넘
  .From     = strFrom            ' 보내는넘
  .Subject  = strSubject         ' 제목      
  .HTMLBody = strBody        ' 내용
  SendEmailGmail = .Send
End With

set iMsg = nothing
set iConf = nothing
set Flds = nothing

If Err.number <> 0 Then
  GoogleSendMail = Err.Description
Else
  GoogleSendMail = 0
End If

End Function
%>

<%
  ' 사용예
  Ret = GoogleSendMail("받은사람 이메일", "홍길동 <홍길동@gmail.com>", "제목이구", "내용이얌")  
%>