SMTP Email: Difference between revisions

97 bytes removed ,  20 November 2007
no edit summary
No edit summary
No edit summary
Line 58: Line 58:
Inside the OnClick event in the “Send” button added above, add the following code:
Inside the OnClick event in the “Send” button added above, add the following code:


        String sAttach sName
String sAttach sName
Integer iRC
Integer iRC
        Set ComUserName of oComMailSender to "YourEmailLoginID"
Set ComUserName of oComMailSender to "YourEmailLoginID"
        Set ComPassword of oComMailSender to "YourEmailLoginPassword"
Set ComPassword of oComMailSender to "YourEmailLoginPassword"
        Set ComHost of oComMailSender to (Value(oHost))
Set ComHost of oComMailSender to (Value(oHost))
        Set ComFrom of oComMailSender to (Value(oFromAddr))
Set ComFrom of oComMailSender to (Value(oFromAddr))
        Set ComSubject of oComMailSender to (Value(oSubject))
Set ComSubject of oComMailSender to (Value(oSubject))
        Set ComBody of oComMailSender to (Value(oMessage))
Set ComBody of oComMailSender to (Value(oMessage))
        Send ComAddAddress to oComMailSender (Value(oToAddr))  sName
Send ComAddAddress to oComMailSender (Value(oToAddr))  sName
        Get Value of oAttachment to sAttach
Get Value of oAttachment to sAttach
        If (trim(sAttach) <> "") Begin  
If (trim(sAttach) <> "") Begin  
            Send ComAddAttachment to oComMailSender sAttach
    Send ComAddAttachment to oComMailSender sAttach
        End
End
              
              
         Get ComSend of oComMailSender "" to iRC
         Get ComSend of oComMailSender "" to iRC
40

edits