Gunakan komponen EasyMailObject untuk memproses kode sumber surat pertukaran di ASP --- file dipanggil saat menghapus mail (mail_prc.asp)
< %@ Bahasa = VBScript %>
<%
'**************************************
'File ini dipanggil saat menghapus email
'Penulis: Awayeah
'Email: [email protected]
'**************************************
Dim CC, CC1, SEP, DD
'Dapatkan jumlah total email
msgcount = sesi ("msgcount")
sep = ","
untuk i = 1 ke msgcount
dd = "c"+cstr (i)
msgid = cstr (request.form (dd))
Jika msgid = "" lalu
CC1 = CC1+MSGID
kalau tidak
CC1 = CC1+MSGID+SEP
akhiri jika
Berikutnya
jika len (cc1) = 0 lalu
Response.redirect "maillist1.asp"
akhiri jika
CC1 = Kiri (CC1, Len (CC1) -1)
redup arr
arr = split (cc1, ",")
Set Pop3 = CreateObject ("EasyMail.pop3.5")
pop3.account = sesi ("Straccount")
pop3.password = sesi ("strpassword")
Pop3.mailserver = "192.9.200.89"
Pop3.licensey = "AWA/S19I500R1AX30C0R3100"
x = pop3.connect ()
untuk i = 0 ke ubund (arr)
arr (i) = clng (arr (i))
y = pop3.downloadHeaders
'Hapus email
x = pop3.deletesinglemessage (arr (i))
Jika x <> 0 lalu
'Response.write "<p align = center> <br> <br> Terjadi kesalahan saat menghapus email (" + cstr (x) + "). Silakan hubungi administrator. <br> <br>"
'Response.write "<a href =' maillist1.asp '> return </a> </p>"
Pop3.disconnect
Respons.end
Kalau tidak
Pesan 'Response.write "berhasil dihapus."
'Response.write ""
'Pop3.disconnect
Akhiri jika
Berikutnya
Pop3.disconnect
Response.redirect "maillist1.asp"
%>
<Html>
<head>
<Meta name = "generator" content = "Microsoft Visual Studio 6.0">
</head>
<body>
</body>
</html>