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

admin

Technique  
Use the CCO.Email object to send email messages.
4 Q% \$ z' o0 A5 l$ mC#  
! A- S. P- I+ u  W( H- q$ R" SSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
) k1 x( u: F* c" ^8 H6 s: u, U0 l! _% oemail.To = toEmail;
" O% X! Y5 t6 c4 {email.Subject = subject;
6 x" Y$ J- \# v" G7 Zemail.Body = body;
6 v" O0 c' i% q" d5 C" G; ^CCO.Email.setup_smtpmail_server_and_send(email);

// Alternatively use the SendEmailToIdentity
0 _* F* e. U! k) k% E5 Z, v- ~* q// The first argument is the Identity name to send the email message.
// The second argument is the subject text.
// The third argument is the email body text.
// The last argument is a user login name as the sender and
; ]% e" S) x, u9 ], U& ?//   if blank will use the logged in user name and
3 p, g( M- `  l$ u: U* ]//   that User Item must have an email address as well.
CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
7 k' O: d) ]3 p/ a8 A6 c& ureturn this.newInnovator().newResult("ok");
! W3 }+ j2 Q. x3 V' N! U  VB.Net  
$ v& y8 O/ c) Z' k! lDim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
( H* D2 ~0 c# q" Qemail.To = toEmail
email.Subject = subject
+ }2 K* c/ `9 m- E+ _email.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)
( h( _8 z" P1 T
' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
4 C' T0 c8 E% q( e6 b! _. u; Z1 _' The third argument Is the email body text.
' The last argument Is a user login name As the sender And
* A& T/ d' h  c2 \'   If blank will use the logged In user name And
& h1 f) t7 b: G'   that User Item must have an email address As well.
CCO.Email.SendEmailToIdentity(identity,subject,body,user)
* Z! |/ k* z: N. s+ F
. h2 l! f: g5 d! N( s