【Aras二次开发源码】服务器端发送电子邮件方法

admin

Technique  
3 l1 S: U) x' q: D7 HUse the CCO.Email object to send email messages.
C#  
0 i! P+ h) ?9 r. Q. {4 e: NSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
& V' Y$ ^; [& ]. oemail.To = toEmail;
& p* H6 D: Y$ K/ ?+ Y/ w- Semail.Subject = subject;
email.Body = body;
( D4 x. @8 B' l& ~% T% a: R5 y# yCCO.Email.setup_smtpmail_server_and_send(email);

9 h5 A; j' |( F; ]: s. @+ D// Alternatively use the SendEmailToIdentity
$ T9 ?! d7 v0 N// The first argument is the Identity name to send the email message.
- c/ M! h4 _4 l+ ]9 H// The second argument is the subject text.
// The third argument is the email body text.
: U; B: F; H) Q4 n/ x: o// The last argument is a user login name as the sender and
//   if blank will use the logged in user name and
//   that User Item must have an email address as well.
* o( Q5 z# S: SCCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
* |2 U! M7 I3 ?return this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
3 G1 j; T9 @0 W0 _% ]2 o6 N6 Pemail.From = fromEmail
email.To = toEmail
email.Subject = subject
email.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)

. s; z: p4 q' K& \6 {+ y' r9 C! z' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
( E- B( j4 u( C$ I* \$ C' The third argument Is the email body text.
. P! B9 Y6 N- \$ _' [# N' The last argument Is a user login name As the sender And
'   If blank will use the logged In user name And
'   that User Item must have an email address As well.
' y$ ?4 N8 g" m, d* iCCO.Email.SendEmailToIdentity(identity,subject,body,user)
7 W: C! S3 @3 a