在邮件里面打开表格,已经做了修改并且已经保存,怎样才能找回来,急,急,急...

看链接问题是不是和你的类似，

试到此 C:\Documents and Settings\Owner\Local Settings\Temp 路径下找最近时间的Microsoft Excel 工作表（即后缀为 XLS 的），“Owner”可能为你登录系统时的名字。

设你的邮箱帐号保存在A列并从A2开始,在空白的一列(假设为C列),在C2单元格内输入公式:

=REPLACE(A2,1,3,"")

然后往下复制填充,得出结果后选中所有结果,复制到A列的需要的位置上,进行选择性粘贴(粘贴数值)即可

将HTMLBody写入剪贴板就行了

Sub EmailToExcel()

Set outlookapp = CreateObject("outlookapplication")

Set myitem = outlookappApplicationGetNamespace("mapi")

Set Myfolder = myitemGetDefaultFolder(olFolderInbox)Folders("a")

mailcounts = MyfolderItemsCount

Dim MyDataObj As New DataObject

MyDataObjSetText ""

If (MsgBox(mailcounts & " pieces of letter in a!", vbYesNo) = vbNo) Then Exit Sub

If mailcounts > 0 Then

For i = 1 To mailcounts

If WorksheetsCount < mailcounts Then

SheetsAdd After:=Sheets(SheetsCount)

End If

Set TheMail = MyfolderItems(i)

MyDataObjSetText (TheMailHTMLBody)

MyDataObjPutInClipboard

Sheets(i)Select

Sheets(i)Range("A1")Select

ActiveSheetPaste

MyDataObjSetText ""

Next i

End If

End Sub

首先准备好需要的Word信息模板和Excel数据表格，备注好名称

在Word信息模板中“邮件”功能区找到“开始邮件合并”功能，点击选择“信函”

同样在“邮件”功能区找到“选择收件人”功能，点击选择“使用现有列表”

进入选择界面后，在桌面上找到我们刚刚新建的Excel数据表，选中，然后点击“打开”

在打开的界面选中数据所在的文件，点击“确定”

同样在“邮件”功能区找到“插入合并域”功能，把对应的信息插入到对应的信息框里

完成插入后，同样在“邮件”功能区找到“完成并合并”功能，点击选择“编辑单个文档”，选择“全部”，点击“确定”，邮件合并就完成了，这时候每个信息表就是单独的一页，方便打印