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

admin

Technique  
Use the CCO.Email object to send email messages.
C#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
, Z) c4 a5 }/ e( q8 kemail.From = fromEmail;
. S- X& [' t+ R& ~3 H7 [- Femail.To = toEmail;
email.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);

1 i& U. B7 H5 h$ a$ x// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
1 B1 P  a1 V8 m! b1 ?' u: T// 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
5 y( Y# n% b& B4 q+ n7 W# X0 I//   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);
+ A: }# G$ W$ \1 b- G" ^) C9 e. Preturn this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
email.To = toEmail
2 N. T; ^! E7 ?" _4 Pemail.Subject = subject
email.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)

% E+ P/ ^4 [9 u9 s' Alternatively use the SendEmailToIdentity
1 a9 q& T$ \' W" j$ P' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
. o$ ^( `0 U+ a' 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
- w- T+ K& }" U: z/ W'   that User Item must have an email address As well.
% R! T( k8 ]# p1 xCCO.Email.SendEmailToIdentity(identity,subject,body,user)