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

admin

Technique  
' f/ q: [3 ~" `4 hUse the CCO.Email object to send email messages.
C#  
2 {( [! H. C( }* J" x! mSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
% B/ G" L, y+ E+ s; K: f0 nemail.From = fromEmail;
email.To = toEmail;
email.Subject = subject;
email.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
. x3 F, E5 O+ Y& y0 O& o/ r
7 r+ `) t2 ^& A5 v9 S// Alternatively use the SendEmailToIdentity
8 j: y) r8 [  }( E// The first argument is the Identity name to send the email message.
: @9 J( ?9 u3 P' A// The second argument is the subject text.
+ }' X- ~* s5 c  n5 g0 g, N& X3 W// 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
$ D5 {9 v# h  s: C5 r% W( a//   that User Item must have an email address as well.
; n' ~' W; w" d$ [" _: C5 ~CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
' c& v0 u! y* p' Z9 m& m5 zreturn this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
* Y6 b1 }+ P, C  gemail.To = toEmail
+ r" d2 R* r# a7 cemail.Subject = subject
- j9 b7 u# M. ]5 |  M  Aemail.Body = body
CCO.Email.setup_smtpmail_server_and_send(email)

' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
' R$ t$ p9 ~6 K! z+ s& a# d' The second argument Is the subject text.
2 p  p, J3 O- w5 N* x" U% i( ?' The third argument Is the email body text.
' g: l$ N7 e8 z+ f: @+ x% \' The last argument Is a user login name As the sender And
" X- i1 l: ~" j3 N) J% O'   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)
& s  J  i/ T) S, n+ |7 Q1 ]8 L
1 v5 D! r+ B5 p: z% c+ N0 t