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

admin

Technique  
4 }( n' @: Z. HUse the CCO.Email object to send email messages.
8 g. [8 N7 `9 V! }C#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
& v0 c$ t" F6 v, H- j' `email.From = fromEmail;
email.To = toEmail;
email.Subject = subject;
9 R4 x1 R+ z' X& M' G' ~email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
3 G% Y. W; M9 N* t6 E6 Q% M
% N/ S  M) h6 O$ i3 V6 T& _" O// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
// The second argument is the subject text.
9 S' j! p% z$ {& [* c* h// The third argument is the email body text.
4 q% i" ]) l; z4 x+ F7 N7 A; N; Y, N// 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.
0 r5 w) E1 j  _7 ]" nCCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
4 n* U% U: M+ J) q; g$ Y4 X8 Hreturn this.newInnovator().newResult("ok");
8 A7 K& X; T9 m' x4 W( ?  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
email.To = toEmail
email.Subject = subject
# R* V+ r- N9 A- a/ wemail.Body = body
. l3 k$ m* ~" U  ~% Z' H  xCCO.Email.setup_smtpmail_server_and_send(email)

) m; e1 ?% |, ~3 @1 u' Alternatively use the SendEmailToIdentity
- i8 F. k8 Q: V; c' The first argument Is the Identity name To send the email message.
4 j4 g8 _1 C# n! |+ |/ a' S6 B' 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
0 H5 T7 [. l8 h$ L7 {! M! U'   If blank will use the logged In user name And
'   that User Item must have an email address As well.
+ j8 x& _1 v7 e! CCCO.Email.SendEmailToIdentity(identity,subject,body,user)

/ h* T3 d  m3 ]% o0 i* F" I+ }6 q" q