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

admin

Technique  
3 E) V6 l2 L* r$ Q; rUse the CCO.Email object to send email messages.
8 u4 m: N4 W$ z1 e# R+ eC#  
7 a) O# `( ^$ G$ V! I2 a; S6 p6 FSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
9 W; z4 P. \8 D4 H$ @, v  J' jemail.To = toEmail;
email.Subject = subject;
- N' [/ j) X& n! O% x+ \9 ^email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);

// Alternatively use the SendEmailToIdentity
& |$ C0 B- A# Q- R4 U// The first argument is the Identity name to send the email message.
% \% J5 e0 R- x% r$ i* p& N  B// The second argument is the subject text.
// The third argument is the email body text.
" p" s5 h( Y$ `( N// 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.
/ O$ _# e- d# D3 W, ~2 J$ u" Y8 S( GCCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
return this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
1 ~/ K, g3 _: R2 E9 [email.To = toEmail
! Q& T- k. n3 Q; V- @; r  semail.Subject = subject
5 d2 }2 S9 K+ y- N7 i8 U& b, Z' |" Oemail.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)

, g/ j8 P7 y7 Y' p! |! ^' Alternatively use the SendEmailToIdentity
- `# \" \4 r  S' o& Y  j' The first argument Is the Identity name To send the email message.
6 C" u1 G" n+ {* m3 a! k' The second argument Is the subject text.
' The third argument Is the email body text.
- z% v, Q% ?, q* l' }' The last argument Is a user login name As the sender And
'   If blank will use the logged In user name And
5 L6 v! w8 Z  r/ {'   that User Item must have an email address As well.
) _" I4 w5 o( b/ @# [CCO.Email.SendEmailToIdentity(identity,subject,body,user)

& U9 S  t5 H5 j/ J