▣ WindowServer에서 ASP로 메일 보내기 함수
Public Function SendMail(strSenderAdd , strReceiverAdd, strSubject , strMailBody)
SendMail = False
Dim sFrom, sTo, objMail, MailConfig
sFrom = strSenderAdd ' 보내는사람
sTo = strReceiverAdd ' 받는사람
Set objMail = Server.CreateObject("CDO.Message") ' CDO 2.0(메일 보내기 컴포넌트 개체 생성)
Set MailConfig = objMail.Configuration
With MailConfig.Fields
' 1 : 로컬 SMTP) / 2 : 외부 SMTP)
.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
' Pickup 디렉토리 설정
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\Inetpub\mailroot\Pickup"
' 호스트설정
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
' SMTP Port
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' 연결시간
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Update
End With
Set MailConfig=Nothing
objMail.From = sFrom ' 메일을 보내는 사람의 이메일 주소
objMail.To = sTo ' 메일을 받는 사람의 이메일주소(여러사람일 경우는 ; 표시로 구분)
objMail.Subject = strSubject ' 메일 제목
objMail.HTMLBody = strMailBody
Set objMail = Nothing
If Not Err Then
SendMail = True
Else
SendMail = False
End If
End Function
'Language > ASP' 카테고리의 다른 글
| 글로벌 사이트 해당언어 자동변환처리 Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") (0) | 2012.09.26 |
|---|---|
| WindowServer에서 ASP로 메일 보내기 함수 2 (0) | 2012.04.24 |
| ASP 덱스트업로드 이용한 파일저장 함수 (0) | 2012.04.24 |
| ASP 가로막대그래프 만드는 함수 (0) | 2012.04.24 |
| ASP 한글깨짐현상 처리하기 (0) | 2012.04.24 |
