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

admin

Technique  
8 U$ @# G0 j# WUse the CCO.Email object to send email messages.
C#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
) v3 u+ Q% X$ b- demail.From = fromEmail;
0 L1 ?6 T8 _- L3 p# l4 Temail.To = toEmail;
8 ]" r- n/ n* S/ _2 k$ y3 ~0 bemail.Subject = subject;
* n$ A4 L, Z0 J9 Pemail.Body = body;
( M( R& |; f/ ~$ `/ gCCO.Email.setup_smtpmail_server_and_send(email);

// Alternatively use the SendEmailToIdentity
6 X$ Z" s( m0 c$ G( o: P0 N% N// The first argument is the Identity name to send the email message.
+ j% e# E7 W7 E( b* M# f) F// The second argument is the subject text.
! }' O+ u2 p+ u' O, B// The third argument is the email body text.
& U0 P* |# N+ W0 K3 U3 s6 S( F- _/ R// The last argument is a user login name as the sender and
  J0 ?; n8 A1 Q& v0 L$ V6 b//   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");
6 S" H0 I% v5 R6 }6 I  VB.Net  
: U9 _$ u+ S; t. A+ _9 J" _  ]6 \Dim 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)

# J$ e/ p/ |+ ?5 k- N! Z5 i/ l$ j' ?' i' Alternatively use the SendEmailToIdentity
* l/ k$ A+ R" `( m! Y' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
! Z# S; [9 ^% d' 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
% Z0 u# T/ K* _# d2 U'   that User Item must have an email address As well.
CCO.Email.SendEmailToIdentity(identity,subject,body,user)
0 Y/ y  e. O, u% v' F; ~6 K% ~