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

admin

Technique  
4 }) H' I8 Q, ?& w6 B0 z/ P( FUse the CCO.Email object to send email messages.
" P9 q& r6 D# l  I- M/ D% sC#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
email.To = toEmail;
$ O$ g9 s- H  s  z. aemail.Subject = subject;
$ j4 V' a7 e# Zemail.Body = body;
% M0 n" c% E4 E9 b, @% HCCO.Email.setup_smtpmail_server_and_send(email);

// Alternatively use the SendEmailToIdentity
. @5 q; F& _4 x// The first argument is the Identity name to send the email message.
( X9 i: e) n4 B, A+ g! G) L// The second argument is the subject text.
1 F: z0 I$ Y. d, S6 Q// The third argument is the email body text.
4 z( b& Q( a! _3 B1 N( s4 y' q// The last argument is a user login name as the sender and
//   if blank will use the logged in user name and
) ~7 ~) [! X7 }: \0 ]//   that User Item must have an email address as well.
CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
$ ^4 Q$ ?; \/ L) Y: @return this.newInnovator().newResult("ok");
7 }- D9 Y5 x! P  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
email.To = toEmail
email.Subject = subject
. h3 T+ y7 C1 k) x* Temail.Body = body
5 S, a( K( A2 [1 X5 h: P4 x# TCCO.Email.setup_smtpmail_server_and_send(email)
! I- Z$ J" \& T) {2 c* b& P5 }
9 S# ?, w, q1 ?* O0 Y0 v4 y0 S% o0 w  |' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
" r' u. z4 h8 M, R, M( c' The third argument Is the email body text.
' \8 O- U, A3 D) j; h' The last argument Is a user login name As the sender And
'   If blank will use the logged In user name And
0 J; |2 z7 M+ C& M6 L% a* B'   that User Item must have an email address As well.
) D- `- H7 W4 j6 ?; i5 SCCO.Email.SendEmailToIdentity(identity,subject,body,user)

( N% G8 y( s+ t/ F