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

admin

Technique  
Use the CCO.Email object to send email messages.
7 ?4 c- |2 P) OC#  
' Z" A3 q- x+ k( t- gSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
, M& G' |( j, A$ K2 \+ semail.From = fromEmail;
: O; ^( q9 c* x/ k3 L8 Temail.To = toEmail;
email.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
% o" Q) O# _1 A1 x* k$ ?. x
' i# J/ _0 Y4 T/ {$ U( W# q// Alternatively use the SendEmailToIdentity
$ n6 k# C! |& V! S: ]0 H! v// 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.
% m5 P/ f: s( i4 t( X( ]// The last argument is a user login name as the sender and
7 F- R- p- L( y# n; Z0 t( E( X//   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);
6 S! T3 `- v3 K3 Y3 Vreturn this.newInnovator().newResult("ok");
  VB.Net  
! V' j8 Z) w, g0 O6 O2 V/ {Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
0 X, V% v5 m2 E1 M! b6 t: _5 d1 B: Bemail.To = toEmail
- x- J) ]3 d8 Z# Jemail.Subject = subject
email.Body = body
0 N9 i2 I' u! Q( a2 `6 o) r, O, qCCO.Email.setup_smtpmail_server_and_send(email)
1 c6 L: J  g  ^
, J( [1 G5 @& s) ?' Alternatively use the SendEmailToIdentity
* L; b8 G& Y$ _' The first argument Is the Identity name To send the email message.
. H/ v4 U- E& v# ]' The second argument Is the subject text.
" e" t* C8 U$ X# U' The third argument Is the email body text.
# Y! s/ W7 G  l1 t" G. U' 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.
: I3 n5 n; h* u! lCCO.Email.SendEmailToIdentity(identity,subject,body,user)

3 H  x9 e# F. L  k0 W8 i