▣ WindowServer에서 ASP로 메일 보내기 함수 2
* 2003버젼부터 Cdonts를 지원하지 않으므로 Cdo for win 2000 으로 변경(2000, 2003둘다지원됨.)
' sub_SendMail(보내는이름, 보내는주소, 받는주소, BodyFormat, MailFormat, 제목, 내용)
Sub sub_SendMail(fromName, fromAddr, email, BodyFormat, MailFormat, title, content)
' 테스트 모드일때는 발송되지 안게함. 고객에게 메일이 발송되는것을 막기위함
If m_ServerMode = "test" Then
Exit Sub
End If
Dim objMail, objConfig, Flds
Set objMail = Server.CreateObject("CDO.Message")
' SMTP Configuration
set objConfig = createobject("CDO.Configuration")
Set Flds = objConfig.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
With objMail
Set.Configuration = objConfig
.From= fromName &"<"& fromAddr &">"
.To= email
.Subject= title
IF MailFormat = 0 Then ' Html형식일때
.HTMLBody = content
Else 'Text 형식일때
.TextBody = content
End IF
'.BodyPart.Charset = "euc-kr"
.BodyPart.Charset = "ks_c_5601-1987" '/// 한글을 위해선 꼭 넣어 주어야 합니다.
.HTMLBodyPart.Charset = "ks_c_5601-1987" '/// 한글을 위해선 꼭 넣어 주어야 합니다.
.Send
end with
Set Flds = Nothing
Set objConfig = Nothing
Set objMail = Nothing
End Sub
'Language > ASP' 카테고리의 다른 글
| 글로벌 사이트 해당언어 자동변환처리 Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") (0) | 2012.09.26 |
|---|---|
| WindowServer에서 ASP로 메일 보내기 함수 (0) | 2012.04.24 |
| ASP 덱스트업로드 이용한 파일저장 함수 (0) | 2012.04.24 |
| ASP 가로막대그래프 만드는 함수 (0) | 2012.04.24 |
| ASP 한글깨짐현상 처리하기 (0) | 2012.04.24 |
