구글 지메일 (Gmail)의 smtp 서버를 이용하면 외부에서도 공짜로 메일 발송 서버를 구축할 수 있습니다.
CDO(Collaboration Data Objects)를 이용한 asp 구현 소스를 어디서 참고해서 지메일 smtp에 적용해보았습니다.
지메일의 smtp 서버는 smtp.gmail.com, 포트는 465 입니다.
테스트해보니 잘되네요. 다른 언어로 구현하더라도 어려울 건 없겠죠? ^-^
<%
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>", "제목이구", "내용이얌")
%>