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

admin

Technique  
Use the CCO.Email object to send email messages.
# a% Z: o4 \$ ]8 [; x/ y: _C#  
: V% n' T3 ~* s& eSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
. T) d: Q2 h: r. Memail.To = toEmail;
email.Subject = subject;
) o; `! B  X: p& v2 aemail.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
( y; l. ~$ e/ P/ p
// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
# h& p9 d5 c. C' N1 [// The second argument is the subject text.
2 ]3 X( I% `& i// The third argument is the email body text.
+ f0 \1 e0 _& O2 T) q! \, `3 @// 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);
return this.newInnovator().newResult("ok");
$ N1 k2 c& N9 p6 e$ N  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
9 ]/ |+ G# F1 y# Q7 e: A% _email.From = fromEmail
9 L" i/ w3 e# d4 M; _email.To = toEmail
email.Subject = subject
email.Body = body
$ \- r; k6 E9 }/ r+ r5 uCCO.Email.setup_smtpmail_server_and_send(email)
& J+ \" s8 w# n
1 S2 I( ~, m; B- }1 z- B' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
' j( W3 o. n( ^* \$ R' The second argument Is the subject text.
2 M( x8 W% R; I/ g0 q) {' 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
7 C5 @- q7 g7 ?9 o'   that User Item must have an email address As well.
$ H/ J) \/ y% q9 |2 O7 {' K- TCCO.Email.SendEmailToIdentity(identity,subject,body,user)

4 {5 T: u2 D- ?9 y' t6 S' y6 C9 ^! M. S