[ASP] 구글 SMTP를 이용한 메일 발송방법

제가 울회사 서버에 사용하는 방법입니다.

 

매월청구서도 메일로 보내고,

업체조회해서 메일주소만 누르면 메일발송창 뜨게하고,

여러가지로 응용하시면 될것 같아요.

 

이걸 변형해서 네이버 메일 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>", "제목제목제목", "내용내용내용내용") 
%>