SetSubject

Descripción

Establece la línea de asunto del mensaje de correo electrónico.

Llame a este método una vez para establecer el texto para la línea de asunto. Las llamadas subsiguientes a este método reemplazan la línea de asunto existente pro la nueva serie.

Sintaxis

VBScript

MailMsg.SetSubject textoAsunto 

Perl

$MailMsg->SetSubject(textoAsunto); 
Identificador
Descripción
MailMsg
Un objeto Mail Message que representa el mensaje de correo que se va a enviar.
textoAsunto
Un valor String que contiene el texto del asunto que se va a añadir al mensaje.
Valor de retorno
Ninguno.

Ejemplos

VBScript

Dim OleMailMsg

' Si se utiliza GetUserEmail, se necesita Session e iniciar la sesión. Por ejemplo, 
' 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)

' Si se utiliza GetUserEmail, se debe iniciar la sesión en una base de datos.
msg_cc = "user_email_address"
' O bien: 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;

# Si se utiliza GetUserEmail, se necesita Session e iniciar la sesión. Por ejemplo, 
# my $sessionObj = CQSession::Build();
# $sessionObj->UserLogon( $loginname, $password, $dbName, "" );

my $mailmsg = CQMailMsg::Build();

# actualmente, no existe ningún método SetFrom para CQPerl

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

# Si se utiliza GetUserEmail, se debe iniciar la sesión en una base de datos.
$msg_cc = "user_email_address";
# O bien: $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); 


Comentarios