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

admin

Technique  
( _# @/ _/ p8 b' ?: A; ~Use the CCO.Email object to send email messages.
C#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
' K' v4 p' g/ \; {2 s: G& jemail.From = fromEmail;
/ i! o2 [3 `. M6 N" e5 |5 pemail.To = toEmail;
email.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
$ X  v0 h( @- c1 t+ A# M
8 f% i9 X; h) L9 @// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
: T' _% [1 ?2 `3 H2 b- `. V& ]% V// The second argument is the subject text.
+ R7 S- V5 o% M3 T( y3 U: ^// The third argument is the email body text.
0 f. Q2 s( d% P! g' R, d// 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(ref identity, ref subject, ref body, ref user);
% t0 e0 U! i& zreturn this.newInnovator().newResult("ok");
  VB.Net  
5 C0 \  Z2 U/ T, i# V% D8 A+ vDim email = New System.Web.Mail.MailMessage()
9 n8 y) u" u  F+ `& C8 `; \email.From = fromEmail
email.To = toEmail
5 y$ a: V  r8 w5 o6 F& E8 Z$ Q1 Semail.Subject = subject
1 n7 \6 X7 t, [* t% Y# Memail.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)

2 [  B% K; O' {8 t7 ^9 R( p( Z" H; P' Alternatively use the SendEmailToIdentity
( P9 k' p' x& P. P% a# z3 Y' The first argument Is the Identity name To send the email message.
) f, n$ Q$ L$ W, `( c: `7 w' The second argument Is the subject text.
' The third argument Is the email body text.
% q; D/ D# s5 T* ?$ _, q+ A' The last argument Is a user login name As the sender And
8 E0 {3 t, d/ T- ^'   If blank will use the logged In user name And
( F) I. S: r& h4 |& W0 n) c; c& Z'   that User Item must have an email address As well.
8 b8 ^+ ?; ?# }  |9 vCCO.Email.SendEmailToIdentity(identity,subject,body,user)