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

admin

Technique  
# F& f' z" J5 t* v0 F: `/ uUse the CCO.Email object to send email messages.
% {1 Q) @3 B* eC#  
- ]4 W+ A8 h- q) X' ^System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
% M6 T; ?6 ?8 p3 u8 xemail.From = fromEmail;
email.To = toEmail;
& n+ B! d# {3 Y; @7 b/ kemail.Subject = subject;
email.Body = body;
3 B: q% g# X6 Y+ W8 \, _CCO.Email.setup_smtpmail_server_and_send(email);
( f1 o  @* P( U3 _
// Alternatively use the SendEmailToIdentity
( B6 C" a+ o1 l' _- k! Q0 w// 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
//   if blank will use the logged in user name and
. h  q! M3 g3 \3 k3 w$ K" g# n9 R! ]//   that User Item must have an email address as well.
7 O. B* z. n0 O8 [' E, \* v3 U* OCCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
6 q, `! d" f/ [. P0 \- z# M  E$ B4 dreturn this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
' c# s* C5 M1 F6 o" Jemail.To = toEmail
email.Subject = subject
email.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)

" e* z, w4 C$ G  y' Alternatively use the SendEmailToIdentity
* ?9 E- y: D+ [8 O  b' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
" K( k$ O# E* Y) e8 ?$ R& u( U' The third argument Is the email body text.
2 Q( N, b& M+ w8 B) [1 \6 k' The last argument Is a user login name As the sender And
3 P7 Q  `8 @1 i) u( t; }3 e- d'   If blank will use the logged In user name And
; R6 M! p. W, A; h- u4 o7 j2 E'   that User Item must have an email address As well.
CCO.Email.SendEmailToIdentity(identity,subject,body,user)

$ a& A8 [# o$ \! T/ }; W, T