Gunakan komponen EasyMailObject untuk memproses kode sumber surat pertukaran di ASP-ajukan surat (p_sendmail.asp)
< %@ Bahasa = VBScript %>
<%
'**************************************
'File ini digunakan untuk mengirim email
'Penulis: Awayeah
'Email: [email protected]
'**************************************
jika sesi ("straccount") = "" atau sesi ("strpassword") = "" lalu
Respons.end
akhiri jika
%>
<Html>
<head>
<Meta name = "generator" content = "Microsoft Visual Studio 6.0">
</head>
<tyle>
<!-
A {Text-Decoration: None}
->
</tyle>
<body>
<%Set SMTP = CreateObject ("EasyMail.smtp.5")
Smtp.licensey = "AWA/S19I500R1AX30C0R3100"
Smtp.mailserver = "192.9.200.89"
Smtp.subject = request.form ("subjek")
Smtp.bodyText = request.Form ("BodyText")
Smtp.from = request.form ("from")
Smtp.fromaddr = request.form ("fromaddr")
Smtp.addrecipient request.form ("from"), request.form ("recequing1"), 1
'Tambahkan lampiran
Jika request.form ("att") = "" lalu
Response.write ""
kalau tidak
x = smtp.addattachment (request.form ("att"), 0)
Jika tidak x = 0 maka
Response.write "Masukkan kesalahan lampiran:" + cstr (x) + "Silakan hubungi administrator."
Akhiri jika
akhiri jika
x = smtp.send
Jika x = 0 lalu
'Response.write ("<p align = center> <br> <br>")
'Response.write ("<font size =")
Response.write "<p align = 'center'> <br> <br> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'latar belakang-warna: # 000080 '> Email telah berhasil dikirim! </font> </span> </b> "
'sesi ("dikirim") = "y"
Kalau tidak
Jika x = 7 atau x = 5 maka
Response.write "<br> <br> <p align = 'center'> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'latar belakang-warna: # 000080 '> Terjadi kesalahan dalam mengirim email (" + cstr (x) +").
<br> <br> <input type = "tombol" value = "back">
<%Response.end
kalau tidak
Response.write "<br> <br> <p align = 'center'> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'latar belakang-warna: # 000080 '> Terjadi kesalahan saat mengirim email: "+ cstr (x)+" </span> </font> </b> "%>
<br> <br> <input type = "tombol" value = "return" id = button1 name = button1>
<%Response.end
akhiri jika
Akhiri jika
Atur smtp = tidak ada
%>
<P align = "center"> <a href = "javascript: window.close ();">
<font face = "宋体" size = "5"> <b> <span style = "latar belakang: #ffff00"> return </span> </b> </font> </a> </p>
</body>
</html>