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

admin

Technique  
Use the CCO.Email object to send email messages.
6 R+ |5 U+ ~$ U: L+ u, DC#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
/ W# ~0 `6 y* x: O% `6 \# hemail.From = fromEmail;
email.To = toEmail;
email.Subject = subject;
8 E! T6 C% t4 L1 eemail.Body = body;
( l0 N  O; W8 p! ]  Q+ M3 M0 kCCO.Email.setup_smtpmail_server_and_send(email);
, n4 s0 r: i6 `$ }+ S2 d3 [2 w4 @
// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
- S& r  p" {4 {7 y3 s' g// 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
; b, F2 R1 t7 S+ R# F7 z//   that User Item must have an email address as well.
CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
2 X( S+ w. O" r4 h* g& lreturn this.newInnovator().newResult("ok");
$ W- r# |" ~/ w: Y5 o  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
4 r& v! m% Z0 Q& z) t+ ^/ vemail.From = fromEmail
  o9 W6 K0 `( ^, Bemail.To = toEmail
& C3 Z3 x* M- H/ v! z) Semail.Subject = subject
email.Body = body
. V0 k. ~( h( d- CCCO.Email.setup_smtpmail_server_and_send(email)

' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
6 w: q/ y  a* E' The second argument Is the subject text.
* H5 `6 b7 b0 T6 _' The third argument Is the email body text.
' The last argument Is a user login name As the sender And
0 v  b3 p( ~' W, G7 @6 B'   If blank will use the logged In user name And
2 J6 b8 t' P3 s8 e'   that User Item must have an email address As well.
* O5 N- P* Q' zCCO.Email.SendEmailToIdentity(identity,subject,body,user)