Sub 邮件发送()
Dim cm As New CDO.Message
'Set cm = CreateObject("CDO.Message") '创建对象 '引用路径:C:\Windows\system32\cdosys.dll
cm.From = "1234567@qq.com" '设置发信人的邮箱"
cm.To = "649725266@qq.com,excelpx@163.com" '设置收信人的邮箱
cm.Subject = "主题:邮件发送试验" '设定邮件的主题
'cm.TextBody =  '邮件正文,使用文本格式发送邮件
cm.HtmlBody = "邮件发送试验^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" '使用html格式发送邮件
cm.AddAttachment ThisWorkbook.path & "/a.xls"
stUl = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址
With cm.Configuration.Fields
    .Item(stUl & "smtpserver") = "smtp.qq.com"         'SMTP服务器地址
    .Item(stUl & "smtpserverport") = 25                  'SMTP服务器端口
    .Item(stUl & "sendusing") = 2                        '发送端口
    .Item(stUl & "smtpauthenticate") = 1      '需要提供用户名和密码,0是不提供           '
    .Item(stUl & "sendusername") = "1234567"                '发送方邮箱名称
    .Item(stUl & "sendpassword") = "12345671"                  '发送方邮箱密码
    .Update
End With
cm.Send '最后当然是执行发送了
Set cm = Nothing
'发送成功后即时释放对象
End Sub

注:示例代码转自互联网,需根据个人邮箱地址、账号修改代码中相应部分。

另外,如果要使用163账号发送邮件,参考以下端口设置:(非SSL协议,25)

第一次使用VBA自动发送邮件,酷!示例代码:Sub 邮件发送()Dim cm As New CDO.Message'Set cm = CreateObject("CDO.Message") '创建对象 '引用路径:C:\Windows\system32\cdosys.dllcm.From = "1234567@qq.com" '设置发信人的邮箱"cm.To = "649725266@qq....
每天打开读写保护的每日工作报告表格,记录工作时间,打卡时间,工作内容然后按一定格式做成发到指定邮箱(OutLook)。 第一步:新建一个EXECEL文件,借由该文件中的VBA代码打开指定的每日工作报告,该每日工作报告文件有写保护密码。 VBA代码如下: Private Sub Workbook_Open() Application.DisplayAlerts = False Application.ScreenUpdating = False Mon = Sheet1.Cel...
Dim mailaddress As String '引用Microsoft Outlook 对象 Set ObjOL = CreateObject("Outlook.Application") Set itmNewMail = ObjOL.CreateItem(olMailItem) '******输入 VBA发送邮件有很多方法,Jmail或者直接调用outlook,Jmail要求本机安装Jmail.dll库文件,调用outlook又要要求本机安装outlook并且配置好outlook收发邮件。 本文介绍使用Windows自带的cdosys.dll发送邮件。 不做多解释直接上代码了。 ' CDO相关参数 Private Const cdoSendUsingMethod = _
这份《超详细的cmake教程(去糟粕-重实践-学以致用).pdf》详细介绍了cmake的使用,让使用者能够掌握cmake配置管理工具的基础知识和高级配置技术。本教程对于初学者和有经验的开发者都很有实用性。 该教程采用的是“去糟粕-重实践-学以致用”的学习方法,指导读者从建立cmake项目到使用cmake进行项目构建。首先,该教程讲解了cmake的基本概念,如cmake的安装目录、缓存变量、命令行参数等。其次,教程丰富了CMakeLists.txt的编写内容,从最基本的编写开始,一直讲解到高级需要。 该教程在具体实践中,告知读者多种常用模板的写法,如常用的C++项目、python项目等,并对cmake用于构建第三方库和由多个子项目组成的大型项目的方法进行详细介绍。最后,该教程介绍了cmake的一些高级特性,例如交叉编译、自定义函数和模块等,使读者能够更加深入地了解和使用cmake。 总之,《超详细的cmake教程(去糟粕-重实践-学以致用).pdf》是一份非常好的cmake学习材料,通过对实战案例的深入讲解,让读者能够快速入门,掌握cmake的基础和高级技术,为日后的软件工程开发提供了有力的支持。