SetSubject

Descrizione

Imposta l'oggetto del messaggio e-mail.

Richiamare questo metodo una volta per impostare il testo per l'oggetto. Le chiamate successive a questo metodo sostituiscono l'oggetto esistente con una nuova stringa.

Sintassi

VBScript

MailMsg.SetSubject subjectText 

Perl

$MailMsg->SetSubject(subjectText); 
Identificativo
Descrizione
MailMsg
Un oggetto Mail Message, che rappresenta il messaggio di posta da inviare.
subjectText
Una stringa che contiene il testo per l'oggetto da aggiungere al messaggio.
Valore di ritorno
Nessuno.

Esempi

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); 

Feedback