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

admin

Technique  
Use the CCO.Email object to send email messages.
C#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
9 r, ^4 V; p( [* r4 z+ S4 v$ o0 }email.From = fromEmail;
* {! f/ |- L+ O7 kemail.To = toEmail;
0 y5 [1 P% B. Uemail.Subject = subject;
7 Z) \- _- [- t. |, bemail.Body = body;
$ \: o, c- [, `! F+ CCCO.Email.setup_smtpmail_server_and_send(email);
+ \! `7 e5 U& r; S" @! G3 e
8 N& C0 v( p9 ?! b( F+ u6 Z// Alternatively use the SendEmailToIdentity
$ u1 M4 @, m4 e2 t" `// The first argument is the Identity name to send the email message.
" {7 _2 }$ W! ?  e; [( U# @// The second argument is the subject text.
$ n% L1 V, n' }+ c# o% a// The third argument is the email body text.
7 C6 u$ @) v% ]- j// The last argument is a user login name as the sender and
2 u) I' o, ^) P6 f+ n' T$ F//   if blank will use the logged in user name and
//   that User Item must have an email address as well.
( s  A, V9 {( Q+ n7 J8 ]CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
5 e+ v$ V& R$ l$ Q8 Hreturn this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
( F" l8 y- U2 T8 n' S4 Xemail.From = fromEmail
email.To = toEmail
4 k: m( c! s  K  yemail.Subject = subject
email.Body = body
5 j+ E. T3 L8 a* r! z& v" W: m; uCCO.Email.setup_smtpmail_server_and_send(email)
8 V% @6 h3 ~. O4 l; f; K
' Alternatively use the SendEmailToIdentity
0 U9 m$ K) }  {9 M' 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.
! l  L( W3 r2 B6 a, f6 x4 h' G' The last argument Is a user login name As the sender And
'   If blank will use the logged In user name And
- L2 s% Y6 D! e* [9 A$ p'   that User Item must have an email address As well.
CCO.Email.SendEmailToIdentity(identity,subject,body,user)
, Y7 g4 W' S( b# r( y  |
0 E2 a1 n) y$ C5 s/ @4 J$ G8 T, T