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

admin

Technique  
0 y$ y: \4 Q/ `( [, }" @Use the CCO.Email object to send email messages.
C#  
% Q  w; \, g/ tSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
& @7 Y. g% E; d  b, {+ Semail.From = fromEmail;
email.To = toEmail;
email.Subject = subject;
% _- a! d9 d  l8 Kemail.Body = body;
$ ~$ s6 ~2 Y8 Q& m8 U; s3 W' kCCO.Email.setup_smtpmail_server_and_send(email);
' ^7 x: s, l0 _4 u( C' ?# y, S
// Alternatively use the SendEmailToIdentity
* R4 Q7 @& Q4 {3 @// 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.
9 m  d5 m3 n: K* q3 D// The last argument is a user login name as the sender and
, w; r, V1 t: Z//   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");
0 Z7 h" I$ C  _" x! w) {# U  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
+ @2 [+ ^/ e3 G; Gemail.To = toEmail
email.Subject = subject
email.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)
6 L; q. ]7 D4 r. O
! ?8 N, P. l+ N6 z, e' Alternatively use the SendEmailToIdentity
. z# G  @3 P" M$ T3 o+ _, Q* a' 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.
2 p" v) j) b1 G. f' The last argument Is a user login name As the sender And
/ G3 U! Y7 F" a+ Y; \- Q( e) b( U3 I'   If blank will use the logged In user name And
% a3 R/ o, l8 ^'   that User Item must have an email address As well.
CCO.Email.SendEmailToIdentity(identity,subject,body,user)