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

admin

Technique  
  I; d' `' {7 t  b! ]- UUse the CCO.Email object to send email messages.
7 l8 [8 m" S, _& BC#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
6 H( N0 I! T( r0 b: d' n7 V7 g3 }email.To = toEmail;
: ]3 _+ W: u# p9 Lemail.Subject = subject;
email.Body = body;
- z8 ^9 c9 T; `+ y$ d. uCCO.Email.setup_smtpmail_server_and_send(email);
; T) W  i+ a2 G2 \5 J5 B- H: }* A
// Alternatively use the SendEmailToIdentity
0 L! U% V# @4 T6 v! W; j* s1 r// The first argument is the Identity name to send the email message.
$ ?' `; z' H+ z// 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
. h1 C' u" x; n6 z  B" [1 F3 p* W//   if blank will use the logged in user name and
//   that User Item must have an email address as well.
% }; R  t) k" w4 V  e+ BCCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
return this.newInnovator().newResult("ok");
0 U* v3 E. s1 a- I! x- A  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
( w8 v( t' E. E5 pemail.To = toEmail
email.Subject = subject
$ Y8 T2 ^& x" I+ N# h/ Iemail.Body = body
* R0 a0 p5 N% C0 Q, J" W& `8 R# k; FCCO.Email.setup_smtpmail_server_and_send(email)

! O8 f) m5 w6 e' Alternatively use the SendEmailToIdentity
7 k' }' `8 m- X" F* g& u! A0 {' The first argument Is the Identity name To send the email message.
' p' \0 I5 v1 o  Z' The second argument Is the subject text.
% X0 p; H0 O# r" Q' 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.
7 U' m$ x9 K) }CCO.Email.SendEmailToIdentity(identity,subject,body,user)

; @% i) P( a* g* L7 b: F9 ~& ?