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

admin

Technique  
: P& j6 Q% I; q, T* ?7 uUse the CCO.Email object to send email messages.
C#  
& F7 }# x" ?5 XSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
email.To = toEmail;
email.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
/ h# y9 G, |! \: O& J" ^
! {! ]. T9 n0 L: M& R  w' ?" Y5 ?// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
// The second argument is the subject text.
& u4 Z1 J$ X- S: `/ Y% u// 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(ref identity, ref subject, ref body, ref user);
& o' o7 }( _0 S8 @4 w' treturn this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
# S# D/ x: l7 i' e3 s0 Vemail.From = fromEmail
; N3 P( @7 L* ?email.To = toEmail
) j' s5 Q. ?' H1 I, iemail.Subject = subject
email.Body = body
1 \! l+ E; N. K: F- nCCO.Email.setup_smtpmail_server_and_send(email)

+ _2 D  a* ~& k) j6 m' Alternatively use the SendEmailToIdentity
, w# \* F: O6 E% C9 e3 U+ y' The first argument Is the Identity name To send the email message.
2 h3 S( U2 P3 _* }8 @5 z8 Q' The second argument Is the subject text.
' O0 e+ Z- h; w  q' The third argument Is the email body text.
' The last argument Is a user login name As the sender And
2 o* H! L) D% e# ?9 M'   If blank will use the logged In user name And
3 F6 ^4 |' }3 x( u'   that User Item must have an email address As well.
  A' }* }( Z0 T+ y- Z% ]CCO.Email.SendEmailToIdentity(identity,subject,body,user)

7 h$ J+ i, |& s, g  c% B