cc 受信者の電子メール アドレスをメール メッセージに追加します。
cc リストに追加する各電子メール アドレスに対して一度、このメソッドを呼び出します。このリストに追加した各個人が、電子メール メッセージのコピーを受信します。cc リスト上のアドレスは、電子メール メッセージのヘッダーに表示されます。
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);