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

admin

Technique  
9 C5 K& Z& U& F9 ^& B4 y$ rUse the CCO.Email object to send email messages.
* C1 x2 i* H9 ?# LC#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
email.To = toEmail;
email.Subject = subject;
email.Body = body;
# e0 y2 }1 ?. e: O8 o! U  nCCO.Email.setup_smtpmail_server_and_send(email);
9 @# o$ e2 @8 o$ V9 q
// Alternatively use the SendEmailToIdentity
- T9 I: S% r8 d$ `" E, [, f8 y// 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
//   if blank will use the logged in user name and
//   that User Item must have an email address as well.
8 }1 h, ?- p5 Y4 ?. UCCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
return this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
# v2 y- u: t$ h- p2 A1 Kemail.From = fromEmail
( M+ s( B9 x' g6 ?  |$ J& X6 Pemail.To = toEmail
* @% B' o) l  c" kemail.Subject = subject
- P0 y6 D4 \. f0 g/ d0 nemail.Body = body
6 K2 p+ {: @7 A# b7 VCCO.Email.setup_smtpmail_server_and_send(email)
9 [5 `1 U6 a( D4 o& g
( ?4 O' n. N# T* C' Alternatively use the SendEmailToIdentity
% A, O3 j0 C  B3 o' The first argument Is the Identity name To send the email message.
* T' X0 i  w$ H0 ]- C7 _$ y3 ?: p' The second argument Is the subject text.
. r1 h; m. ~3 B' 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)