Tiptop GP中利用SMTP服务器发送邮件

这个是GDC(Genero Desktop Client)所提供的功能，不罗嗦，直接上代码：

MAIN
  DEFINE result,id INTEGER
  DEFINE str STRING
  
  #初始化模组
  CALL ui.interface.frontcall("WinMail","Init",[],[id])
  
  #设置邮件的内容
  CALL ui.interface.frontcall("WinMail","SetBody",[id,"This mail send by WinMail via Genero"],[result])
  

  #设置邮件主题
  CALL ui.interface.frontcall("WinMail","SetSubject",[id,"Subject:Hello World!"],[result])
  
  #设置邮件发件人
  CALL ui.interface.frontcall("WinMail","SetFrom",[id,"andy","andy@mydomain.com"],[result])
  
  #设置smtp服务器
  CALL ui.interface.frontcall("WinMail", "SetSmtp", [id, "smtp.mydomain.com"], [result])
  
  #设置收件者
  CALL ui.Interface.frontCall("WinMail", "AddTo", [id, "paul", "paul@mydomain.com"], [result])
  
  #设置抄送
  CALL ui.Interface.frontCall("WinMail", "AddBCC", [id, "nancy", "nancy@163.com"], [result])
   
  #添加附件
  CALL ui.Interface.frontCall("WinMail", "AddAttachment", [id, "c:\\temp\\test.xls"], [result])
   
  #透过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 MAIN

在XP+GDC2.02.04下测试成功，但是尚有以下问题：

1.尝试在邮件主题和正文中书写汉字，用outlook客户端接收到的邮件显示为乱码

2.因为目前的大部分smpt服务器都会要求发送认证，所以此示例的邮件只可在本域内发送，不知道对于smpt认证，程序要如何处理？

针对以上问题，有这方面的达人请不吝指教，谢谢！