AddTo

Descripción

Añade la dirección de correo electrónico de un destinatario principal al mensaje de correo.

Llame a este método una vez para cada persona que desee añadir a la lista de destinatarios. Cada persona que añade a esta lista recibe una copia del mensaje de correo electrónico. Las direcciones de la lista de destinatarios aparecen en la cabecera del mensaje de correo electrónico.

Sintaxis

VBScript

MailMsg.AddTo nuevaDirección 

Perl

$MailMsg->AddTo(nuevaDirección); 
Identificador
Descripción
MailMsg
Un objeto Mail Message que representa el mensaje de correo que se va a enviar.
nuevaDirección
Un valor String que contiene la dirección de correo electrónico del destinatario.
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