注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

奕克

爱家人爱工作爱生活

 
 
 

日志

 
 

通过邮件批量自动分发文件的程序  

2012-12-11 13:05:24|  分类: office |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
       这次工作需要,要把学生的上传实验报告发回他们,鉴于隐私,应该让文件“各回各家,各找各妈”,每个同学只能收到一个文件夹里自己的报告。手工操作太麻烦,写了几十行vba程序搞定,“一次编写,终身受益”,不要让自己成为富士康工人,整天机械重复劳动就是《office编程》课的口号了。。。
      如下图的文件夹:
通过邮件批量自动分发文件的程序 - wucccsk - 天秤的存在与虚无博客
 
里面的邮件地址是如下的excel表格:
通过邮件批量自动分发文件的程序 - wucccsk - 天秤的存在与虚无博客
         根据这个邮件列表,把文件夹里文件名包含这个人名字的文件发给相应的邮箱。非常简单的程序,需要进入outlook2003的宏VBA编程环境,当然要首先给outlook2003配置一个用来发送邮件的邮箱帐号。之所以不用VBS脚本文件来做,是因为VBS通过outlook发邮件时会弹出对话框需要人工确认,比较麻烦。
     在宏环境中拷入如下代码,运行即可。示例文件在(http://cloud.189.cn/t/6ZnEza7fQb6z),里面的批量分发邮件.txt为代码。

Dim Path, mailtitle, mailbody As String
Dim myFolder, myfiles
Sub main()
mailtitle = InputBox("输入邮件标题:", , "你好,你的分发邮件")
mailbody = InputBox("输入邮件正文:", , "祝生活愉快!")
Path = InputBox("输入分发文件和邮件地址所在目录:", , "c:\vbasplitmail")
Set app = CreateObject("excel.application")
Set cl = app.workbooks.Open(Path & "\邮件地址.xls")
Set fso = CreateObject("Scripting.FileSystemObject")
Set myFolder = fso.GetFolder(Path)
Set myfiles = myFolder.Files
For i = 1 To cl.worksheets(1).usedrange.rows.Count
   Call sendmail(cl.worksheets(1).cells(i, 1).Value, cl.worksheets(1).cells(i, 2).Value)
Next
cl.Close
Set cl = Nothing
Set app = Nothing
Set myfiles = Nothing
Set myfold = Nothing
Set fso = Nothing
End Sub

Sub sendmail(name As String, address As String)
Set omailitem = Application.CreateItem(0)
omailitem.To = address
omailitem.Subject = mailtitle
omailitem.Body = mailbody
For Each myfile In myfiles
        If InStr(myfile.name, name) <> 0 Then
              omailitem.Attachments.Add Path & "\" & myfile.name
        End If
Next
omailitem.Send
Set omailitem = Nothing
End Sub
  评论这张
 
阅读(157)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017