Subversion Repositories DevTools

Rev

Rev 3873 | Rev 3907 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3873 Rev 3900
Line 620... Line 620...
620 
   LogError = SSlog &"|"& SSstr &"|"
 620 
   LogError = SSlog &"|"& SSstr &"|"
621 
End Function
 621 
End Function
622 
'-----------------------------------------------------------------------------------------------------------------------------
 622 
'-----------------------------------------------------------------------------------------------------------------------------
623 
Sub Send_Email ( SSfromName, SSfrom, SSto, SSsubject, SSbody, oAttachments )
 623 
Sub Send_Email ( SSfromName, SSfrom, SSto, SSsubject, SSbody, oAttachments )
624 
   Dim Mail, Keys, Key, canSend
 624 
   Dim Mail, Keys, Key, canSend
- 
 
 625 
'Response.write "<pre>Send_Email:" & SSfromName & " : "& SSfrom &" : "& SSto &" : "& SSsubject &" : "& SSbody
625 
 
 626 
 
626 
   canSend = FALSE
 627 
   canSend = FALSE
627 
   Set Mail = Server.CreateObject("Persits.MailSender")
 628 
   Set Mail = Server.CreateObject("Persits.MailSender")
628 
   Mail.Host = SMTP_HOST
 629 
   Mail.Host = MAIL_SERVER
629 
 
 - 
 
630 
   Mail.From = SSfrom
 630 
   Mail.From = SSfrom
631 
   Mail.FromName = SSfromName
 631 
   Mail.FromName = SSfromName
632 
 
 632 
 
633 
   ' Send TO:
 633 
   ' Send TO:
634 
   If IsObject( SSto ) Then
 634 
   If IsObject( SSto ) Then
Line 647... Line 647...
647 
   Mail.Subject = SSsubject
 647 
   Mail.Subject = SSsubject
648 
   Mail.IsHTML = True
 648 
   Mail.IsHTML = True
649 
   Mail.Body = SSbody
 649 
   Mail.Body = SSbody
650 
 
 650 
 
651 
   ' Add Attachments     DDDDDDD  Sash, It appears as if AddEmbededImage is premium functionality that costs money, can we just do a normal add attachment?
 651 
   ' Add Attachments     DDDDDDD  Sash, It appears as if AddEmbededImage is premium functionality that costs money, can we just do a normal add attachment?
652 
   'If IsObject( oAttachments ) Then
 652 
   If IsObject( oAttachments ) Then
653 
   '   Keys = oAttachments.Keys
 653 
      Keys = oAttachments.Keys
654 
   '   For Each Key In Keys
 654 
      For Each Key In Keys
655 
   '      Mail.AddEmbeddedImage rootPath & Key, oAttachments.Item( Key )
 655 
   '      Mail.AddEmbeddedImage rootPath & Key, oAttachments.Item( Key )
- 
 
 656 
          Mail.AddAttachment oAttachments.Item( Key )
656 
   '   Next
 657 
      Next
657 
   '
 658 
    Else
- 
 
 659 
          Mail.AddAttachment oAttachments
658 
   'End If
 660 
   End If
659 
 
 661 
 
660 
   On Error Resume Next
 662 
   On Error Resume Next
661 
   If canSend Then   Mail.Send   ' send message
 663 
   If canSend Then   Mail.Send   ' send message
662 
 
 664 
 
663 
End Sub
 665 
End Sub