怎么样发邮件到邮箱,如何用Excel自动发邮件!

访客4年前黑客工具1262

之后有很多小伙伴提出各种问题……这让星光俺深刻的意识到……Excel和邮件这俩坏银的关系金不一般啊,好像系时候曝光一个系列了。

Excel「Outlook篇」如何让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

小贴士:

本期示例代码是根据人名匹配并添加附件,例如给员工崔冰冰发送邮件,则添加代码所在工作簿的文件夹下 名称为崔冰冰 的文件。

Excel「Outlook篇」如何让Excel自动发邮件?

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

 

相关文章

条件格式怎么用(Excel条件格式高级用法)

条件格式怎么用(Excel条件格式高级用法)

使用Excel表格的时候,我们经常会看到格式各样的图形颜色,根据数据不同会显示出不同层次的内容。比如说符合不同条件的时候,表格可以实现自动显示特殊内容。这就是Excel表格中的条件格式设置操作。今天我...

如何制作表格excel?制作excel表格的步骤技巧

如何制作表格excel?制作excel表格的步骤技巧

生活中我们常常会见到各种表格,这些表格都可以很方便我们记录一些事情,又或者是可以很好的将一些数据显示出来。对于一些工作的人员来说,能够用电脑制作出表格是非常重要的,那么在电脑上怎么制作表格呢?下面,小...

excel打不开怎么办(修复excel表格的两种方法)

excel打不开怎么办(修复excel表格的两种方法)

来自云骑士,侵联系删 最近有用户反映excel打不开了,那么遇到这样的情况我们该怎么解决呢? 1.若是出现excel打不开的情况,我们首先要把控制面板打开,然后在开始菜单里点击控制面板,在控制...

excel条件格式怎么设置,设置条件格式的方法及教程

excel条件格式怎么设置,设置条件格式的方法及教程

大家请看范例图片。多列分步的成绩表,高亮显示前,后几名的成绩,可以在条件格式中,仅对排名靠前后的数值设置格式,但是注意该项选择仅对数值进行高亮提醒。 其中,对于高低于平均值的显示,也是对数值进行...

excel超链接怎么做?制作的详细方法,拿走不谢

excel超链接怎么做?制作的详细方法,拿走不谢

Excel怎么做超链接?真是太简单了!现在excel表格的强大之处已经不言而喻,做超链接也成为家常便饭。Excel怎么做超链接,这个问题的解决方法有很多,但是简单快速且美观的的方法却不多,如果你想知道...

excel加密码怎么加,根据作用对象以及呈现效果的不同分为8个功能

excel加密码怎么加,根据作用对象以及呈现效果的不同分为8个功能

excel加密码怎么加,根据作用对象以及呈现效果的不同分为8个功能。   1)加密的功能划分 广义的加密分为「保护」和「加密」,根据作用对象以及呈现效果的不同,可以分为8个功能。...