★★ ASP Gmail(지메일) SMTP 연동 방법 (ASP 소스포함) ★★
Etc 2016. 8. 5. 10:58 |[asp 에 지메일 연동 방법]
- 2차 보안설정만 하고 2차 보안설정은 하지 않음
- 보안 수준이 낮은 앱의 엑세스가 가능하게 처리
- 전달 및 POP/IMAP에 별도 설정은 하지 않아도 발송되는부분은 확인했습니다
- 발신 메일(SMTP) 서버 - TLS 필요
- smtp.gmail.com
- 포트: 465 또는 587
- SSL 필요: 예
- 인증 필요: 예
- 받는 메일 서버와 동일한 설정 사용
- 이름 또는 표시 이름: [사용자 이름]
- 계정 이름 또는 사용자 이름: 전체 Gmail 주소(username@gmail.com). Google Apps 사용자는 username@your_domain.com을 입력하세요.
- 이메일 주소: 전체 Gmail 주소(username@gmail.com). Google Apps 사용자는 username@your_domain.com을 입력하세요.
- 비밀번호: Gmail 비밀번호
메일 발송이 되지 않을시 아래 보안 수준이 낮은 앱을 사용 처리로 하면 정상적으로 발송이 되실거예요.
[ASP 소스]
<!--#Include Virtual="/Include/initialize.asp"--> <!--#Include Virtual="/Include/DBCon.asp"--> <!--#Include Virtual="/Include/Common.asp"--> <!-- 메일 전송 --> <% '///////////////////////////////////////////////////////////////// 'SMTP 기본정보 입력 SMTP_USER = "유저아이디" SMTP_PASS = "비밀번호" SMTP_SERVER = "smtp.gmail.com" SMTP_PORT = 465 ' SMTP 포트번호 SMTP_EMAIL_CERT_HTTP = "리턴받을 웹주소" '// GUID 생성해서 값을 리턴하는 함수 Function fnGetGUID() Dim myTypeLib Set myTypeLib = Server.CreateObject("Scriptlet.Typelib") fnGetGUID = myTypeLib.guid Set myTypeLib = Nothing End Function '// GUID 생성하기 Dim strGUID '// 좌우 {} 빼기 strGUID = Trim(fnGetGuid()) strGUID = Left(strGUID, Len(strGUID)-3) strGUID = Right(strGUID, Len(strGUID)-1) 'Response.Write strGUID & "<br/>" ' 호출주소와 guid를 합친다. SMTP_EMAIL_CERT_HTTP = SMTP_EMAIL_CERT_HTTP & strGUID 'Response.Write SMTP_EMAIL_CERT_HTTP ' Body htmlBody = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" htmlBody = htmlBody & "<HTML>" htmlBody = htmlBody & "<HEAD>" htmlBody = htmlBody & "<TITLE> 이메일 인증 </TITLE>" htmlBody = htmlBody & "</HEAD>" htmlBody = htmlBody & "<BODY>" htmlBody = htmlBody & "<table border='0' cellpadding='0' cellspacing='0' width='720' style='font-family: '맑은 고딕', '돋움', 'Dotum', sans-serif;font-size: 14px; font-weight: 400;text-align: left; background-color: #202835; color:#BFC1C5;-webkit-font-smoothing: antialiased;'>" htmlBody = htmlBody & "<tbody>" htmlBody = htmlBody & "<tr>" htmlBody = htmlBody & "<td style='font-family: '맑은 고딕', 'Malgun Gothic', '애플산돌고딕네오', 'AppleSDGothicNeo', '애플고딕', 'AppleGothic', '돋움', 'Dotum', sans-serif;text-align: left; background-color: #242D3D; border-top-width: 1px; border-top-style: solid; border-top-color: #3E424E; color: #BFC1C5; padding: 0 30px 0 30px;'>" htmlBody = htmlBody & "<br>" & SMTP_USERID & " 님, 안녕하세요.<br> <br>" htmlBody = htmlBody & "이메일 주소를 인증하려면 아래 링크를 클릭해 주세요.<br>" htmlBody = htmlBody & "<a href='" & SMTP_EMAIL_CERT_HTTP & "' target='_blank'>메일 인증하기</a><br> <br>" htmlBody = htmlBody & "</td>" htmlBody = htmlBody & "</tr>" htmlBody = htmlBody & "</tbody>" htmlBody = htmlBody & "</table>" htmlBody = htmlBody & "</BODY>" htmlBody = htmlBody & "</HTML>" 'Response.Write htmlBody '이메일 smtp Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_SERVER .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTP_PORT .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTP_USER .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTP_PASS .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 .Update End With Set CDOMail = server.CreateObject("CDO.Message") Set CDOMail.Configuration = iConf CDOMail.From = "<userid@gmail.com>" ' 자신의 E-mail 주소를 쓰세요 CDOMail.To = "<userid@gmail.com>" ' 받는이도 자신의 E-mail 주소를 쓰세요 CDOMail.Subject = "인증 메일 입니다. 확인해 주세요." CDOMail.HtmlBody = htmlBody CDOMail.Fields.update CDOMail.Send response.write "발송완료" Set Flds = Nothing Set iConf = Nothing Set CDOMail = Nothing %> |
이상입니다.