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

admin

Technique  
. U7 K8 N% m7 o; ?Use the CCO.Email object to send email messages.
7 L" P; A: Y2 E) {$ IC#  
$ v1 C- L, }* |$ \6 tSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
6 t9 }# P% G0 I1 k$ a; X1 |3 O7 qemail.To = toEmail;
email.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
6 r7 [1 S/ k0 I: F3 B* U" A% k
// Alternatively use the SendEmailToIdentity
7 G- H) ?. ^' T. N7 ^! |- l// 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
  T3 l! S. f. }* l) B- m//   that User Item must have an email address as well.
CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
: C& p) Q# w  u8 M: Lreturn this.newInnovator().newResult("ok");
7 l7 w1 C$ g6 \# o  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
email.To = toEmail
, a0 k8 y. e3 ^2 |email.Subject = subject
/ V9 I) A' _) L1 K+ eemail.Body = body
" ~3 z4 m4 a. |; k, j" P; O; Y  {6 XCCO.Email.setup_smtpmail_server_and_send(email)
0 J8 M- G9 \! d( c7 Z
" O$ Q6 f# T3 o4 O# @; a+ ^' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
7 x9 L! r) j2 v' The second argument Is the subject text.
' The third argument Is the email body text.
4 B/ {; o2 w1 L' c" w5 a' The last argument Is a user login name As the sender And
'   If blank will use the logged In user name And
: U9 S' T7 U; x" N6 v0 k'   that User Item must have an email address As well.
* e3 c- z) ~  D4 ^* i# r9 ACCO.Email.SendEmailToIdentity(identity,subject,body,user)
) }- p3 _& A! z. N1 T7 t
5 w4 d) [& N- Q; U  D8 j