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

admin

Technique  
* J8 R" G+ N9 ^* V5 ~1 C$ PUse the CCO.Email object to send email messages.
" H& z: v: B' ?. A8 S% _. sC#  
' ]+ q$ ]8 Z7 M+ I& |2 USystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
. p* j* s" n1 `0 F; l; a2 Zemail.To = toEmail;
email.Subject = subject;
7 @. w- X9 C' f3 d, lemail.Body = body;
! @  Q. s( M1 Q. F/ X" o2 Y- S3 sCCO.Email.setup_smtpmail_server_and_send(email);
& I* q, S' n* Q2 x7 |% a
// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
// The second argument is the subject text.
- F/ b7 t# c0 R; c% F+ N// The third argument is the email body text.
- W8 E4 M! {5 n6 S( h; u9 Y5 W// The last argument is a user login name as the sender and
% z* P  l% w' p$ v//   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);
. S$ y& H" |# U8 ereturn this.newInnovator().newResult("ok");
  VB.Net  
3 X2 y3 i3 }# z* C& o$ w* jDim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
2 ]& S1 }- b' }2 v, kemail.To = toEmail
7 u. T5 ^+ {5 z6 |email.Subject = subject
email.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.
8 p8 S$ V  G7 w6 p6 I! o- B' The second argument Is the subject text.
' The third argument Is the email body text.
. Y: ]" n# x$ P' K( L1 J7 {' The last argument Is a user login name As the sender And
5 [" _+ O" A. ?( J' k'   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)
  N8 M" |  u( _, R/ ]% N