​qq邮箱怎么发邮件(没有邮箱怎么发邮件)

qq邮箱怎么发邮件(没有邮箱怎么发邮件)

很多新手都问怎么发送QQ邮件到邮箱，今天发一个教程给大家总结下发送邮件失败的原因，和解决办法！

发送QQ邮箱想要成功，必须开通QQ邮箱的POP3/SMTP服务。

开通方法：登录发件方的QQ邮箱---设置---账户---开启服务：POP3/SMTP服务---发送短信到腾讯客服---获取授权码（必须记住授权码）

2. VB6.0完整代码如下：

Private Sub Command1_Click()

Dim Email As Object

Const NameSpace = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址，固定的，不用改的

Set Email = CreateObject("cdo.message")

Email.From = "[email protected]" '发件人邮箱

Email.to = "[email protected]" '收件人邮箱

Email.Subject = "测试" '主题

Email.Textbody = "测试内容" '邮件内容

'Email.AddAttachment "D:\1.txt" '发送附件,输入绝对路径

With Email.Configuration.Fields

.Item(NameSpace & "sendusing") = 2 '发送端口

.Item(NameSpace & "smtpserver") = "smtp.qq.com" '使用qq的邮件服务器

.Item(NameSpace & "smtpserverport") = 465 '服务器端口

.Item(NameSpace & "smtpauthenticate") = 1 '需要提供用户名和密码，0是不提供

.Item(NameSpace & "sendusername") = "XXXXXX" 'qq号码

.Item(NameSpace & "sendpassword") = "XXXXXX" 'qq密码(qq密码必须是打开POP3,smtp服务，得到的授权码

.Item(NameSpace & "smtpusessl") = "true" '使用ssl加密方式发送邮件

.Update

End With

Email.Send

MsgBox "邮件发送成功!"

End Sub

3.运行代码，测试下！

OK！发送成功！是不是很简单呢？

必须开通QQ邮箱的POP3,smtp服务，得到授权码。

端口号一定要设置成465。

Item(NameSpace & "smtpusessl") = "true"这句代码一定要添加，意思是：使用ssl加密方式发送邮件！

小常识：再你的发件人邮箱地址里接尾处，加个英文括号里可以添加邮件发送人名。例[email protected](姓名)

鲤鱼IT工程师软件培训中心，是许昌地区最大最专业的IT培训机构，立志于为许昌当地的IT爱好者和想要从事IT行业的社会人员提供科学系统的IT技能培训。并提供一线互联网企业的就业岗位。帮助学员找到一份高薪、体面、稳定的工作。

目前开设的课程有：PHP课程、WEB前端课程、JAVA课程。 鲤鱼IT工程师培训中心成立以来，以IT技能培训和人才输送对接为核心，致力于打造互联网高端人才一站式服务。与国内百家互联网用人企业达成长期人才战略合作，为整个互联网、IT行业输送互联网高级技术人才超过1000人，全部就业。

公司承诺：100%学会，学不会免费重新学，学会为止,100%就业，不就业免费重新学，就业为止

官网：www.liyuit.com

地址：许昌市八一东路许昌学院创新创业学院2楼

qq邮箱怎么发邮件

qq邮箱怎么发邮件（对方不是邮箱怎么发邮件）