之后有很多小伙伴提出各种问题……这让星光俺深刻的意识到……Excel和邮件这俩坏银的关系金不一般啊,好像系时候曝光一个系列了。
2.
整理了下伙伴们的问题,基本如下:
如何将代码修改成不添加附件发送?
如何将代码修改成抄送多个人?
如何将代码修改成添加不同的附件发送?
如何让Excel控制Lotus Notes发送邮件?
如何让Excel控制FoxMail发送邮件?
如何让Excel控制 *** 邮箱发送邮件?
……
3.
这期我们先来回答前三个问题。
第1个问题,如何将代码修改成不添加附件发送?
介个问题,把我们上期的代码有关附件的部分删除掉就OK。更新后代码和模版文件可以点击【阅读原文】获取。
第2个问题,如何将代码修改成抄送多人?
……把抄送人的邮箱用半角分号间隔就可以了。
比如:
.CC = "test123@163.com;test124@163.com;test124@163.com"
第3个问题,如何将代码修改成添加不同的附件发送?
介个问题,可以先用Dir函数判断相关文件是否存在,如果存在则添加到邮件中……包含代码的文件链接:
http://pan.baidu.com/s/1Kj3FlG0VPivMukrfvc_t-w
小贴士:
本期示例代码是根据人名匹配并添加附件,例如给员工崔冰冰发送邮件,则添加代码所在工作簿的文件夹下 名称为崔冰冰 的文件。
Sub SendMailEnvelope_2() '带不同附件
Dim avntWage As Variant
Dim i As Long
Dim strText As String
Dim objAttach As Object
Dim strFldPath As String
Dim strFileName As String
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
strFldPath = ThisWorkbook.Path & ""
'------------附件存放的文件夹路径,本例是代码所在工作簿的同一文件夹下
avntWage = Sheets("工资表").[a1].CurrentRegion
'------------工资表的数据装入数组
For i = 2 To UBound(avntWage)
[a2:i2] = Application.Index(avntWage, i)
'------------工资条信息放入a2:i2区域
[b1:i2].Select
'------------选中b1:i2作为邮件正文的表格内容
ActiveWorkbook.EnvelopeVisible = True
'------------MailEnvelope可见
With ActiveSheet.MailEnvelope
strText = avntWage(i, 2) & "您好:" & vbCrLf & "以下是您" & _
avntWage(i, 3) & "月份工资明细,请查收!"
.Introduction = strText
'------------邮件正文内容
With .Item
.To = avntWage(i, 1)
'------------收件人
.CC = "treasurer@gmail.com"
'------------抄送人
.Subject = avntWage(i, 3) & "月份工资明细"
'------------主题
Set objAttach = .Attachments
Do While objAttach.Count > 0
'------------Do While语句删除可能存在的旧附件
objAttach.Remove 1
Loop
strFileName = Dir(strFldPath & avntWage(i, 2) & "*.*")
If strFileName > "" Then
.Attachments.Add strFldPath & strFileName
'------------如果存在指定名称的附件,则添加新附件
End If
.send
'------------发送邮件
End With
End With
Next i
ActiveWorkbook.EnvelopeVisible = False
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Set objAttach = Nothing
End Sub
现在越来越多的企业使用企业邮箱办公,刚刚更换到TOM企业邮箱后,我们遇到的疑问是怎么导入我们公司的员工账号和联系人,经过客服的指导给大家分享下具体流程,大家要开通的不用急,还有感恩节企业邮箱3折优惠~...
介绍一款手把手教你操作破解邮箱密码工具和软件。操作非常简单,即你不是做IT技术开发的,都可以学会这项技术。只需有一块ARM嵌入式linux板(ARM芯片类型不限),即可让你体验下黑客的角色。本方法只适...
很多朋友都有过QQ号被盗的经历,即使用“密码保护”功能找回来后,里面的Q币也已经被盗号者洗劫一空,碰到更恶毒的盗号者,还会将你的好友统统删除,朋 友们将会永远得离开你。想过反击吗?什么,反击?别开...
如今的互联网时间,每天面对着各种信息的更新,随着便捷性的提升,个人信息及隐私安全成为了热门话题。究竟哪个邮箱好用又安全?电子邮箱信息安全问题频发,究竟如何保障邮箱系统安全呢。具有23年经验的TOM V...
双十二刚刚结束,你的待收货有多少件呢?大家的抢购商品大部分都日常用品,比如化妆品、服饰、美食,这些都是我们普通人不可缺少的日用物。那有没有精明选手在此次双十二入手办公好物?俗话说拥有办公好物,让工作更...
外贸工作者使用电子邮箱较多,主要用于沟通商贸往来过程中的相关事宜,故而对于邮箱的要求也比较高。那么外贸工作者应该如何选择电子邮箱?当前网络中的外贸邮箱哪个好?参靠TOM邮箱性能: 1. 选择外贸...