primer commit subida

PROYECTO/ccdir - Copy/TESTEMAIL.4gl

@@ -0,0 +1,45 @@
+FUNCTION envia_correo()
+ DEFINE result, id INTEGER
+ DEFINE str,cuerpo_correo,subject STRING
+   
+ LET cuerpo_correo = "ESTA ES LA PRIMERA LINEA DEL CUERPO DEL CORREO  ^M"
+ LET cuerpo_correo = cuerpo_correo CLIPPED,"ESTA ES LA SEGUNDA LINEA DEL CORREO"
+ LET subject = "ESTE ES EL SUBJECT DEL CORREO"
+   
+ -- first, we initialize the module
+ CALL ui.Interface.frontCall("WinMail", "Init", [], [id])
+   
+ -- Set the body of the mail
+ CALL ui.interface.frontCall("WinMail", "SetBody", [id, cuerpo_correo], [result])   
+      
+ -- Set the subject of the mail 
+ CALL ui.interface.frontCall("WinMail", "SetSubject", [id, subject], [result])   
+     
+   
+ -- Set the mail sender
+ CALL ui.Interface.frontCall("WinMail", "SetFrom", [id, "mySelf", "jsoto@marmotech.com.do"], [result])
+      
+ -- Set the SMTP server
+ CALL ui.Interface.frontCall("WinMail", "SetSmtp", [id, "mail.marmotech.com.do"], [result])
+      
+ -- Add an Addressee as "TO"
+ CALL ui.Interface.frontCall("WinMail", "AddTo", [id, "myBoss", "jsoto@mastercentury.com"], [result])
+      
+ -- Add another Addressee as "BCC"
+ CALL ui.Interface.frontCall("WinMail", "AddBCC", [id, "my friend", "juan.f.sotoc@gmail.com"], [result])
+   
+ -- Add Two attachments
+ --CALL ui.Interface.frontCall("WinMail", "AddAttachment", [id, "c:\\mydocs\report.doc"], [result])
+ --CALL ui.Interface.frontCall("WinMail", "AddAttachment", [id, "c:\\mydocs\demo.png"], [result])
+   
+ -- Send the mail via smtp
+ CALL ui.Interface.frontCall("WinMail", "SendMailSMTP", [id], [result])
+ IF result == TRUE THEN
+   DISPLAY "Message sent succesfuly"
+ ELSE
+   CALL ui.Interface.frontCall("WinMail", "GetError", [id], [str])
+   DISPLAY str  
+ END IF  
+ CALL ui.Interface.frontCall("WinMail", "Close", [id], [result])
+
+END FUNCTION