EasyMailObject 구성 요소를 사용하여 ASP에서 Exchange Mail 소스 코드를 처리합니다.
< %@ language = vbscript %>
<%
'**************************************
'이 파일은 이메일을 삭제할 때 호출됩니다
'저자 : 멀리
'이메일 : [email protected]
'**************************************
DIM CC, CC1, SEP, DD
'총 이메일 수를 얻으십시오
msgcount = 세션 ( "msgcount")
sep = ","
i = 1에서 msgcount의 경우
DD = "C"+CSTR (I)
msgid = cstr (request.form (dd))
msgid = ""인 경우
CC1 = CC1+MSGID
또 다른
CC1 = CC1+MSGID+SEP
끝 If
다음
LEN (CC1) = 0이면
Response.redirect "Maillist1.asp"
끝 If
CC1 = 왼쪽 (CC1, LEN (CC1) -1)
희미한 arr
arr = split (cc1, ",")
set pop3 = createobject ( "easymail.pop3.5")
pop3.account = 세션 ( "straccount")
pop3.password = 세션 ( "strpassword")
pop3.mailserver = "192.9.200.89"
pop3.licensekey = "awa/s19i500r1ax30c0r3100"
x = pop3.connect ()
i = 0에서 Ubund (ARR)의 경우
ARR (I) = CLNG (ARR (I))
y = pop3.download 헤드
'이메일을 삭제하십시오
x = pop3.deletesinglemessage (arr (i))
x <> 0이면
'response.write "<p align = center> <br> <br> 이메일을 삭제할 때 오류가 발생했습니다 (" + cstr (x) + ") 관리자에게 문의하십시오. <br> <br>"
'response.write "<a href ='maillist1.asp '> return </a> </p>"
pop3.disconnect
응답. 엔드
또 다른
'Response.write "메시지가 성공적으로 삭제되었습니다."
'Response.Write ""
'pop3.disconnect
끝 If
다음
pop3.disconnect
Response.redirect "Maillist1.asp"
%>
<html>
<헤드>
<meta name = "Generator"Content = "Microsoft Visual Studio 6.0">
</head>
<body>
</body>
</html>