企业QQ邮箱配置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 企业QQ邮箱配置

共有3396人关注过本帖树形打印复制链接主题：企业QQ邮箱配置

漂亮美眉vszh

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：895 积分：8102 威望：0 精华：0 注册：2013/5/30 11:27:00

企业QQ邮箱配置 发帖心情

Post By：2024/9/24 8:15:00 [显示全部帖子]

老师，早上好，企业QQ邮箱配置了好久，都报错，在论坛上查了，测试也报错，两种方法都试了，现在把两种方法贴出来，请老师帮忙看下哪里错了，谢谢哈

[此贴子已经被作者于2024/9/24 8:20:35编辑过]

漂亮美眉vszh

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：895 积分：8102 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：2024/9/24 8:17:00 [显示全部帖子]

第二种

Dim mail As new System.Web.Mail.MailMessage()

try

mail.To = "892846575@qq.com"

mail.From = "apqp@cscbearing.cn"

mail.Subject = "这是主题"

mail.BodyFormat = System.Web.Mail.MailFormat.Html

mail.Body = "这是内容"

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") '//身份验证

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", mail.From) '//邮箱登录账号,这里跟前面的发送账号一样就行

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "753214Ss@#123") '//这个密码要注意:如果是一般账号,要用授权码企业账号用登录密码 yC9fda8tZxBcgEyH

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 587)'//端口

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", "true")'//SSL加密

System.Web.Mail.SmtpMail.SmtpServer = "smtp.qq.com" '//企业账号用smtp.exmail.qq.com

System.Web.Mail.SmtpMail.Send(mail)

msgbox("邮件发送成功 ")

catch ex As Exception

msgbox("邮件发送成功 : " & ex.Message )

End try

漂亮美眉vszh

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：895 积分：8102 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：2024/9/24 8:18:00 [显示全部帖子]

第一种怎么排序的乱七八糟，我重新贴下代码

Dim client As New System.Net.Mail.SmtpClient("smtp.cscbearing.cn", 25) '或者465 587

client.EnableSsl = True 'SSL

client.Credentials = New System.Net.NetworkCredential("apqp@cscbearing.cn", "753214Ss@#123") ' 前面的是密码,后面这个是授权码 yC9fda8tZxBcgEyH

client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network

Dim message As New System.Net.Mail.MailMessage()

message.From = new System.Net.Mail.MailAddress("apqp@cscbearing.cn","别名")

'message.To.Add(new System.Net.Mail.MailAddress("2450314695@qq.com","人名"))

message.To.Add("892846575@qq.com")

message.Subject = "邮件测试"

message.BodyEncoding = System.Text.Encoding.UTF8

Dim content As String

content &= "这是文字" & vbcrlf

content &= "也是文字"

message.Body = content

Try

client.Send(message)

msgbox("发送成功")

Catch ex As Exception

msgbox("发送失败:" & ex.message)

End Try

漂亮美眉vszh

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：895 积分：8102 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：2024/9/24 13:32:00 [显示全部帖子]

这种方法，报错：发送失败:参数或变量中有语法错误。服务器响应为:mail from address must be same as authorization user

以下是引用漂亮美眉vszh在2024/9/24 8:18:00的发言：
第一种怎么排序的乱七八糟，我重新贴下代码

Dim client As New System.Net.Mail.SmtpClient("smtp.cscbearing.cn", 25) '或者465 587

client.EnableSsl = True 'SSL

client.Credentials = New System.Net.NetworkCredential("apqp@cscbearing.cn", "753214Ss@#123") ' 前面的是密码,后面这个是授权码 yC9fda8tZxBcgEyH

client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network

Dim message As New System.Net.Mail.MailMessage()

message.From = new System.Net.Mail.MailAddress("apqp@cscbearing.cn","别名")

'message.To.Add(new System.Net.Mail.MailAddress("2450314695@qq.com","人名"))

message.To.Add("892846575@qq.com")

message.Subject = "邮件测试"

message.BodyEncoding = System.Text.Encoding.UTF8

Dim content As String

content &= "这是文字" & vbcrlf

content &= "也是文字"

message.Body = content

Try

client.Send(message)

msgbox("发送成功")

Catch ex As Exception

msgbox("发送失败:" & ex.message)

End Try

漂亮美眉vszh

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：895 积分：8102 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：2024/9/25 8:19:00 [显示全部帖子]

老师，依旧没能查出原因。发件人、授权都查了，都没找到原因。并手动测试了发送，没异常。

漂亮美眉vszh

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：895 积分：8102 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：2024/9/25 8:20:00 [显示全部帖子]

老师您能帮忙看下吗？那个代码复制后就直接能在命令窗口处运行的

下一主题 >> << 上一主题

主题：企业QQ邮箱配置