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

admin

Technique  
3 {# }/ I) J8 v* H0 s/ |8 V, x4 q% VUse the CCO.Email object to send email messages.
C#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
; q) N4 C1 d( o* j* p& wemail.From = fromEmail;
email.To = toEmail;
email.Subject = subject;
8 I8 a$ a( \8 V) Z2 w  Eemail.Body = body;
2 W7 |! u$ S2 _. M) @; LCCO.Email.setup_smtpmail_server_and_send(email);

) P, v; F  q1 T$ G  `( L// Alternatively use the SendEmailToIdentity
* |' X( |: A6 v5 y( D// The first argument is the Identity name to send the email message.
  I8 x# R# d3 U. }; x! Y! @- z// The second argument is the subject text.
# R% `: l& N" }5 l1 A// The third argument is the email body text.
1 e8 l, U: R( a& v// 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);
return this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
6 [, t! W0 O* k8 X6 @* W  ?6 ~email.From = fromEmail
email.To = toEmail
1 Q* \  B- t. P8 demail.Subject = subject
- y: V& n0 f) Bemail.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)

# C+ r3 F3 j2 `4 {) a' Alternatively use the SendEmailToIdentity
, J' ?% u' b/ o( V  N' The first argument Is the Identity name To send the email message.
$ _! L& z: [9 _/ i- U. O0 {3 |' 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
'   If blank will use the logged In user name And
'   that User Item must have an email address As well.
CCO.Email.SendEmailToIdentity(identity,subject,body,user)