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

admin

Technique  
Use the CCO.Email object to send email messages.
/ r3 b, `' E) e/ T+ TC#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
- q4 N: j  c# l2 t/ ?6 @email.To = toEmail;
email.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
$ {, q( b' p6 K6 h9 ]! P) {3 Z
// Alternatively use the SendEmailToIdentity
$ A# @* V8 I4 Y6 X4 X$ k// The first argument is the Identity name to send the email message.
* n5 b# U% u+ f; R. H+ _// The second argument is the subject text.
// The third argument is the email body text.
! O9 o# ]5 Z; D% K// The last argument is a user login name as the sender and
% k5 S# Z2 e9 k! W//   if blank will use the logged in user name and
//   that User Item must have an email address as well.
: M; B- \3 E, e1 O$ lCCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
return this.newInnovator().newResult("ok");
) s$ f0 o: f% t& I; Y2 j; C7 m  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
( @1 [/ i& o0 ^/ @' ~% f$ uemail.From = fromEmail
; v% s+ S/ f7 [# \# @1 D1 @email.To = toEmail
; c8 L- J2 N, E; R4 H  _+ lemail.Subject = subject
4 z* ?3 ?! H/ n/ p! Uemail.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)
/ u3 s  y# P# [
' Alternatively use the SendEmailToIdentity
2 v  m2 f  b3 ~6 O3 d5 Y; j' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
9 O3 F" S# O" G& m. }8 X" p0 n' The third argument Is the email body text.
' The last argument Is a user login name As the sender And
( z9 e( U) E. e( ?'   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)
4 C$ s6 s- R* u
* |7 I* I0 h# B/ f+ L3 j5 _