Deliver

설명

메일 메시지를 전달합니다.

이 메소드를 호출한 뒤에는 전송된 전자 우편 메시지에 영향을 주지 않고 오브젝트를 변경할 수 있습니다.

구문

VBScript

MailMsg.Deliver 

Perl

$MailMsg->Deliver(); 
ID
설명
MailMsg
전송할 메일 메시지를 나타내는 Mail Message 오브젝트입니다.
Return value
배달 성공 또는 실패를 나타내는 Long을 리턴합니다. 1의 값은 메시지를 성공적으로 보냈음을 나타냅니다. 0의 값은 메시지를 배달하지 못했음을 나타냅니다.

예제

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


피드백