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

admin

Technique  
9 u8 e+ n, j+ I( J5 \Use the CCO.Email object to send email messages.
C#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
3 s+ W* S2 ~3 o- o% K# n9 Jemail.From = fromEmail;
email.To = toEmail;
email.Subject = subject;
; \! X- C9 \0 Jemail.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
& b' }" B0 u& f7 W7 q7 v1 p
// Alternatively use the SendEmailToIdentity
# d4 S) g1 x# P// The first argument is the Identity name to send the email message.
// The second argument is the subject text.
! r; |% D- f4 x# Y  }/ H// The third argument is the email body text.
// The last argument is a user login name as the sender and
5 J+ f  }; N2 @$ f8 M- Y9 A, C//   if blank will use the logged in user name and
8 o- b: U0 \" w* ~9 d" X6 T//   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");
! Y- r+ \6 Y; G* B  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
/ l- x) A6 @/ [email.To = toEmail
% \, z- p9 @# ~) ?+ Jemail.Subject = subject
email.Body = body
  Y; o" Z4 L; h: s7 z1 mCCO.Email.setup_smtpmail_server_and_send(email)
4 k, [# Q( u# g
! ^% U( w( D3 k" x  W* e' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
* C& a( A: h9 d. P$ ]3 @' The third argument Is the email body text.
' The last argument Is a user login name As the sender And
$ `5 c$ T$ d( _# h; H'   If blank will use the logged In user name And
* x8 A7 m/ U& ?, F) X' y, M'   that User Item must have an email address As well.
3 J3 B, ]  O3 k# t2 R& b; Y5 M) `CCO.Email.SendEmailToIdentity(identity,subject,body,user)