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

admin

Technique  
Use the CCO.Email object to send email messages.
1 r$ R$ P& ?# C7 pC#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
) y4 v& a" U2 k$ J  p$ `7 {email.From = fromEmail;
! Q: J) Y# N( ~) f5 Q) M, ]email.To = toEmail;
email.Subject = subject;
6 O5 r' ]  j$ _, E3 c1 ^) F' zemail.Body = body;
CCO.Email.setup_smtpmail_server_and_send(email);
- `5 O- U  `5 N6 [6 H# Z4 e
// Alternatively use the SendEmailToIdentity
// The first argument is the Identity name to send the email message.
// The second argument is the subject text.
// 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
//   that User Item must have an email address as well.
CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
return this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
6 j1 u3 n# [3 Pemail.From = fromEmail
: w4 }( r3 g0 S; W$ h/ pemail.To = toEmail
- i1 W) t+ A$ N7 k( {9 r- l" h1 t4 Eemail.Subject = subject
email.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.
: r6 P, j6 X- V+ V! s- t$ P+ w' The second argument Is the subject text.
' The third argument Is the email body text.
( }9 }$ x/ C7 E; F* {% _2 J4 v' 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.
7 i$ y# F" C/ C" b, c* v5 Z* XCCO.Email.SendEmailToIdentity(identity,subject,body,user)
2 [0 F" H7 {1 M' |9 f) d