메일 보내기] CDONTS.Newmail(Windows2000Server) -> CDO.Message(Windows2003Server)

시나리오

ASP 메일 보내기에 대하여 알아보자.

정보

[필수 셋팅]

IIS Server에 "기본 SMTP 가상 서버"를 설치 한다.

[Windows 2000Server]
Sub SendMail ( IP_send, IP_to, IP_subject, IP_body, fileFullPath, flag )

Dim SMail

Set SMail = Server.CreateObject("CDONTS.Newmail")

With SMail

      .From = IP_send

      .To = IP_to

      .Subject = IP_subject

      .body = IP_body     

      .BodyFormat = 0

      .MailFormat = 0

      If fileFullPath <> "" Then

      .attachFile fileFullPath,,1 'cdoEncodingBase64

      End If

      .Send

End With

    Set SMail = nothing
  End Sub

[Windows2003Server]
Sub SendMail ( IP_send, IP_to, IP_subject, IP_body, fileFullPath, flag )

Dim SMail

Set SMail = Server.CreateObject("CDONTS.Newmail")

With SMail

      .From = IP_send

      .To = IP_to

      .Subject = IP_subject

      .HtmlBody= IP_body     

If fileFullPath <> "" Then

      .attachFile fileFullPath,,1 'cdoEncodingBase64

End If

.Send

End With

    Set SMail = nothing
  End Sub

비고

보다 자세한 내용은 http://blog.naver.com/keypush/10000527198 참고.