EasyMailObject 구성 요소를 사용하여 Exchange Mail 소스 코드를 처리합니다 (5)

저자：Eve Cole 업데이트 시간：2025-03-19 08:16:01

EasyMailObject 구성 요소를 사용하여 ASP-Send Mail (P_Sendmail.asp)에서 Exchange Mail 소스 코드를 처리하십시오.

< %@ language = vbscript %>

'**************************************

'이 파일은 이메일을 보내는 데 사용됩니다

'저자 : 멀리

'이메일 : [email protected]

'**************************************

if session ( "straccount") = ""또는 session ( "strpassword") = ""그러면

응답. 엔드

끝 If

<html>

<헤드>

</head>

<스타일>

<!-

a {텍스트 결정 : 없음}

</스타일>

<body>

<%set smtp = createobject ( "easymail.smtp.5")

smtp.licensekey = "awa/s19i500r1ax30c0r3100"

smtp.mailserver = "192.9.200.89"

smtp.subject = request.form ( "주제")

smtp.bodytext = request.form ( "bodytext")

smtp.from = request.form ( "from")

smtp.fromaddr = request.form ( "FromAddr")

smtp.addrecipient request.form ( "from"), request.form ( "recep1"), 1

'부착물을 추가하십시오

request.form ( "att") = ""인 경우

response.write ""

또 다른

x = smtp.adattachment (request.form ( "att"), 0)

x = 0이 아니라면

response.write "첨부 파일 삽입 오류 :" + cstr (x) + "관리자에게 문의하십시오."

끝 If

x = smtp.send

x = 0이면

'response.write ( " ")

'response.write ( "<font size =")

response.write " 이메일이 성공적으로 전송되었습니다! "

'세션 ( "sended") = "y"

또 다른

x = 7 또는 x = 5 인 경우

response.write " 이메일을 보내는 데 오류가 발생했습니다 ( " + cstr (x) +")

<입력 유형 = "버튼"value = "back">

<%response.end

또 다른

response.write " 이메일을 보낼 때 오류가 발생했습니다. "+ cstr (x)+" "%>

<입력 유형 = "버튼"value = "return"id = button1 name = button1>

<%response.end

끝 If

SMTP = 아무것도 설정하지 않습니다

<span style = "back

</body>

</html>