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

admin

Technique  
3 g# T! x& ^/ \Use the CCO.Email object to send email messages.
C#  
, }) _+ p/ }2 k7 w9 M/ iSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
( Z: x, A' J3 N4 n4 nemail.From = fromEmail;
$ U7 U4 Z$ \2 Q9 g  F/ G: Wemail.To = toEmail;
email.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);

// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
// The second argument is the subject text.
/ h; K. d# h3 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
1 r5 d/ U, N7 a( Y) n5 O//   that User Item must have an email address as well.
9 w+ `# _1 @: N- ECCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
8 [1 j4 y4 c8 i3 N  A+ Yreturn this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
5 M: D3 \. ~% o- q; U  D8 iemail.From = fromEmail
4 i" W1 G  y7 C- p1 Lemail.To = toEmail
6 `0 Z) x  v2 }email.Subject = subject
email.Body = body
+ S/ v' p# @7 Z! _9 h' yCCO.Email.setup_smtpmail_server_and_send(email)

  [2 [* j- {! r7 ^9 {, P: `1 X7 F' Alternatively use the SendEmailToIdentity
* V* I) ?/ D+ o. m6 }" \6 M' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
6 ?$ K+ F4 A3 @7 ^( ]' The third argument Is the email body text.
8 n, ^) t/ y8 K, A+ x- Y' The last argument Is a user login name As the sender And
3 T  a, K5 c* }'   If blank will use the logged In user name And
'   that User Item must have an email address As well.
1 r. o; m5 ]4 u- R& J5 [CCO.Email.SendEmailToIdentity(identity,subject,body,user)
( ~5 D8 t& c$ q( t- d