Añade la dirección de correo electrónico de un destinatario con copia al mensaje de correo.
Llame a este método una vez para cada dirección de correo electrónico que desee añadir a la lista de copias. Cada persona que añade a esta lista recibe una copia del mensaje de correo electrónico. Las direcciones de la lista de copias aparecen en la cabecera del mensaje de correo electrónico.
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);