ASP Script to Send Japanese Mail

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Download Chilkat Email ActiveX for ASP and Applications

More ASP POP3 Examples

More ASP SMTP Examples

More ASP Email Examples

IMPORTANT: When working with utf-8 ASP and HTML files, make sure the file is saved with a utf-8 preamble.
More information about this can be found here: utf-8 ASP Scripts.

HTML Form for Sending Japanese Email

      
<%@ Language=VBScript %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html>

<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=utf-8">
<title>Send Japanese Email</title>
</head>

<body bgcolor="#FFFFFF">
<form method="post" action="SendJapanese.asp">
  <p>From 
    <input type="text" name="From" value="Chilkat Support <support@chilkatsoft.com>" size="80">
  </p>
  <p>To 
    <input type="text" name="Recipient" size="80" value="以上」とする <matt@chilkatsoft.com>">
  </p>
  <p>Subject 
    <input type="text" name="Subject" size="80" value="パートタイマーの厚生年金加入拡大へ">
  </p>
  <p>Body 
    <textarea name="HtmlBody" cols="80" rows="12">
<html>
<head>
<title>Sample Japanese HTML</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body bgcolor="#FFFFFF">
<h2>パートタイマーの厚生年金加入拡大へ </h2>
<p><font color="#6600CC" size="+1">パートタイマーの厚生年金加入拡大へ</font> </p>
</body>
</html>
</textarea>
  </p>
  <p>
    <input type="submit" name="Submit" value="Submit">
  </p>
</form>
</body>
</html>

ASP to Send Japanese Mail

<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=utf-8">
<TITLE>Send Japanese HTML Mail from ASP</TITLE>
</HEAD>
<BODY>

<%
	' Create a mailman
	set mailman = Server.CreateObject("Chilkat.MailMan")

	' Any unlock code begins the 30-day trial
	mailman.UnlockComponent "anything"

	' Tell the mailman where the SMTP server is located
	mailman.SmtpHost = "mail.earthlink.net"

	' Create an Email message
	set email = Server.CreateObject("Chilkat.Email")

	' Enter the recipient's information
	email.AddMultipleTo Request.Form("Recipient")

	' Enter the sender's information
	email.From = Request.Form("From")

	' Enter the email subject
	email.Subject = Request.Form("Subject")

	' Enter the email text
	email.SetHtmlBody Request.Form("HtmlBody")

	' Convert the email to Shift_JIS
	email.Charset = "Shift_JIS"
	
	' Sends the email with the patterns replaced.
	success = mailman.SendEmail(email)
	if (success = 1) then
		Response.write "Message sent successfully!<br><br>"
		Response.write "MESSAGE SOURCE:<br>"
		Response.write "<pre>"+email.GetMime()+"</pre>"
	else
		Response.write "FAILED!<br>"
		Response.write mailman.LastErrorHtml
	end if

	Set email = Nothing
	Set mailman = Nothing

%>

</BODY>
</HTML>