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

admin

Technique  
4 P% k) O, q* g; l+ O3 E! [Use the CCO.Email object to send email messages.
C#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
& L2 k  A( G( H, Aemail.From = fromEmail;
email.To = toEmail;
  p4 f9 A- Y8 G0 O7 F6 p' ~$ `0 c5 Aemail.Subject = subject;
email.Body = body;
  U) O7 {  J8 J; CCCO.Email.setup_smtpmail_server_and_send(email);
" P  @( B3 K. S
# Q' b7 I4 W" U# m; W* {// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
* |. s8 E8 A! w! F( [// 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
. y$ r* ^( I+ }4 E  V3 }/ P" o//   that User Item must have an email address as well.
CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
return this.newInnovator().newResult("ok");
2 p' j- D; |4 {8 o7 s5 {0 @  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
8 K" l/ i" c; K% B) F+ d1 `email.From = fromEmail
email.To = toEmail
2 l4 z) D- p: Q+ S3 P, eemail.Subject = subject
email.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)
0 M% e8 T1 V0 ]1 K
' Alternatively use the SendEmailToIdentity
1 R! i4 ]$ @5 V$ c- |/ [3 r4 M4 W( x' 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.
' The last argument Is a user login name As the sender And
7 l; ?, S* R; i1 l5 U% r6 x'   If blank will use the logged In user name And
'   that User Item must have an email address As well.
9 V) }" ?  b! f% J, T& sCCO.Email.SendEmailToIdentity(identity,subject,body,user)

/ s9 s$ p2 U/ R) k