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

admin

Technique  
6 v8 ]! k8 H( f5 }) m4 M* Q- XUse the CCO.Email object to send email messages.
( o% I2 F4 D  a5 RC#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
( |8 P& ]- }& f3 b! t7 P2 \email.From = fromEmail;
7 e; M0 i/ q0 H" w1 ^- V3 ^  Qemail.To = toEmail;
% m3 }; X* D2 q" X3 t- aemail.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
6 c+ |4 u. t4 Q, S4 w
// Alternatively use the SendEmailToIdentity
( L/ E, _" ]+ Q// The first argument is the Identity name to send the email message.
// 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
& z$ G0 A/ R& e$ D8 m4 C//   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  
/ z+ Z- G& k4 UDim email = New System.Web.Mail.MailMessage()
( n3 U6 c+ m* J: Lemail.From = fromEmail
email.To = toEmail
email.Subject = subject
5 A% I6 b( }& \5 S7 B& ]email.Body = body
6 K2 n0 C' W- p( f0 u. mCCO.Email.setup_smtpmail_server_and_send(email)

( ?: A1 O) d: [2 t8 t/ B' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
3 B( Z5 f& R; m9 S0 ~0 V% e' The second argument Is the subject text.
3 V2 W0 u% o: c' The third argument Is the email body text.
" F, N0 M- z; Y' }4 Q' 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)
3 r" h* J& s8 b, C7 `