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

admin

Technique  
Use the CCO.Email object to send email messages.
0 @, l& ]6 k1 K7 c! Y! p9 xC#  
2 [; W# z. e3 [7 _% W, s' `7 sSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
' E  {0 V. P- c$ w0 G/ cemail.To = toEmail;
email.Subject = subject;
3 a2 X' f6 ~" @) B! ^email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
) R) v8 h" k1 @0 J4 d$ ~0 _
4 r3 l3 ^! @2 V) o$ m// Alternatively use the SendEmailToIdentity
0 Q* d& f* d$ K; V  u5 c// The first argument is the Identity name to send the email message.
* `8 G$ ^! q& Y2 C% D// The second argument is the subject text.
// The third argument is the email body text.
8 j& t8 g* ^) b9 b8 c  i// The last argument is a user login name as the sender and
# _: m% ~. C/ w4 [//   if blank will use the logged in user name and
//   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");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
email.To = toEmail
5 h3 p; s0 A1 T3 i* P0 L4 f! Memail.Subject = subject
" L* t) F5 S/ _; Q4 remail.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)

' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
# I1 X( O2 w) _. G6 t4 @' 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)

0 F- Q, B, z% G5 O( M1 w+ s! g1 c