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

admin

Technique  
5 N9 O2 G. P. n- R1 FUse the CCO.Email object to send email messages.
C#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
& K' K0 e- u) nemail.From = fromEmail;
9 }5 G. H6 f7 x: {  h! T2 n; Kemail.To = toEmail;
, t3 v/ E; C6 kemail.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
+ T3 P; `  z$ L2 l+ u' Y
// Alternatively use the SendEmailToIdentity
// 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
* W& @4 T& `: f" V//   if blank will use the logged in user name and
//   that User Item must have an email address as well.
* w& x8 E3 M# Q5 U" E; ACCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
return this.newInnovator().newResult("ok");
: V; I  q+ r) K+ y; E5 k8 [, `- s3 ^  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
email.To = toEmail
email.Subject = subject
email.Body = body
' V' H5 \! C9 D9 K& ?0 a6 {CCO.Email.setup_smtpmail_server_and_send(email)
' o) f: S- ^! ~) B. g* P/ g
' Alternatively use the SendEmailToIdentity
6 I5 X3 G+ V5 O9 _0 P' The first argument Is the Identity name To send the email message.
" ^1 V; U( C/ j% @  V" |' The second argument Is the subject text.
' The third argument Is the email body text.
2 Y/ P$ c, U# s$ r9 i9 @# O8 P' The last argument Is a user login name As the sender And
$ R" j6 P9 n8 O7 E: y, q: |3 r'   If blank will use the logged In user name And
' c6 _5 \# u& K3 k  I2 u) |2 K6 w'   that User Item must have an email address As well.
CCO.Email.SendEmailToIdentity(identity,subject,body,user)

9 T9 j; s  j  ]% ~" w$ {. M