WindowServer에서 ASP로 메일 보내기 함수

▣ 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

  objMail.send
  Set objMail = Nothing
  If Not Err Then
   SendMail = True
  Else
   SendMail = False
  End If
 End Function