Perl to Send Chinese Email

Perl script to send Chinese email.

Download Perl Programming Example Scripts

# file: SendChineseEmail.pl

# This source file was saved using the utf-8 character encoding.
use utf8;

# Perl script to send email with Chinese characters.

use chilkat;

$mailman = new chilkat::CkMailMan();
$mailman->UnlockComponent('anything for 30-day trial');

# Set the SMTP server hostname
$mailman->put_SmtpHost('smtp.comcast.net');

# If your SMTP server requires a login, set username/password
# $mailman->put_SmtpUsername('myUsername');
# $mailman->put_SmtpPassword('myPassword');

# Create a mail message using Chinese characters.
$email = new chilkat::CkEmail();
# Indicate that strings are passed using utf-8
$email->put_Utf8(true);
$email->put_Subject("我能吞下玻璃而不伤身体");
$email->put_Body("我能吞下玻璃而不伤身体");
$email->put_From('Chilkat Support <support@chilkatsoft.com>');

# Add some recipients
$email->AddTo('Matt','matt@chilkatsoft.com');
$email->AddTo('TagTooga','admin@tagtooga.com');
    
# Chilkat automatically recognizes the Chinese characters and chooses
# a typical charset for Chinese email: GB2312.
# Had the email contained characters not representable in GB2312 (such as Hebrew 
# characters) the component would have automatically chosen utf-8 as the encoding.

# The charset used throughout the entire email can be explicitly changed by setting
# the Charset property:
# $email->put_Charset("utf-8");
	
# The following line of code is not required for this example.
# It saves the MIME source of the email so it can be reviewed
# in a text editor.
$email->SaveEml("email.eml");
	
$success = $mailman->SendEmail($email);
if (! $success)
    {
	$mailman->SaveLastError('lastError.txt');	
    }