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

admin

Technique  
; |& X+ i2 ^$ u8 `# oUse the CCO.Email object to send email messages.
C#  
& t" w" f3 u$ W6 J0 @. O6 pSystem.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
; E. I+ O$ o, Q5 B4 G' l; Remail.From = fromEmail;
* U: }7 n! n5 J- C/ Eemail.To = toEmail;
3 o/ u1 p4 r0 I7 zemail.Subject = subject;
3 I& f: U) D% Femail.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
; g# r6 a: Y1 J$ u/ x; l" c1 V
// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
" `" @' T3 F1 y2 m( Z// The second argument is the subject text.
// The third argument is the email body text.
9 B: `- w0 H/ s+ G; q. p; Y( g/ j// The last argument is a user login name as the sender and
2 K' r5 O8 Z3 H//   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);
) b1 o% v4 y8 N* K# kreturn this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
. ?1 S; t0 f- X, U! l* Remail.To = toEmail
email.Subject = subject
email.Body = body
6 ]* m9 ~8 S; @/ ]+ }& I5 oCCO.Email.setup_smtpmail_server_and_send(email)

3 @# m8 \& n/ m9 d' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
; i- X1 y# @. b& U' 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
* s. Z- j7 `5 O) i4 T'   that User Item must have an email address As well.
CCO.Email.SendEmailToIdentity(identity,subject,body,user)
1 h( f8 A: ?7 C+ l: d! T