利用VB发送邮件测试方式

博图TIA · 发表于 2024-4-19 15:45:53

经过一晚上的测试，终于通过后台程序发送邮件到指定的邮箱了，以前采用POP3的方式，测试都报错。

或者是：
运行时错误-2147220975(80040211)
邮件无法发送到 SMTP 服务器。传输错误代码为 0x800ccc69。服务器响应为550 5.7.1 message content rejected。
经过查询和修改网络代码，终于测试成功。
第一步：通过网络找了N种方式，最后测试成功的是：

Dim xOutLook
Dim xMail
Dim j1, j2
If InternetGetConnectedState(0&, 0&) Then
On Error Resume Next
Set xOutLook = GetObject(, "Outlook.Application")
If xOutLook Is Nothing Then
Set xOutLook = CreateObject("Outlook.Application")
End If
Set xMail = xOutLook.CreateItem(olMailItem)
With xMail
'Display
.To = "5*****@qq.com"
.Subject = "主题"
.HTMLBody = "测试文本"
.Importance = olImportanceHigh '重要级别：高
Dim xDoc
Set xDoc = xMail.Application.ActiveInspector.WordEditor
j1 = "E:\个人软件记录\11 弹出提醒\日常管理软件V1.3.4版本\今日提醒.ini" '添加附件1
j2 = "C:\1.txt" '添加附件2
.Attachments.Add j1
.Attachments.Add j2
.Send
End With
End If
这个需要首先配置outlook的账号

配置好后，就可以通过软件发送邮件到指定的邮箱了。

测试效果：

做了一个后台程序：

此程序主要用于定期将数据存放在指定的邮箱，也可以远程监控计算机的操作行为或者软件的使用情况。

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！

		自动登录	找回密码
密码			注册哦

[三菱] 利用VB发送邮件测试方式

本帖子中包含更多资源

浏览过的版块