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

admin

Technique  
Use the CCO.Email object to send email messages.
6 T/ C5 E: a: E- g" [: R) cC#  
' u5 h; d+ U9 i% M, [3 bSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
  ^, V' z+ [. w' ]email.From = fromEmail;
email.To = toEmail;
0 M: h" X2 E7 X/ Femail.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);

. `# T' D- `4 Z5 W9 y6 @// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
// The second argument is the subject text.
6 `& w6 _" {( \; z5 E// The third argument is the email body text.
$ m) x% m; A7 q% e2 `* _// The last argument is a user login name as the sender and
* a1 R8 Q. u. Z1 W( `//   if blank will use the logged in user name and
" R+ x. V5 h2 l/ ^//   that User Item must have an email address as well.
CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
! G/ C" D0 j8 A2 ]9 [return this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
1 K! A# F& g+ Memail.To = toEmail
" w, e- G& M. E8 z$ h$ Vemail.Subject = subject
email.Body = body
) Q+ a  ]; t- |4 A0 K  wCCO.Email.setup_smtpmail_server_and_send(email)

' Alternatively use the SendEmailToIdentity
: W+ R1 l. O( y8 x' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
3 t+ M) q6 m1 a2 p1 m# z. s' The third argument Is the email body text.
' The last argument Is a user login name As the sender And
3 L4 B. D/ P% S4 a; ]1 ]0 r3 {1 l! |'   If blank will use the logged In user name And
9 y/ _0 m# \) ]- c'   that User Item must have an email address As well.
2 c% s2 s1 U7 d6 U% L8 |CCO.Email.SendEmailToIdentity(identity,subject,body,user)
  w; s  j5 I, a0 Z; G4 e