[윈도우2003] CDO.Message 메일발송 > 기술자료

• 목록

[윈도우2000] CDONTS.NewMail 이용 메일발송
[윈도우2003] CDO.Message 메일발송
[윈도우2008] CDO.Message 메일발송
[윈도우2012] CDO.Message 메일발송
 
 
 
< Windows 2003 ASP에서 메일 발송 하기 #1 >
 
<%
dim sMailFrom, sMailTo, sMailCc, sMailBcc, sMailSubject, sMailContent, sMailType, objMail, objConfig, Flds
 
' 입력받은 메일 발송 정보를 받아옵니다.
sMailFrom    = Request("FromEmail")   ' 보내는사람 (형식 : 표시할이름<메일주소>)
sMailTo      = Request("ToEmail")   '  '받는 사람 (형식 : 표시할이름<메일주소>)
sMailCc      = Request("txtCc")     '  "참조1<a@domain.com>;참조2<b@domain.com>"
sMailBcc     = Request("txtBcc")    '   "숨은참조1<c@domain.com>;숨은참조2<d@domain.com>"
sMailSubject = Request("Subject")   ' 메일 제목
sMailContent = Request("Content")   ' 메일 본문
sMailType    = Request("MailType")  ' 메일 형식 ( H: HTML / T: Text )
 
' 메일 객체 생성
set objMail = server.CreateObject("CDO.Message")
set objConfig = createobject("CDO.Configuration")
 
' SMTP Configuration
Set Flds = objConfig.Fields
 
With Flds
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  'SendUsing 값은 Windows 2000의 경우 1(cdoSendUsingPickup), 2003의 경우 2(cdoSendUsingPort)로 설정
  ' SMTP 발송 서버 설정 (이 부분은 꼭 필요한 부분 입니다.)
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
  .update
End With
 
With objMail
  .Configuration = objConfig
  .BodyPart.Charset = "사용중인_언어셋"  ' euc-kr 또는 utf-8
  .To = sMailTo  
  .From = sMailFrom
  .Cc = sMailCc
  .Bcc = sMailBcc
  .Subject = sMailSubject '제목
  .BodyPart.Charset = "ks_c_5601-1987"   '한글이 깨질때
 
  ' 내용
  If sMailType = "T" Then
    .TextBody = sMailContent 'Text 형식
  Else
    .HTMLBody = sMailContent 'Html 형식
  End If
 
  ' 원하는 첨부 파일 메일에 첨부
  '.AddAttachment "d:\000xxx\www\test.doc"
 
  .fields.update
  .Send
End With
 
set objMail = nothing
set objConfig = nothing
 
 
 
< Windows 2003 ASP에서 메일 발송 하기 #2 >
'/////////////////////////////////////////////////
' 메일발송 모듈 2003
'/////////////////////////////////////////////////
Public Function SendMail(strSenderName , strSenderAdd , strReceiverName , strReceiverAdd, strSubject , strMailBody, sFileName)

    strSenderName = "해피정닷컴"
    strSenderAdd = "메일@해피정닷컴"

    strReceiverName = "받는사람"
    strReceiverAdd = "받는메일@해피정닷컴"

    strSubject  = "메일제목"
    strMailBody = "메일내용"

    SendMail = False
    sFrom = ""&strSenderName&"" & "<"& strSenderAdd &">" ' 보내는사람
    sTo = ""&strReceiverName&"" & "<"& 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
    objMail.BodyPart.Charset = "ks_c_5601-1987"   ' utf-8 , euc-kr , ks_c_5601-1987 , iso-2022-jp , Shift-JIS
    objMail.HTMLBodyPart.Charset = "ks_c_5601-1987"   ' utf-8 , euc-kr , ks_c_5601-1987 , iso-2022-jp , Shift-JIS

    ' 첨부파일 존재시
    If Len(sFileName)> 3 Then
        objMail.AddAttachment sFileName
    End If
    objMail.send
    Set objMail = Nothing
    If Not Err Then
        SendMail = True
    End If
End Function

'FromName = "ヘピジョン"
'FromEmail = "메일@해피정.com"
'ToName = "고객님"
'ToEmail = "고객@해피정.com"
'Subject = "윈도우2003에서 메일보내기"
'Message = "ヘピジョンドットコムです。メールの送信テストを..."
rFilePath = ""

'bMsg = SendMail(strSenderName, FromEmail , ToName , ToEmail , Subject , Message, rFilePath)
bMsg = SendMail(strSenderName, strSenderAdd, strReceiverName, sTo, Subject, strMailBody, rFilePath)
 
 
 
참고사이트
https://www.happyjung.com/bbs/board.php?bo_table=lecture&wr_id=841
http://noogi.pe.kr/noogi/study/asp/smtp/smtp.htm
http://blog.naver.com/lost9725?Redirect=Log&logNo=60021516087
http://truepia.tistory.com/114
http://allonsy23.tistory.com/80
http://stackoverflow.com/questions/16862809/cdo-email-messaging-subject-special-character-error