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

最新推荐文章于 2021-03-22 10:27:03 发布

原创最新推荐文章于 2021-03-22 10:27:03 发布 · 5.8k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#服务器 #integer #string #测试 #c

Genero 同时被 3 个专栏收录

14 篇文章

订阅专栏

tiptop

6 篇文章

订阅专栏

winmail

1 篇文章

订阅专栏

本文提供了一个使用GDC(GeneroDesktopClient)发送邮件的示例代码，并介绍了如何设置邮件内容、主题、发件人等。同时提出了关于邮件编码及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认证，程序要如何处理？

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

您可能感兴趣的与本文相关的镜像