文档库 最新最全的文档下载
当前位置:文档库 › 如何批量一对一发送邮件(OUTLOOK+WORD+EXCEL)

如何批量一对一发送邮件(OUTLOOK+WORD+EXCEL)

如何批量一对一发送邮件(OUTLOOK+WORD+EXCEL)
如何批量一对一发送邮件(OUTLOOK+WORD+EXCEL)

妙用

我们知道,如果需要在

第3步:选择收件人

很显然,我们应该选择“电子邮件”作为文档类型,这样可以将电子邮件发送给一组人,点击两次“下一步”按钮,进入“选择收件人”这一步骤,如图2所示,由于我们已经在Outlook 2003中完成了联系人列表的创建工作,因苏饫锟梢匝≡瘛按覱utlook联系人中选择”项,接着在图3窗口中选择所有需要接收邮件的收件人名单,最后点击“确定”按钮返回邮件合并向导。

如果收件人地址保存在文本文件或Excel工作表中,那么这里应该选择“使用现有列表”项。

第4步:插入合并域

现在,我们应该在邮件文档中插入相应的合并域,首先请将插入光标定位到邮件中域内容应当出现的相应位置,如图4所示,这里我们在邮件的最前面插入“问候语”,这样Word 2003会根据收件人的信息自动显

示相应的问候语,例如“张先生”、“赵小姐”,不过请注意这里我们并不需要插入收件人的电子邮件地址。

第5步:合并邮件

点击“下一步”按钮,Word 2003会显示预览内容,如果没有什么错误的话,确认后会根据联系人列表中的邮件地址自动合并所有邮件并放入Outlook 2003的发件箱,然后我们就可以将这些特殊的邮件发送出去了。

或者,我们可以在Outlook 2003中切换到“联系人”窗格,选择好相应的收件人,然后从“工具”菜单下选择“邮件合并”命令,接下来会。图5所示的对话框,一般情况下,我们应该在“文档文件”小节中选择“新建文档”,当然假如已经有现成的邮件文档的话,请选择“现有文档”。

Outlook 2003允许在邮件合并时将联系人数据保存为CSV格式的文件,这样以后可以再次使用;在合并时,我们可以指定文档的类型,例如套用信函、邮件标签、信封或者是分类一览表,也可以选择合并到新建文档、打印机或者是电子邮件,我们当然是选择合并到“电子邮件”啦,索性一并在这里完成邮件主题行的内容。

完成上述内容后,点击“确定”按钮,Outlook 2003会自动调用Word创建邮件文档,同时自动激活“邮件合并”工具栏,接下来的操作这里就不多说了,朋友们不妨一试。

利用邮件合并功能自动发送工资条(邮件)

(excel+word+outlook)

中科院软件中心邹立刚

日常工作中,发放工资条是个较为繁琐的事情,且纸质工资条保密性较差,虽然很多公司已经上了ERP、OA,但如需集成工资条发送功能,其开发费用也不菲,少则几万,多则数十万。本文通俗易懂,简单易学,着重介绍了word的邮件合并功能,结合excel、outlook 的使用,使人事、财务人员快速掌握自动发送工资条的方法,极大地提高了工作效率。该方法也可用于自动发送请柬、贺卡,请广大读者自行研究。本文所用软件均为office系列2003版。本文属于原创,请转载者标明出处。

一、用excel制作工资表

首先用excel做一张工资表,假如做一张非常简单的工资表如下(记得一定要有邮箱一列,否则一会儿就没办法发邮件了):

做好后,存为《11月工资表》。

二、用word执行邮件合并

打开word,选择工具——信函与邮件——邮件合并。

(1)这时右侧会出现提示操作“选择文档类型”。因为要发邮件的,所以这里我们选择“电子邮件”,然后点击下一步:正在启用文档。

(2)出现“选择开始的文档”,我们选“使用当前文档”,然后点击“下一步:选择收件人”。

(3)出现“选择收件人”。我们选“使用现有列表”,选“浏览”,我们可以把刚才做的excel文档“11月工资表”导入进来。然后点击“下一步:撰写电子邮件”。

(4)这时出现“撰写电子邮件”。

A.我们先不要管它,先到word文档里面写上要给大家发的邮件。比如象下面这样写(注意这个是直接写到当前的word文档里面的)

感谢您对本公司做出的贡献和努力。现向您发送07年11月的工资条。本月您的工资明细为:应发合计:

扣税额:

实发合计:

B.这样一个简单的工资邮件就写好了。然后回到“撰写电子邮件”,插入我们需要的内容。在“撰写电子邮件”中选择“其他项目”,出现对话框“插入合并域”。下面有几列:

F1

F2

F3

F4

F5

其实这里面的F1-5对应的就分别是员工的姓名、应发合计、扣税额、实发合计和电子邮件。理解这点很重要,因为理解这个我们才知道要把他们插到哪里去。

C、把F1插入到“感谢您对本公司做出的贡献和努力”前面,F2插到“应发合计:”后面F3插到“扣税额:”后面

F4插到“实发合计:”后面,

word文档变成下面的样子:

F1感谢您对本公司做出的贡献和努力。现向您发送07年11月的工资条。本月您的工资明细为:

应发合计:F2

扣税额:F3

实发合计:F4

(5)到这里,我们的文件主体就算完成了。选择“下一步:预览电子邮件”。就可以看到:王玉感谢您对本公司做出的贡献和努力。现向您发送07年11月的工资条。本月您的工资明细为:

应发合计:1000

扣税额:100

实发合计:900

『此状态下,电子邮件预览时,小数点后显示十几位,故需作如下处理:

点击右键(注意鼠标放在数字上),选择“切换域代码”

出现如下页面:

实发合计: 2865.5100000000002

将其改为:

实发合计:

2865.5100000000002

点击右键,再次点击“切换域代码”,并点击“更新域”,出现如下页面:

实发合计: 2865.51』

(6)选择”下一步:完成合并“,出现”完成合并“,点击”电子邮件“,出现“合并电子邮件对话框”,在“收件人”里选择“F5”(注意,因为我们把电子邮件放在了第5列,所以选择F5,具体要根据你做的工资表结构,看电子邮件是哪一列来定);在“主题行”里写“11月工资条”(这个就是你发给大家的邮件的题目),格式随自己需要选,然后选择确定。

三、outlook执行邮件发送

这样工资条就被发到每个人的邮箱里面去咯。

不过有个前提,你平时用outlook发邮件。如果用的别的,估计还要调整一下,这个就问更专业一点的人吧,我其实也是个电脑盲,嘿嘿。

如果你不需要发邮件,只是想打印出每个人的工资条,那就在“选择文档类型时”选“信函”就可以了。最后就可以打印出每个人的纸质工资条。

EXCEL通过OUTLOOK2007自动发送邮件

EXCEL通过OUTLOOK2007自动发送邮件 Sub outlook发送() '要预先对outlook进行配置,请先在VBA的<工具/引用>中引用microsoft outlook 9.0 objrct Dim myOlApp As New Outlook.Application With myOlApp.CreateItem(olMailItem) .Attachments.Add ThisWorkbook.FullName '附件 .To = "albert.chen@https://www.wendangku.net/doc/1f2703246.html," '邮箱地址 .Subject = "请审批文件申请书" '主题 .Body = "文件申请书已填写完毕,请审批" '正文 .CC = "albert.chen@https://www.wendangku.net/doc/1f2703246.html," '抄送 .ReadReceiptRequested = True .Importance = olImportanceHigh .Display .Send '发送 End With Set myOlApp = Nothing End Sub Private Sub CommandButton1_Click() 'if CheckBox1.Value = True Then 'MsgBox ("xuanzhong") 'End If Application.DisplayAlerts = False '在程序执行过程中使出现的警告框不显示 Application.ScreenUpdating = False '关闭屏幕刷新 Dim myOlApp As New Outlook.Application Call outlook发送 Application.ScreenUpdating = True '打开屏幕刷新 Application.DisplayAlerts = True '在程序执行过程中出现的警告框 End Sub Private Sub CommandButton1_Click()

用OUTLOOK自动发邮件的程序代码

使用OUTLOOK自动发邮件的VBA程序代码 编制:Quzp 发布时间:20140201 为解决实际工作中定向批量发邮件的问题,特编制VAB程序代码如下: Sub AddAttachment() Dim myOlApp As New Outlook.Application Dim myItem As Outlook.MailItem Dim myAttachments As Outlook.Attachments Set myItem = myOlApp.CreateItem(olMailItem) Set myAttachments = myItem.Attachments myAttachments.Add "E:\Test.doc", olByValue, 1, "Test" '插入附件 myItem.Subject = "test" '设定主题 myItem.Recipients.Add "ABC-1@https://www.wendangku.net/doc/1f2703246.html," '收件人地址 https://www.wendangku.net/doc/1f2703246.html, = "ABB-1@https://www.wendangku.net/doc/1f2703246.html,"'抄送地址 myItem.BCC = " 2292914230@https://www.wendangku.net/doc/1f2703246.html," mDate = Format(Now, "yyyy-MM-dd") myItem.Body = "这是一个测试软件,请注意,我需要您及时回复 " & vbCrLf & mDate '邮件正文 myItem.Display myItem.send End Sub 使用时打开OUTLOOK,选择工具—宏—VisalBasic编辑器—插入—模块—(粘贴以上代码)—运行。 以上代码可以用其它文件编辑或镶入其它VBA中,以实现快速自动定向发邮件的功能。

在Outlook中如何实现自动密送

密抄到多人这个需要用到宏的,1、在Outlook里面键入ALT+F11打开VBA编辑器; 2、键入CTRL+R激活左边的那个工程面板,展开并双击上面的“Project (VbaProject.OTM)\Microsoft Office Outlook 对象\ThisOutlookSession”; 3、将下面的代码粘贴到右边打开的编辑区里面去: Option Explicit Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim oItem As MailItem Dim oRecipient As Recipient Set oItem = Item ' 在这里参考如下代码根据需要增删BCC收件人 Set oRecipient = oItem.Recipients.Add("user1@https://www.wendangku.net/doc/1f2703246.html,") oRecipient.Type = Outlook.olBCC Set oRecipient = oItem.Recipients.Add("user2@https://www.wendangku.net/doc/1f2703246.html,") oRecipient.Type = Outlook.olBCC Set oRecipient = oItem.Recipients.Add("user3@https://www.wendangku.net/doc/1f2703246.html,") oRecipient.Type = Outlook.olBCC oItem.Recipients.ResolveAll oItem.Save Set oRecipient = Nothing Set oItem = Nothing End Sub 4、根据需要按照我上面代码中的注释增删BCC收件人地址; 5、键入CTRL+S保存,再键入ALT+Q退出VBA编辑器返回Outlook主界面; 6、选择菜单“工具-信任中心”,在弹出窗口中选择“宏安全性”; 7、选择“为所有宏提供警告”或者“不执行宏安全性检查”(建议选择前者); 8、重新启动Outlook,看到提示是否否用宏,选择启用。 现在你发出去的每一封邮件都自动抄送给了代码中设置的那些BCC收件人了。 ---------- 外附一则:

Outlook-2010使用技巧

技巧一:设置邮件自动答复 功能描述 Outlook 2010 的邮件自动答复功能可以在您出差或无法发送邮件的情况下,自动答复邮件,并向组织内准备给您发邮件的人自动提示外出信息。 操作方法 1.单击【文件】-【自动答复】。 2.在“自动答复”对话框中,选中“发送自动答复”。“在我的组织内”和“在我 的组织外”分别填写上答复内容,然后单击【确定】。 3.组织内的用户要发邮件给您时,在发送邮件前,即可得到您正在外出的提醒(如 图所示)。组织内或组织外的用户在发送邮件给您后,将收到自动回复的邮件。 技巧二:垃圾邮件筛选器 功能描述 Outlook 2010 提供了一个垃圾邮件筛选器,通过该筛选器,绝大部分垃圾邮件将不会进入“收件箱”,而是会传送到“垃圾邮件”文件夹,显著减少垃圾电子邮件的数量。 操作方法 例如:阻止来自某个域名发来的邮件,如“@https://www.wendangku.net/doc/1f2703246.html,”。 1.单击【开始】-【垃圾邮件】-【垃圾邮件选项】。 2.在打开的“垃圾邮件选项”对话框中,选择【阻止发件人】,单击【添加】。 3.在“添加地址或域”对话框中输入“@https://www.wendangku.net/doc/1f2703246.html,”。并单击【确定】关闭所有对话 框。以后,来自 https://www.wendangku.net/doc/1f2703246.html, 的邮件都将被归放在“垃圾邮件”文件夹下。 技巧三:共享日历 功能描述 将自己工作安排的日历共享给其他同事,便于同事合理安排共同协作的时间。 操作方法 1.单击【日历】-【共享日历】。 2.选择收件人地址,并选择其日历信息的详细程度,单击【发送】,即可将共享日 历信息以邮件形式发给相关人员,邀请他们访问您的共享日历。 3.收到邀请邮件的人,在邮件中单击【打开此日历】,即可与您的日历并排查看。技巧四:对话试图 功能描述 追踪邮件线索,节省邮件查找时间

利用邮件合并功能自动发送工资条(邮件)(excel+word+outlook)

利用邮件合并功能自动发送工资条(邮件) (excel+word+outlook) 中科院软件中心邹立刚 日常工作中,发放工资条是个较为繁琐的事情,且纸质工资条保密性较差,虽然很多公司已经上了ERP、OA,但如需集成工资条发送功能,其开发费用也不菲,少则几万,多则数十万。本文通俗易懂,简单易学,着重介绍了word的邮件合并功能,结合excel、outlook 的使用,使人事、财务人员快速掌握自动发送工资条的方法,极大地提高了工作效率。该方法也可用于自动发送请柬、贺卡,请广大读者自行研究。本文所用软件均为office系列2003版。本文属于原创,请转载者标明出处。 一、用excel制作工资表 首先用excel做一张工资表,假如做一张非常简单的工资表如下(记得一定要有邮箱一列,否则一会儿就没办法发邮件了): 做好后,存为《11月工资表》。 二、用word执行邮件合并 打开word,选择工具——信函与邮件——邮件合并。 (1)这时右侧会出现提示操作“选择文档类型”。因为要发邮件的,所以这里我们选择“电子邮件”,然后点击下一步:正在启用文档。 (2)出现“选择开始的文档”,我们选“使用当前文档”,然后点击“下一步:选择收件人”。 (3)出现“选择收件人”。我们选“使用现有列表”,选“浏览”,我们可以把刚才做的excel文档“11月工资表”导入进来。然后点击“下一步:撰写电子邮件”。 (4)这时出现“撰写电子邮件”。 A.我们先不要管它,先到word文档里面写上要给大家发的邮件。比如象下面这样写(注意这个是直接写到当前的word文档里面的) 感谢您对本公司做出的贡献和努力。现向您发送07年11月的工资条。本月您的工资明细为:

Microsoft office 20032007 outlook 如何设置自动回复

Microsoft office 2003/2007 outlook 如何设置自动回复 工具->规则和通知->新建规则, 由空白规则开始->邮件到达时检查->若发件人 为(把你的好友加进来,请不要使用全部回复,会泄漏你的信息,比如一些垃圾邮件)->使用特定模板答复. 一、窗体和模板简介 窗体与模板的区别之一在于它们的使用方式与保存位置不同。窗体应当发布到Outlook窗体库之一,例如“个人窗体库”包含私人使用的窗体,各种以Outlook 文件夹命名的窗体库包含了在特定文件夹下使用的窗体。 模板是扩展名为.oft的普通Windows文件。选择菜单“文件/新建/选择窗体”,在“查找”栏选择模板文件夹(例如“文件系统中的用户模板”),就可以找到各种可用的模板。如果要使用窗体,选择菜单“文件/新建/选择窗体”,选择合适的窗体库或文件夹,然后选择可用的窗体。如果窗体被发布到了 Outllook文件夹(例如收件箱),该窗体的名字可以从“动作”菜单找到。Outlook本身带有许多标准(或默认)窗体,它们就是用户打开某个 Outlook文件夹后点击“新建” 按钮时看到的窗体,具体看到哪一个窗体与当时打开的文件夹有关,例如,打开收件箱文件夹时,点击“新建”按钮打开的是新建邮件的窗体。 创建自定义窗体之后,必须把窗体发布到某个窗体库才能使用它。窗体库一般是本地的;如果在网络上,则目标必须是共享或公用的文件夹,而且还要有必要的权限。 如果使用了email定制窗体,应当确保收件人能够识别该窗体。由于窗体是定制的,收件人不一定能够访问窗体的定义信息。为了确保收件人能够看到完整的邮件,必要时应当把窗体定义信息和窗体一同发送。下面我们可以看到,有一个复选框专门用来完成这个任务,它保证收件人接收的email中包含窗体的定义信息。另外,使用定制窗体时,还应当保证收件人使用的是Outlook,否则,他们可能无法查看收到的内容。但是,对于模板文件,这种情况就不会出现了。 二、创建邮件模板 要创建邮件模板,第一步是创建一个新的邮件。在文件夹视图中点击“收件箱”,再点击“新建”按钮创建新邮件。填写邮件的内容,一般地,这里需要输入一些邮件的正文内容和签名。具体需要输入哪些内容与模板的用途有关。例如,如果email模板用于外出通知,只需说明自己不在办公室,紧急公务请联系另外的人;对于常规的公告邮件,则应当包含所有总是在公告中出现的内容。记住,应用模板时模板本身不会被改变,删除文字总是要比添加文字方便,所以,最好在模板

outlook使用技巧

Outlook使用技巧 目录 一.自定义邮件组和邮件地址 (2) 二.添加个人文件夹 (6) 三.邮件的自动存档 (8) 四.邮件撤回 (9) 五.外出助理设置 (11) 六.自动签名 (13) 七.邮件选项 (15) 八.Outlook 日历 (18) 九.任务 (22) 十.垃圾邮件处理 (27)

一.自定义邮件组和邮件地址 在outlook中,自定义的邮件组和邮件地址可以放在个“个人通讯簿”或“联系人”这两种“地址簿”上。 1.添加个人通讯簿。 在工具菜单中选“服务”,打开后如下图所示,在服务中按“添加”,在“添加服务”中选择“个人通讯簿”,然后按确定就可以。

2.创建自定义的邮件组。 打开通讯簿,在通讯簿中选择“添加新地址”,在添加新地址框中选择“个人通讯组列表”。 在个人通讯簿列表属性框中,输入自定义的组的名称,然后在点击“添加/删除成员”,然后在出现的地址簿中选择需要添加的人员。这样就可以完成自定义组的设置。

3.自定义邮件地址 打开“通讯簿”,选择“添加新地址”,然后选择将地址放在“联系人”,然后选择“新建联系人”,按确定, 出现以下图表,可以填写上相关联系人的姓名,邮件地址等,然后按保存并关闭,

当打开联系人时就可以找到自定义的邮件地址。 在发送邮件时,在邮件地址列表中选择联系人,就可以找到自定义的邮件地址或组地址发送邮件。如下图。

二.添加个人文件夹。 在工具菜单中选“服务”,打开后如下图所示,在服务中按“添加”,在“添加服务”中选择“个人文件夹”,然后按确定,在“创建/打开个人文件夹文件”框中选择相应的路径,在我们公司中这个路径一般是在D:\mail目录, 然后在文件名中给出一个文件名,注意文件名的后缀都是pst(如abc.pst),如下图。

如何让outlook自动保存特定发件人发来的邮件中的附件

一、打开Outlook ,首先启用宏: 文件-选项- 信任中心-信息中心设置-宏设置-启用所有宏-确 定-确定 二、按下Alt+F11 点击插入-模块 拷贝下面的代码 Public Sub SaveAttach(Item As Outlook.MailItem) SaveAttachment Item, "z:\Quality_Control\Taqman\" MsgBox "已经把Taqman结果保存在了公共盘" End Sub ' 保存附件 ' path为保存路径,condition为附件名匹配条件 Private Sub SaveAttachment(ByVal Item As Object, path$, Optional condition$ = "*") Dim olAtt As Attachment Dim i As Integer If Item.Attachments.Count > 0 Then For i = 1 To Item.Attachments.Count Set olAtt = Item.Attachments(i) ' save the attachment If olAtt.FileName Like condition Then olAtt.SaveAsFile path & olAtt.FileName End If Next End If Set olAtt = Nothing End Sub Note:第二行后面有一个文件的路径这个是就是自己想要保存文件的的位置,自己输入后然后保存 如下图:

点击保存,然后关闭窗口 三、打开Outlook点击: 文件--管理规则和通知-新建规则-对我接收的邮件应用规则 –下一步---在发件人为个人或公用组前面点上对勾,然后点击—个人或公用组 发件人中输入需要输入的发件人,比如tca@https://www.wendangku.net/doc/1f2703246.html,这一条可以根据自己的需要来写,或者有其他需要的话都可以自己定制要求,大家都可以试试

Outlook技巧之邮件自动分类

Outlook技巧之邮件自动分类 1常见的E-mail软件没有分拣功能,来自不同信箱的邮件统统放入“收件箱”。如果能根据信箱账号等信息,把邮件分类放入不同文件夹,将有助于大量邮件的管理。最新的Outlook Express 提供了按规则自动分拣邮件的功能:(相关文章:Outlook经典技巧问答六则) 一、建立文件夹 用鼠标右键单击Outlook Express 中的“本地文件夹”,在快捷菜单中选“新文件夹”。在“新文件夹”对话框中填入新文件夹名称(如“生管”),单击“确定”,一个新文件夹就出现在“本地文件夹”下。 二、建立分拣规则 单击“工具”、“邮件规则”子菜单下的“邮件”命令,在“邮件规则”对话框中单击“新建”按钮,打开“新建邮件规则”对话框。 其中的“选择规则条件”用来建立分拣条件,如按信箱分拣,可选“若邮件来自指定的账户”。当然,你可以复选多个项目,建立比较复杂的分拣条件。 接着“选择规则操作”,对分拣来说一般选“移动到指定的文件夹”或“将它复制到指定的文件夹”。如图: 此后“规则说明”中就出现了带下划线的链接(本例为两个“指定的”),单击这些链接就会打开对话框,让你选择或输入对规则的说明。对本例来说,单击第一个“指定的”,会打开“选择账号”对话框,让你选择Outlook Express 6中已有的信箱账号。单击第二个“指定的”,会打开“移动”或“复制”对话框,让你选择邮件收到后“移动”或“复制”目的文件。完成后在“规则名称”下输入你给这一规则命的名(也可采用默认名),最后单击“确定”。一个新的规则名就加入到“邮件规则”对话框,将其选中后单击“马上应用”按钮。就会弹出“开始应用规则”对话框,告知规则描述。以后下载邮件,Outlook Express 6即可按上述规则分拣邮件。 三、说明 分拣条件可对不同的信箱、文件夹等建立多个。而且规则一经建立就可以在接收邮件时起作用,不需要再启动运行。建好的规则还可以按上面介绍的方法,打开“邮件规则”对话框,单击“修改”进行变更,单击“删除”将其从系统中去掉。

如何让outlook定时发送邮件

设置让Outlook自动、定时发送邮件 Outlook 只支持延时发送,但没有按计划任务发送的功能,因此这里讲解如何使用脚本邮件任务实现发送计划(发送邮件时电脑在开机状态,OUTLOOK在运行状态)。需要的工具有3个:Windows计划任务,VBS脚本,Outlook2007或者其他版本。 1.制作待发送邮件 将待发送邮件写好,另存为一个邮件模板。 a.写好邮件,包括收件人、抄送人、内容等,与正常写邮件一样; b.Outlook2007中,选择菜单"文件\另存为",保存类型选择"Outlook 模板(*.oft)",填 好文件名保存(文件名最好英文),记录存放的详细地址; 2.制作自动发送邮件的VBS脚本 新建一个写字板文件(*.txt),将以下内容复制粘贴到写字板后保存为后缀名为.vbs的文件,记得修改文本中黄色标记的地方(填写具体的带发送邮件存放地址)。 Call SendMail Sub SendMail() Dim OutApp Dim OutMail Dim strBody Set OutApp = GetObject("", "Outlook.Application") If Err.Number > 0 Then Err.Clear Set OutApp = CreateObject("Outlook.Application") If Err.Number > 0 Then MsgBox "Could not create Outlook object.", vbCritical Exit Sub End If End If OutApp.Session.Logon Set OutMail = OutApp.CreateItemFromTemplate("C:\ReserveTempLab.oft") '这里根据你模板的保存位置修改 With OutMail .Send End With Set OutApp = Nothing Set OutMail = Nothing

自动保存Outlook邮件的附件(利用VBA)

自动保存Outlook邮件的附件 在工作中定期或不定期会收到一些数据文件,然后要将它们的附件保存到自己的电脑上,下面演示如何让Outlook自动做这件事情。 首先,下面的SaveAttach函数可以保存附件中的docx文档到D盘根目录下。用ALT+F11打开VBA编辑器(注意:是打开Outlook的VBE编辑窗口),插入下述代码: Public Sub SaveAttach(Item As Outlook.MailItem) SaveAttachment Item, "D:\", "*.docx" ' MsgBox "附件已保存" End Sub ' 保存附件 ' path为保存路径,condition为附件名匹配条件 Private Sub SaveAttachment(ByVal Item As Object, path$, Optional condition$ = "*") Dim olAtt As Attachment Dim i As Integer If Item.Attachments.Count > 0 Then For i = 1 To Item.Attachments.Count Set olAtt = Item.Attachments(i) ' save the attachment If olAtt.FileName Like condition Then olAtt.SaveAsFile path & olAtt.FileName End If Next End If Set olAtt = Nothing End Sub 如何实现自动保存呢?利用Office Outlook 2007的规则,它可以设定对满足一定条件的邮件自动运行脚本,然后选择脚本为SaveAttach函数即可。这样便能实现收到某些邮件时自动保存符合条件的附件到相应文件目录。 说明:Outlook里面可以设置“通知和规则”,(在“工具”=>“规则和通知”)如图:

用outlook发送邮件不会自动跳入已发送邮件箱里

用outlook express发送邮件,邮件已发出后自动保存到发件箱内,不能进入已发送文件夹,是何原因? 适用范围: Outlook Express 问题: 用outlook express发送邮件,邮件已发出后自动保存到发件箱内,不能进入已发送文件夹,关闭outlook express 后,再打开时会再发送一遍.以前邮件发送后,就自动转到“已发送邮件“中,现在转不过去.是何原因? 原因: 是因为outlook express的已发送文件夹.dbx容量达到了2GB的限制,或者数据库结构损坏,或者从光盘上COPY 到存储目录中导致此文件夹属性为只读. 解决方法: : 1.打开outlook express.在已发送文件夹处点击鼠标右健,如下所示 2.如上图所示,点击"新建文件夹",在弹出的对话框中输入: 001 .然后确定.新的文件夹就创建成功了.

3,如上述方法,在已发送文件夹下再创建一到四下子文件夹,然后把已发送文件夹中的邮件全部移入到这些新建的文件夹中.让已发送文件夹为空.如下图所示: 4,然后打开outlook express >工具>选项>维护>存储文件夹>,如下图所示 5.将存储文件夹中的路径复制下来.然后关闭outlook express .打开我的电脑.在地址栏中粘贴地址并回车.就能看到如下图

示: 6.如上图,将已发送邮件.dbx 改名为已发邮件邮件old.dbx ,然后再次打开outlook express .OE 在检测到已发送邮件.dbx不存在时,就会生成一个新的,正常的文件夹.此时您遇到的发送邮件成功后,邮件不能成功进入已发送邮件文件夹中的故障就排除了,建议注意观查OE 的各个存储文件夹大小,不要超过2GB.否则会导致邮件丢失及出现异常故障. [返回首页]

在Outlook中如何实现自动密送的方法

如何在outlook中实现自动密送的方法 密抄到多人这个需要用到宏的,1、在Outlook里面键入ALT+F11打开VBA编辑器; 2、键入CTRL+R激活左边的那个工程面板,展开并双击上面的“Project (VbaProject.OTM)\Microsoft Office Outlook 对象\ThisOutlookSession”; 3、将下面的代码粘贴到右边打开的编辑区里面去: Option Explicit Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim oItem As MailItem Dim oRecipient As Recipient Set oItem = Item ' 在这里参考如下代码根据需要增删BCC收件人 Set oRecipient = oItem.Recipients.Add("user1@https://www.wendangku.net/doc/1f2703246.html,") oRecipient.Type = Outlook.olBCC Set oRecipient = oItem.Recipients.Add("user2@https://www.wendangku.net/doc/1f2703246.html,") oRecipient.Type = Outlook.olBCC Set oRecipient = oItem.Recipients.Add("user3@https://www.wendangku.net/doc/1f2703246.html,") oRecipient.Type = Outlook.olBCC oItem.Recipients.ResolveAll oItem.Save Set oRecipient = Nothing Set oItem = Nothing End Sub 4、根据需要按照我上面代码中的注释增删BCC收件人地址; 5、键入CTRL+S保存,再键入ALT+Q退出VBA编辑器返回Outlook主界面; 6、选择菜单“工具-信任中心”,在弹出窗口中选择“宏安全性”; 7、选择“为所有宏提供警告”或者“不执行宏安全性检查”(建议选择前者); 8、重新启动Outlook,看到提示是否否用宏,选择启用。 现在你发出去的每一封邮件都自动抄送给了代码中设置的那些BCC收件人了。 ----------

outlook自动密送设置

outlook自动密送设置方法 今日第二技巧学习:上文说到,反正也不用监管其他邮箱了,干脆用回outlook好了,而且发现outlook2010有了很大的改观,但是关于outlook的短板,一个是多账户的管理,这次发现好像增加了,但是没细研究,只是好像;另外一个是自动密送的设置,嗯,这次还是没有,所以我又去搜罗方法,如下操作: 1. 打开outlook,快捷键 ALT+F11,打开VBA,如下界面: 2. 贴入如下代码即可: Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String On Error Resume Next strBcc = "***@https://www.wendangku.net/doc/1f2703246.html," '请改成你要密送的邮件地址 Set objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC If Not objRecip.Resolve Then strMsg = "不能解析密件抄送人邮件地址, " & _ "请确认是否仍然发送邮件?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ "不能解析密件抄送人邮件地址") If res = vbNo Then Cancel = True End If End If

Set objRecip = Nothing End Sub 我测试了一下,很成功!

怎样自动发送电子邮件

题目:怎样自动发送电子邮件 作者:林晓斌 日期:2010年6月12日 使用Excel VBA 和Outlook 可自动发送邮件,这主要是基于Outlook Object Library中的功能,结合VBA实现。笔者在Excel 2003 中编制了一个宏命令SendMail,以及设计了Contacts和Message工作簿,以帮助发送邮件。它的使用如下: ?打开包含宏命令的Excel文档,在Contacts工作簿中的第一列置入收件人的邮件地址,见图1。 ?在Message工作簿中输入邮件标题,附件文件名(最多两个附件),以及邮件内容,见图2。 ?回到Contacts工作簿,输入本次邮件发送地址的始发行和终止行号,收件人邮箱地址,发送时间间隔(主要是不希望系统误认是发送垃圾 邮件),以及邮件一次发送的人数(建议在10人以下),见图1。 ?打开宏命令并编辑宏命令,将工具/引用中的Microseft Outlook 11.0 Object Library选上,如果已选上则忽略此步骤。 ?执行宏命令,Outlook将每隔几秒发送一次邮件,直到所有始发行至终止行间的地址全部发送完毕。宏命令脚本见附录一。 这种方法的好处是操作简便,但由于发送过程中Outlook将会弹出一些对话框,而使得邮件发送无法真正自动,需要交互点击对话框。但是,不管怎样,和手工发送邮件相比,工作已经大大简化。 图1:Contacts 工作簿输入

图2:Message 工作簿输入

附录一:发送邮件的宏命令VBA脚本 Option Explicit Private Declare Sub Sleep Lib "kernel32" _ (ByVal dwMilliseconds As Long) Sub SendMail() '要能正确发送并需要对Microseft Outlook进行有效配置 ' ' this macro can send the email to a number of recipients automatically ' ' developed by Xiaobin Lin ' On Error Resume Next Dim rowCount, endRowNo, startRowNo Dim i Dim myMessage, strRecipient, strRecipientBCC, strAttach Dim timeIncrement, numRecipient '要正常运行下面这句,要将工具/引用中的Microseft Outlook *.0 Object Library(其中*为你Microseft Outlook的版本号)选上 Dim objOutlook As New Outlook.Application Dim objOutlookRecip As Outlook.Recipient Dim objMail As MailItem '取得当前工作表与Cells(1,1)相连的数据区行数 startRowNo = Worksheets("Contacts").Cells(1, 3) endRowNo = Worksheets("Contacts").Cells(2, 3) timeIncrement = Worksheets("Contacts").Cells(6, 3) numRecipient = Worksheets("Contacts").Cells(8, 3) '创建objOutlook为Outlook应用程序对象 Set objOutlook = New Outlook.Application '开始循环发送电子邮件 rowCount = startRowNo Do While rowCount <= endRowNo 'For rowCount = startRowNo To endRowNo '创建objMail为一个邮件对象 Set objMail = objOutlook.CreateItem(olMailItem) With objMail '设置收件人地址(从通讯录表的'E-mail地址'字段中获得) '.To = Cells(rowCount, 1) ' Add the To recipient(s) to the message. strRecipient = Worksheets("Contacts").Cells(4, 3) Set objOutlookRecip = .Recipients.Add(strRecipient) objOutlookRecip.Type = olTo ' Add the CC recipient(s) to the message. 'Set objOutlookRecip = .Recipients.Add("Michael Suyama") 'objOutlookRecip.Type = olCC

outlook 如何设置自动回复

outlook 如何设置自动回复 一、窗体和模板简介窗体与模板的区别之一在于它们的使用方式与保存位置不同。 窗体应当发布到Outlook窗体库之一,例如“个人窗体库”包含私人使用的窗体,各种以Outlook文件夹命名的窗体库包含了在特定文件夹下使用的窗体。模板是扩展名为.oft的普通Windows 文件。选择菜单“文件/新建/选择窗体”,在“查找”栏选择模板文件夹(例如“文件系统中的用户模板”),就可以找到各种可用的模板。如果要使用窗体,选择菜单“文件/新建/选择窗体”,选择合适的窗体库或文件夹,然后选择可用的窗体。如果窗体被发布到了 Outllook文件夹(例如收件箱),该窗体的名字可以从“动作”菜单找到。Outlook本身带有许多标准(或默认)窗体,它们就是用户打开某个 Outlook文件夹后点击“新建”按钮时看到的窗体,具体看到哪一个窗体与当时打开的文件夹有关,例如,打开收件箱文件夹时,点击“新建”按钮打开的是新建邮件的窗体。创建自定义窗体之后,必须把窗体发布到某个窗体库才能使用它。窗体库一般是本地的;如果在网络上,则目标必须是共享或公用的文件夹,而且还要有必要的权限。如果使用了email定制窗体,应当确保收件人能够识别该窗体。由于窗体是定制的,收件人不一定能够访问窗体的定义信息。为了确保收件人能够看到完整的邮件,必要时应当把窗体定义信息和窗体一同发送。下面我们可以看到,有一个复选框专门用来完成这个任务,它保证收件人接收的email中包含窗体的定义信息。另外,使用定制窗体时,还应当保证收件人使用的是Outlook,否则,他们可能无法查看收到的内容。但是,对于模板文件,这种情况就不会出现了。 二、创建邮件模板要创建邮件模板,第一步是创建一个新的邮件。在文件夹视图中点击“收件箱”,再点击“新建”按钮创建新邮件。填写邮件的内容,一般地,这里需要输入一些邮件的正文内容和签名。具体需要输入哪些内容与模板的用途有关。例如,如果email 模板用于外出通知,只需说明自己不在办公室,紧急公务请联系另外的人;对于常规的公告邮件,则应当包含所有总是在公告中出现的内容。记住,应用模板时模板本身不会被改变,删除文字总是要比添加文字方便,所以,最好在模板中放入该类email中经常出现的所有信息。如果用该模板创建的邮件总是与特定的事件相关,例如要求获取某类信息或帮助,可以为邮件设置主题,避免以后每次重新输入主题。有些邮件总是有一组固定的接收者,在“收件人”、“抄送”或“密件抄送”栏目输入这些邮件地址,可以进一步简化以后的操作。完成邮件模板之后,接下来要保存它。选择菜单“文件/另存为”,从“保存类型”列表选择Outlook模板(*.oft),输入模板文件的名字,“保存位置”显示出了保存模板的默认位置。为便于访问,可以把模板加入到Outlook面板。Outlook面板包含了许多指向Outlook工具的快捷方式。当定制模板的数量日益增加时,在Outlook面板中创建组来管理模板不失为一种好方法。 1、右击Outlook面板的任意空白区域,选择菜单“添加新组”,Outlook面板的底部出现了一个新的组,为该组指定适当的名称,例如“模板”。

如何设置Outlook 2003邮件自动收发和转寄

如何设置Outlook 2003邮件自动收发和转寄 公司设计课和生管课分别有一个电子邮箱A@https://www.wendangku.net/doc/1f2703246.html, 和B@https://www.wendangku.net/doc/1f2703246.html,,平时设计课寄给客户确认图纸的邮件都是用A@https://www.wendangku.net/doc/1f2703246.html,这个账号,但这个账号只负责发送,不负责接收;而B@https://www.wendangku.net/doc/1f2703246.html,是生管的专用邮箱,客户在收到设计课的图纸后需要确认回来给生管,而这个客户回复图纸确认的接收信箱是B@https://www.wendangku.net/doc/1f2703246.html,,这样有时如果客户不清楚我们公司邮件的收发情况,就会把回复的邮件直接发到了A@https://www.wendangku.net/doc/1f2703246.html,,造成生管那边漏单。 有没有办法让A@https://www.wendangku.net/doc/1f2703246.html, 收到的邮件自动转发到B@https://www.wendangku.net/doc/1f2703246.html,去呢?而且如果邮件里面已经寄发给B@https://www.wendangku.net/doc/1f2703246.html,的还要设置不能再次转发,还有需要程序自动收发邮件,不需要人工操作,能不能这样做? Outlook 2003简体中文版的设置说明。 Outlook 2003 简体中文版 假设Outlook 2003里已经设置了一个账号(如A@https://www.wendangku.net/doc/1f2703246.html,),打开Outlook 2003,点击菜单“工具”栏-选择“规则和通知”-在窗口“电子邮件规则”里点击“新建规则”,选择“由空白规则开始”,然后在步骤1选择“邮件到达时检查”,再在步骤2点一下“规则应用时间:邮件到达后”-下一步; 在窗口“想要检测何种条件”里的步骤1里选择勾选“收件人电子邮箱地址中包含特定词语”,然后在窗口下面的步骤2中将“特定词语”单击,在“指定在收件人电子邮箱地址中要搜索的字词或短语”下面的栏位中输入帐号A@https://www.wendangku.net/doc/1f2703246.html,(即自己收件的邮箱帐号),添加-确定,返回刚才的窗口点击“下一步”; 在窗口“如何处理该邮件”的步骤1里选择勾选“将它转寄给个人或通讯组列表”,再在窗口下面的步骤2中单击“个人或通讯组列表”,在“指定邮件转寄给:”下面的栏位中输入帐号B@https://www.wendangku.net/doc/1f2703246.html,(即要转寄的邮箱帐号),确定,返回刚才的窗口点击“下一步”; 在窗口“是否有例外”的步骤1里选择勾选“除非收件人地址中包含特定词语”,接着在窗口下面的步骤2中单击“特定词语”,在“指定在收件人电子邮箱地址中要搜索的字词或短语”下面的栏位中输入帐号B@https://www.wendangku.net/doc/1f2703246.html,(即如果发到A@https://www.wendangku.net/doc/1f2703246.html,的邮件地址中包含B@https://www.wendangku.net/doc/1f2703246.html,的邮箱帐号就不用转寄),添加-确定,返回刚才的窗口点击“下一步”,勾上“启用此规则”,点击“完成”,返回“电子邮件规则”窗口“应用”-“确定”。 这样,自动转寄已经设置完成了,所有A@https://www.wendangku.net/doc/1f2703246.html,收到的邮件将自动转寄到B@https://www.wendangku.net/doc/1f2703246.html, 邮箱帐号里去(如果发到A@https://www.wendangku.net/doc/1f2703246.html,的邮件地址中包含B@https://www.wendangku.net/doc/1f2703246.html,的邮箱帐号将不会再次转寄)。但是这只是自动转寄,我们还是要人工收发邮件,这岂不是很麻烦?所以还需要设置一下,让Outlook 2003自动收发邮件。 打开Outlook 2003菜单“工具”栏-“选项”,打开“邮件设置”,勾上“联机情况下,立即发送”,在点击打开“发送/接收”,新建一个“发送/接收组”,输入帐号A@https://www.wendangku.net/doc/1f2703246.html,(即自己收件的邮箱帐号),确定后返回刚才的窗口,选择A@https://www.wendangku.net/doc/1f2703246.html,帐号,在“组“A@https://www.wendangku.net/doc/1f2703246.html,”的设置”下面将三项都勾上,时间的设置可以自定,比如30分钟。在“当Outlook 脱机时”把下面的两项取消勾选,点击“关闭”返回“邮件设置”窗口-“确定”OK 现在设置完了,看看Outlook 2003是不是每隔30分钟自动收发A@https://www.wendangku.net/doc/1f2703246.html,这个帐号的邮件,同时把发到A@https://www.wendangku.net/doc/1f2703246.html,邮箱中不包含有B@https://www.wendangku.net/doc/1f2703246.html,邮箱帐号的邮件自动转发到B@https://www.wendangku.net/doc/1f2703246.html,邮箱。

相关文档
相关文档 最新文档