1、导入至excel或access,如下代码为excel里的一个宏:
Sub Exprot_Mail_xl() Dim myolapp As New Outlook.Application
Set myNameSpace = myolapp.GetNamespace("MAPI") Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox)
For i = 1 To myfolder.Items.Count '简单for...next循环,将所有邮件导出,myfolder.Items.Count是收件箱里邮件的数量
Set mymailitem = myfolder.Items(i)
With mymailitem
Sheet1.Cells(i, 1) = .Subject Sheet1.Cells(i, 2) = .SenderName Sheet1.Cells(i, 3) = .Body
End With Next
xlapp.quit End Sub ========================= 第一句:“1、导入至excel或access,如下代码为excel里的一个宏:”是指下面的宏,加载在EXCEL里? |