如何提高这种工作的效率?

学习知识

工作描述：定期在邮箱中接收大量的表格邮件．按文件的标帜分类，把邮件送到指定的ＯＵＴＬＯＯＫ文件夹中．（这一点我已经做到了）．接下来的工作，每当有新邮件被送到指定的文件夹后，我要手工打开这个邮件，

全选（ＣＴＲＬ＾Ａ），拷贝（ＣＴＲＬ＾Ｃ），将光标移到一个指定的ＥＸＣＬＥ表的尾部（无内容的第一行），粘贴（ＣＴＲＬ＾Ｖ）．周而复始．

我想这个问题，可以用程序（或其它简单点的方法）实现．但由于要用到两个软件（OUTLOOK、EXCLE），我就不会解决了，请各位大侠帮助。

aaaaabbbbb

可以参考以下链接。

http://www.outlookcode.com/threads.aspx?forumid=2&messageid=16116

要在outlook里打开EXCEL应用其实跟从WORD里打开差不多。

Dim objExcel as object
Dim objWorkBook as object

Set objExcel = CreateObject("EXCEL.APPLICATION")
Set objWorkBook = objExcel.Workbooks.Open("D:\mail.xls")

objWorkBook.Sheets("sheet1").Activate
maxrow = objWorkBook.Sheets("sheet1").usedrange.Rows.Count

.....

记住程序运行后把对象清空。

Set objWorkBook = Nothing
Set objExcel = Nothing

请楼主再试试看。

[此贴子已经被作者于2007-1-1 5:59:54编辑过]

学习知识

版主您给的链接打不开

aaaaabbbbb

台湾地震影响的，你访问国外的网址会比较慢，或者打不到。

同样的，最近我访问EXCELHOME太慢的，所以有可能不能及时解答outlook版问题。

yangh71

今天刚写的一个小程序,放到outlook中的module下
在d盘根目录中建立一个excel文件,文件包含3栏

姓名	时间	文件名
Junny Kwong	1/15/2007 14:41	艾宗文.htm

需要包含一行数据.
具体程序如下

Sub HRI2EXCEL()
'2007-1-25
'这是一个能够从活动的窗口中下载附件并将发送人,时间和附件的名称写入excel中
'运行前需要打开一封邮件,然后运行下面的代码.
Dim mFileName, mSubject As String
Dim iPos As Integer
Dim i As Integer
Dim C As MailItem
Set C = ActiveInspector.CurrentItem

If TypeName(C) <> "MailItem" Then
    MsgBox "当前活动窗口不是一封邮件"
ElseIf C.Attachments.Count > 0 Then '必须是在有附件的情况下
    'MsgBox C.Subject
    'MsgBox C.CreationTime
    'MsgBox C.SenderName
   
        Dim xlsObj As Excel.Application
        Set xlsObj = CreateObject("Excel.Application")
        xlsObj.Visible = False '用隐藏的方式执行excel
    
        xlsObj.Workbooks.Open ("D:\data.xls")
    For i = 1 To C.Attachments.Count
        xlsObj.ActiveSheet.Range("A1").Select
        xlsObj.Selection.End(xlDown).Select
        xlsObj.Selection.Offset(1, 0).Select
        xlsObj.Selection.Value = C.SenderName
        xlsObj.Selection.Offset(0, 1).Select
        xlsObj.Selection.Value = C.CreationTime
        xlsObj.Selection.Offset(0, 1).Select
        xlsObj.Selection.Value = C.Attachments.Item(i).FileName
        C.Attachments.Item(i).SaveAsFile ("D:\" & C.Attachments.Item(i).FileName)
    Next
        xlsObj.ActiveWorkbook.Save
        xlsObj.Quit                '关闭excel窗口
   
Else
    MsgBox "当前邮件没有附件"
End If

End Sub