利用VB编程发送139邮箱短信：免费SMTP教程

在VB编程中，本文档展示了如何利用Visual Basic (VB) 的CDO对象模型发送电子邮件到139邮箱，同时通过QQ邮箱作为中间转发来实现免费短信功能。具体步骤如下： 1. 首先，创建一个VB Form，例如Form1，通过`MyBase.Load`事件设置窗口的位置，这有助于保持程序界面的整洁。 2. 在`Button1_Click_1`事件处理程序中，声明了几个字符串变量，如`a`用于存储邮件主题，`b`用于存储邮件正文。这里以示例文本"mylove"和"Һ"为例。 3. 通过`CreateObject`函数创建`CDO.Message`对象，这是用于发送电子邮件的核心组件。设置发件人地址为`1353464538@qq.com`，这是QQ邮箱，因为139邮箱不能直接发送短信。 4. 收件人地址设为`18782949186@139.com`，尽管是139邮箱，但实际上是通过QQ邮箱转发。邮件的主题由用户输入的`a`变量决定，正文则用`b`变量。 5. 在配置邮件对象时，使用`NameS`字符串连接CDO配置字段名。通过`Fields.Item`方法设置`sendusing`属性为2，表示使用SMTP服务器发送；SMTP服务器地址设置为`smtp.qq.com`，端口为25，这是常用的SMTP服务端口。 6. 为了能够发送邮件，需要进行SMTP身份验证。设置`smtpauthenticate`属性为3，表示使用基本认证（Basic Authentication），并设置`sendusername`和`sendpassword`分别为发件人的QQ邮箱账号和密码。 7. 请注意，虽然这种方法理论上可以实现邮件转发，但139邮箱通常不支持直接通过SMTP协议发送短信，因为139邮箱主要用于传统电子邮件，而不是短信服务。因此，尽管代码中设置了短信发送的相关配置，实际上短信可能无法正常显示，且139邮箱的字数限制可能会导致短信内容不完整。 总结来说，这段VB代码演示了如何利用VB中的CDO对象通过QQ邮箱间接实现向139邮箱发送电子邮件的功能，并尝试转发短信。然而，由于139邮箱本身的限制和短信功能并非其核心特性，实际效果可能并不理想。如果需要发送短信，建议直接使用专门的短信服务提供商或第三方API，而非依赖于邮箱系统。