如何从Visual FoxPro程序通过Office 365邮件服务器发送邮件？

针对你遇到的CDO 2000类端口兼容、裸换行错误等问题，以下是几种可行的解决方案：

一、修正CDO 2000配置，解决核心问题 #

Office 365实际支持587端口（需配合TLS），之前的失败大概率是配置缺失。同时通过文本处理解决裸换行问题：

1. 正确配置CDO参数
   使用以下代码设置SMTP服务器、认证和加密：

   loCDO = CREATEOBJECT("CDO.Message")
   loConfig = loCDO.Configuration
   
   WITH loConfig.Fields
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
       .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  && 远程SMTP模式
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  && 基本认证
       .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "你的Office365邮箱地址"
       .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "你的邮箱应用密码"  && MFA用户需用应用密码
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .T.
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
       .Update()
   ENDWITH
   

2. 统一文本换行符
   确保邮件所有文本内容（正文、主题、附件描述等）的换行符为CRLF（CHR(13)+CHR(10)），替换单独的LF（CHR(10)）：

   loCDO.Subject = STRTRAN(lcSubject, CHR(10), CHR(13)+CHR(10))
   loCDO.TextBody = STRTRAN(lcBody, CHR(10), CHR(13)+CHR(10))
   

二、使用SFMail类（推荐） #

SFMail是专为VFP设计的邮件类，原生支持现代SMTP服务（包括Office 365），内置处理了TLS认证、换行规范等细节，避免CDO的兼容性问题：

loMail = NEWOBJECT("SFMail")

WITH loMail
    .cSMTPServer = "smtp.office365.com"
    .nSMTPPort = 587
    .lUseSSL = .T.
    .cUsername = "你的Office365邮箱地址"
    .cPassword = "你的邮箱应用密码"
    .cFrom = "你的Office365邮箱地址"
    .cTo = "收件人邮箱地址"
    .cSubject = "测试邮件"
    .cText = "邮件正文内容"

    IF .Send()
        MESSAGEBOX("邮件发送成功")
    ELSE
        MESSAGEBOX("发送失败：" + .cErrorMsg)
    ENDIF
ENDWITH

三、使用命令行邮件工具 #

如果类库方式存在限制，可以用第三方命令行邮件工具（如Blat、SendEmail），在VFP中通过系统调用执行：

以Blat为例，命令行示例：

lcCommand = 'blat "邮件正文文件路径.txt" -to 收件人@example.com -from 你的邮箱@outlook.com -subject "测试主题" -server smtp.office365.com -port 587 -ssl -u 你的邮箱@outlook.com -pw 你的应用密码'
RUN &lcCommand

优点是无需依赖VFP类库，工具自行处理SMTP协议细节；缺点是需要将工具部署到所有客户端机器。

四、使用.NET封装的DLL #

利用.NET的System.Net.Mail类封装成COM可见DLL，在VFP中调用。.NET对现代SMTP服务的支持更完善，自动处理换行和加密：

注册DLL后，VFP调用示例：

loMailClient = CREATEOBJECT("NetMailHelper.SmtpClient")

WITH loMailClient
    .SmtpServer = "smtp.office365.com"
    .Port = 587
    .EnableSsl = .T.
    .Username = "你的Office365邮箱地址"
    .Password = "你的应用密码"
    .SendMail("你的邮箱地址", "收件人地址", "邮件主题", "邮件正文")
ENDWITH

关键注意事项 #

• Office 365账户需开启SMTP AUTH功能；
• 开启多因素认证（MFA）的账户必须使用应用密码，不能用常规登录密码；
• 优先选择587端口+SSL加密，这是Office 365的标准SMTP配置。

内容的提问来源于stack exchange，提问作者Andrus