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

admin

Technique  
! N2 O8 i: w" n4 sUse the CCO.Email object to send email messages.
C#  
System.Web.Mail.MailMessage email = new System.Web.Mail.MailMessage();
email.From = fromEmail;
' K+ C+ G5 q( X6 q" J2 M9 Eemail.To = toEmail;
email.Subject = subject;
email.Body = body;
0 u0 D' n& C2 Q8 tCCO.Email.setup_smtpmail_server_and_send(email);
  G; l/ S2 c9 s% p4 R
// Alternatively use the SendEmailToIdentity
/ [' q  f% F! n, `* x4 v0 s// 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
  ]) z$ ?0 F: C2 b//   that User Item must have an email address as well.
CCO.Email.SendEmailToIdentity(ref identity, ref subject, ref body, ref user);
. ]) K! V* O7 W7 f0 B% _  I% jreturn this.newInnovator().newResult("ok");
  VB.Net  
Dim email = New System.Web.Mail.MailMessage()
email.From = fromEmail
email.To = toEmail
email.Subject = subject
+ L* ^6 G3 d( Wemail.Body = body
) t$ @' Z, K& F3 T( gCCO.Email.setup_smtpmail_server_and_send(email)

' Alternatively use the SendEmailToIdentity
' The first argument Is the Identity name To send the email message.
' The second argument Is the subject text.
0 N6 j% {; Y- j9 r- a+ ]/ H' The third argument Is the email body text.
9 f  L8 z( P% q0 r) Q# F$ t' 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.
0 ^1 c" r* ^0 F; y& uCCO.Email.SendEmailToIdentity(identity,subject,body,user)

% g; @, g2 J$ c