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

admin

Technique  
Use the CCO.Email object to send email messages.
C#  
3 P9 f' m( W8 I7 ~9 D6 hSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
, v! d. ~( X  g7 X4 j- Uemail.From = fromEmail;
; n! Y: s  ?7 ?" l; `# p$ \email.To = toEmail;
+ C# I8 D4 d8 t+ l9 u' v- Z+ hemail.Subject = subject;
3 M; g4 K/ @0 w9 _* ]email.Body = body;
# h, Y6 e2 o3 Z( CCCO.Email.setup_smtpmail_server_and_send(email);

9 g  u4 U1 e6 m' b( M// Alternatively use the SendEmailToIdentity
/ e1 A( O0 P7 V, }. W+ g! X// The first argument is the Identity name to send the email message.
' {* l, x* `# d7 k& v$ ^// The second argument is the subject text.
% S% j+ ]& s4 u4 x) j' R: F// The third argument is the email body text.
6 W( p+ e/ I# b- f8 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.
CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
/ C$ c- N) ~# @8 M( F! b$ `1 creturn this.newInnovator().newResult("ok");
  VB.Net  
1 o# ^( B  J  i& I/ @. m6 V" ]2 f% ?Dim email = New System.Web.Mail.MailMessage()
) J9 `# |' l, B* Bemail.From = fromEmail
email.To = toEmail
; o. D6 ~) G5 R/ {* P: a! jemail.Subject = subject
email.Body = body
$ ^  }/ o' x$ J0 C% BCCO.Email.setup_smtpmail_server_and_send(email)

, R1 c1 Q7 a1 ~$ C9 [' Alternatively use the SendEmailToIdentity
; h- X; x$ Y: K' Q/ l8 i7 W' The first argument Is the Identity name To send the email message.
2 C; b; h: d' ^. r2 G$ G' The second argument Is the subject text.
  {7 D) w& p  d' The third argument Is the email body text.
' The last argument Is a user login name As the sender And
'   If blank will use the logged In user name And
7 {1 S' V. ?& l# K'   that User Item must have an email address As well.
: R  a9 \2 S, v- \$ v0 OCCO.Email.SendEmailToIdentity(identity,subject,body,user)
* g2 c; k2 L5 j% L- r3 |- {
0 A$ I  D/ q' O8 q. y3 g, q4 B/ R; X