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

admin

Technique  
Use the CCO.Email object to send email messages.
" y4 u# P) W/ C6 ~) |2 qC#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
& i% L7 M9 r' xemail.From = fromEmail;
email.To = toEmail;
email.Subject = subject;
! r$ y+ v7 F! u+ X- m# e" S3 N1 memail.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);

: V5 s7 S( k- C9 c$ \" ^5 O4 l// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
; a) S+ M2 |! O+ ~// 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
% B% M6 C& Y  k0 d3 T  c- S2 y//   that User Item must have an email address as well.
8 j9 i2 a  O( t# FCCO.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
email.To = toEmail
email.Subject = subject
! \) t6 q7 k" N( _. t9 q$ B$ Jemail.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)
( b+ w0 `% x' Q1 h
' Alternatively use the SendEmailToIdentity
' 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.
% V" d5 X" q0 g# \9 T2 z' The last argument Is a user login name As the sender And
' D* ^1 ]: [9 V# R+ [! ?; Y'   If blank will use the logged In user name And
'   that User Item must have an email address As well.
CCO.Email.SendEmailToIdentity(identity,subject,body,user)
$ K' i, z/ ^3 j0 a$ `3 V7 P