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

admin

Technique  
Use the CCO.Email object to send email messages.
) i9 q- }3 N; f  P+ L) ~8 \% XC#  
* y8 V6 O7 m! a- n  SSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
email.To = toEmail;
email.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
" a, `! x3 D4 K9 j0 o; p
3 [+ \! m; G+ g8 B// Alternatively use the SendEmailToIdentity
8 ]. t' V$ D2 \4 b% s& p// The first argument is the Identity name to send the email message.
// The second argument is the subject text.
2 _1 T/ K! i2 G// The third argument is the email body text.
) s5 K9 K! c; y  s2 ^4 z# C// The last argument is a user login name as the sender and
//   if blank will use the logged in user name and
' D! x# J+ b; j9 w$ h# l5 h% B3 A//   that User Item must have an email address as well.
& [. j" ^2 H' 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
3 E" I$ b2 r; u  J! hemail.To = toEmail
email.Subject = subject
7 |0 P6 z! u% o. `" Z1 xemail.Body = body
0 R( y. e- `: w$ E$ P% e% TCCO.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.
* x1 W4 _/ s9 m- ^3 T5 z: 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
'   that User Item must have an email address As well.
CCO.Email.SendEmailToIdentity(identity,subject,body,user)