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

admin

Technique  
6 q9 |0 B1 o' [$ S4 W/ J" V  U* o' l. M0 fUse the CCO.Email object to send email messages.
6 d! w5 S# q/ L8 B" o% tC#  
  ?0 D) e5 Z6 ~System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
1 `7 f0 |# Y' h- p& r( Nemail.From = fromEmail;
$ T( A2 v: R3 c; a1 l$ Demail.To = toEmail;
email.Subject = subject;
4 J3 C" \  m% d/ U! V5 v* Vemail.Body = body;
& `) V3 H. |4 c0 {% i- RCCO.Email.setup_smtpmail_server_and_send(email);
7 K. ^, j3 S0 P5 p3 }, ?: q, R
6 R, K8 t& e) t* {1 e// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
// The second argument is the subject text.
. S0 g0 u& P- h5 C. `: [" n// The third argument is the email body text.
1 I' I9 |0 j2 Y9 V3 m! S2 A' l// The last argument is a user login name as the sender and
. s# X! ~' [: F7 g//   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);
6 w. ~. L" I0 A) F. w; S7 [- }return this.newInnovator().newResult("ok");
  VB.Net  
2 m) x& v6 S% X1 p- p; C5 j" D3 MDim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
email.To = toEmail
email.Subject = subject
email.Body = body
3 o" X9 L- f5 iCCO.Email.setup_smtpmail_server_and_send(email)
- ?8 L0 O3 ]  O3 h
3 r/ d0 }2 U$ P. G1 f6 a' Alternatively use the SendEmailToIdentity
5 G, N! v% O8 `' L3 r6 ?' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
, b; L# R% E$ ^' The third argument Is the email body text.
2 Z  C" X$ W8 \. o, \! V' The last argument Is a user login name As the sender And
2 ]9 ]+ [+ ~* B'   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)

6 S' t* J" P3 ~7 Q+ P. E  O) y