Subversion Repositories DevTools

Rev

Rev 3928 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3928 Rev 3998
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 
'Response.write "<pre>Send_Email:SSfromName:" & SSfromName
- 
 
 626 
'Response.write "<br>Send_Email:SSfrom:" & SSfrom
- 
 
 627 
'Response.write "<br>Send_Email:SSto:" & SSto
- 
 
 628 
'Response.write "<br>Send_Email:SSsubject:" & SSsubject
- 
 
 629 
'Response.write "<br>Send_Email:SSbody:" & SSbody
626 
 
 630 
 
627 
   canSend = FALSE
 631 
   canSend = FALSE
628 
   Set Mail = Server.CreateObject("Persits.MailSender")
 632 
   Set Mail = Server.CreateObject("Persits.MailSender")
629 
   Mail.Host = MAIL_SERVER
 633 
   Mail.Host = MAIL_SERVER
630 
   Mail.From = SSfrom
 634 
   Mail.From = SSfrom
631 
   Mail.FromName = SSfromName
 635 
   Mail.FromName = SSfromName
632 
 
 636 
 
633 
   ' Send TO:
 637 
   ' Send TO:
- 
 
 638 
   ' Handle a Dictionary of names
634 
   If IsObject( SSto ) Then
 639 
   If IsObject(SSto) AND (TypeName(SSto) <> "IOraField") Then
635 
      Keys = SSto.Keys
 640 
      Keys = SSto.Keys
636 
      For Each Key In Keys
 641 
      For Each Key In Keys
637 
         Mail.AddAddress Key, SSto.Item( Key )
 642 
         Mail.AddAddress Key, SSto.Item( Key )
638 
      Next
 643 
      Next
639 
 
 644 
 
Line 646... Line 651...
646 
 
 651 
 
647 
   Mail.Subject = SSsubject
 652 
   Mail.Subject = SSsubject
648 
   Mail.IsHTML = True
 653 
   Mail.IsHTML = True
649 
   Mail.Body = SSbody
 654 
   Mail.Body = SSbody
650 
 
 655 
 
- 
 
 656 
   If NOT IsEmpty(oAttachments) AND NOT IsNull(oAttachments) Then
- 
 
 657 
       ' Add Attachments     DDDDDDD  Sash,
651 
   ' Add Attachments     DDDDDDD  Sash, It appears as if AddEmbededImage is premium functionality that costs money, can we just do a normal add attachment?
 658 
       ' It appears as if AddEmbededImage is premium functionality that costs money, can we just do a normal add attachment?
652 
   If IsObject( oAttachments ) Then
 659 
       If IsObject( oAttachments ) Then
653 
      Keys = oAttachments.Keys
 660 
          Keys = oAttachments.Keys
654 
      For Each Key In Keys
 661 
          For Each Key In Keys
655 
   '      Mail.AddEmbeddedImage rootPath & Key, oAttachments.Item( Key )
 662 
       '      Mail.AddEmbeddedImage rootPath & Key, oAttachments.Item( Key )
656 
          Mail.AddAttachment oAttachments.Item( Key )
 663 
              Mail.AddAttachment oAttachments.Item( Key )
657 
      Next
 664 
          Next
658 
    Else
 665 
        Else
659 
          Mail.AddAttachment oAttachments
 666 
              Mail.AddAttachment oAttachments
- 
 
 667 
       End If
660 
   End If
 668 
    End If
661 
 
 669 
 
662 
   On Error Resume Next
 670 
   On Error Resume Next
663 
   If canSend Then   Mail.Send   ' send message
 671 
   If canSend Then   Mail.Send   ' send message
664 
 
 672 
 
665 
End Sub
 673 
End Sub