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 newAddress 

Perl

$MailMsg->AddTo(newAddress); 
Identificador
Descripción
MailMsg
Un objeto Mail Message que representa el mensaje de correo que se va a enviar.
newAddress
Un valor String que contiene la dirección de correo electrónico del destinatario.
Valor de retorno
Ninguno.

Ejemplos

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

Comentarios