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

admin

Technique  
% ~5 @6 V6 X9 B# Q( FUse the CCO.Email object to send email messages.
C#  
$ K( |( W3 |- {; ZSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
3 c  J! ^$ i" Cemail.From = fromEmail;
, i/ c. p* V' ^5 C  Aemail.To = toEmail;
email.Subject = subject;
  C& g" ^) X0 W# Hemail.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);

" i7 ]6 B% Q: K0 H2 k6 s// Alternatively use the SendEmailToIdentity
* Y5 I; e$ A' L0 z// The first argument is the Identity name to send the email message.
2 |5 |5 \) q& m8 B// The second argument is the subject text.
// The third argument is the email body text.
0 W) C* E  {1 m: a// The last argument is a user login name as the sender and
4 ]4 g- z6 X8 E1 O+ k* ]//   if blank will use the logged in user name and
7 R0 f8 {) D& w//   that User Item must have an email address as well.
( `, _/ P) K$ C0 `CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
+ m1 N/ B3 t1 y. xreturn this.newInnovator().newResult("ok");
  VB.Net  
. ~4 p- ]$ F6 ?4 g+ k2 h, ^/ |+ m$ ]Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
email.To = toEmail
email.Subject = subject
7 B9 `) Z; P/ D. l6 s8 s7 [2 ~/ T  Semail.Body = body
. u& S" _5 ^/ K" C/ J" iCCO.Email.setup_smtpmail_server_and_send(email)
: J( M8 O. q9 W
; L9 w0 d; b# S+ L: E' |, n- `' Alternatively use the SendEmailToIdentity
% n* d% F7 j  k' The first argument Is the Identity name To send the email message.
" a5 g7 v# z. _) n' 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)
# J0 f$ ~) w* `. X7 ~0 J9 S