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

admin

Technique  
. |# Q; P% K3 e; gUse the CCO.Email object to send email messages.
7 W$ }% T$ a4 |. Z% U+ BC#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
email.To = toEmail;
email.Subject = subject;
# y5 u0 P0 q' n( I2 y7 oemail.Body = body;
& b7 ^' }% v% ?: w6 H, l5 OCCO.Email.setup_smtpmail_server_and_send(email);
% Z: R; e" E' D, N9 x, v
* j3 D0 J9 j% J// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
* I% G& i/ k7 s  A/ B( x// The second argument is the subject text.
* g" O1 x- P' l  }) B& k// The third argument is the email body text.
) r8 W: N6 U" v4 d) X. A' a9 t* b// 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.
* G4 r! M$ W/ O( q# N( VCCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
8 J! N6 I8 E5 Xreturn this.newInnovator().newResult("ok");
  VB.Net  
" V& x' [4 }5 t3 e, zDim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
email.To = toEmail
# ]: l7 C2 [9 _2 _email.Subject = subject
email.Body = body
. v% z# o7 w6 s- Y# g& KCCO.Email.setup_smtpmail_server_and_send(email)
1 D7 W8 H+ @. }% |' O8 H0 a
& _6 D& g  T4 \2 n7 D5 w3 z9 S' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
, H: \9 i& F& V4 q, Z' The second argument Is the subject text.
& N, H. A! u  h9 C& B' The third argument Is the email body text.
" _) G# n- h; L- l8 e7 r  }' The last argument Is a user login name As the sender And
'   If blank will use the logged In user name And
" ]) ^( j( `5 Z" z" k'   that User Item must have an email address As well.
CCO.Email.SendEmailToIdentity(identity,subject,body,user)