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

admin

Technique  
Use the CCO.Email object to send email messages.
" }' B& K* [8 n5 Z% h, sC#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
  P/ }3 u: x$ x) i# pemail.From = fromEmail;
" ], L( G. I7 p" g! [5 }email.To = toEmail;
email.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
( ~" p2 A5 @& l2 i6 k
// Alternatively use the SendEmailToIdentity
( G, R* z( O  h7 m9 D, p1 k// The first argument is the Identity name to send the email message.
* t) F+ N" U2 W// The second argument is the subject text.
6 \' C1 z" k: Y2 m# K8 z/ \" l// 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.
& e: I# ^3 Y. H3 v  r9 NCCO.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
9 Z: f! r4 m- e  l( H, @email.To = toEmail
$ R: ~0 u# e) l4 n6 u/ aemail.Subject = subject
email.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)
2 V' k+ n2 n9 p1 B* {) G. t) H% a
6 n4 l  s# Q1 I' U" U' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
6 E( ^6 Z. r! L1 n* M' The second argument Is the subject text.
" Y, O, y7 B4 l. o# r# J8 c' The third argument Is the email body text.
; s! a! k5 o0 D' {4 j' D: X' The last argument Is a user login name As the sender And
" _: K, x' u( g* s5 z& Z'   If blank will use the logged In user name And
'   that User Item must have an email address As well.
) W; j2 m8 o3 F# BCCO.Email.SendEmailToIdentity(identity,subject,body,user)