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

admin

Technique  
Use the CCO.Email object to send email messages.
C#  
; U. \: I+ W# |. MSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
email.To = toEmail;
1 m* ?/ Y( g7 Gemail.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
$ g2 m$ k; {: S
// Alternatively use the SendEmailToIdentity
" E5 b! u2 [: r* e4 g// The first argument is the Identity name to send the email message.
// The second argument is the subject text.
& K7 h4 `( ]4 z// The third argument is the email body text.
* @" k7 y$ W* L// 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.
CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
0 w/ u& [: t# v- Yreturn this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
6 L. v) X, Y" v% V- {- Temail.From = fromEmail
email.To = toEmail
email.Subject = subject
) J6 i6 B- |) T# Cemail.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)

2 Q* Y1 G" Y9 |' Alternatively use the SendEmailToIdentity
$ |( w9 a- A' ~4 e. K, d' 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.
" C* w5 q/ C$ f! J; R' The last argument Is a user login name As the sender And
3 J: K% ^5 b3 X. D'   If blank will use the logged In user name And
'   that User Item must have an email address As well.
; ~% ?! z- R( Y1 cCCO.Email.SendEmailToIdentity(identity,subject,body,user)