SetSubject

Description

Sets the subject line of the e-mail message.

Call this method once to set text for the subject line. Subsequent calls to this method replace the existing subject line with the new string.

Syntax

VBScript

MailMsg.SetSubject subjectText

Perl

$MailMsg->SetSubject(subjectText);

Identifier: Description
MailMsg: A Mail Message object, representing the mail message to be sent.
subjectText: A String containing the subject text to add to the message.
Return value: None.

Examples

VBScript

Dim OleMailMsg

' Session and logon needed if GetUserEmail is used. For example, 
' Dim sessionObj
' Set sessionObj = GetSession
' sessionObj.UserLogon loginname, password, dbName, AD_PRIVATE_SESSION, ""

Set OleMailMsg = CreateObject("PAINET.MAILMSG")

msg_from = "admin@example.com"
OleMailMsg.SetFrom(msg_from)

msg_to = "admin@example.com"
OleMailMsg.AddTo(msg_to)

' You must log in to a database session if GetUserEmail is used.
msg_cc = "user_email_address"
' Or this: msg_cc = sessionObj.GetUserEmail
OleMailMsg.AddCc(msg_cc)

msg_subject = "Hello"
OleMailMsg.SetSubject(msg_subject)

msg_body = "This message brought to you from cqole!\n"
OleMailMsg.SetBody(msg_body)

OleMailMsg.Deliver

Perl

use CQPerlExt;

# Session and logon needed if GetUserEmail is used. For example, 
# my $sessionObj = CQSession::Build();
# $sessionObj->UserLogon( $loginname, $password, $dbName, "" );

my $mailmsg = CQMailMsg::Build();

# there is currently no SetFrom method for CQPerl

$msg_to = 'admin@us.ibm.com';
$mailmsg->AddTo($msg_to);

# You must log in to a database session if GetUserEmail is used.
$msg_cc = "user_email_address";
# Or this: $msg_cc = $sessionObj->GetUserEmail();
$mailmsg->AddCc($msg_cc);

$msg_subject = "Hello";
$mailmsg->SetSubject($msg_subject);

$msg_body = "This message brought to you from cqperl!\n";
$mailmsg->SetBody($msg_body);

$mailmsg->Deliver();

CQMailMsg::Unbuild($mailmsg);
# CQSession::Unbuild($sessionObj);