Question

vba读取邮件标题

是否可以在outlook里面写一个宏，把当前邮件的邮件名提取出来，并发送给excel

Answer 1

试试下面的代码：

Sub 导入邮件()
On Error Resume Next
Dim olApp As New Outlook.Application, olNameSpace As Outlook.Namespace
Dim olMailItem As Outlook.MailItem, olFolder As Outlook.Folder

Set olNameSpace = olApp.GetNamespace("MAPI")
Set olFolder = olNameSpace.GetDefaultFolder(olFolderInbox) '收件箱
For i = 1 To olFolder.Items.Count
Set olMailItem = olFolder.Items(i) '获取一个邮件项目
With olMailItem
ActiveSheet.Cells(i + 2, 1) = IIf(.UnRead, "未读", "已读") '状态
ActiveSheet.Cells(i + 2, 2) = .SenderName & "(" & .SenderEmailAddress & ")" '发件人
ActiveSheet.Cells(i + 2, 3) = .Subject '主题
ActiveSheet.Cells(i + 2, 4) = .ReceivedTime '主题
End With
Next
End Sub

Answer 2

Sub 导入邮件()
On Error Resume Next
Dim olApp As New Outlook.Application, olNameSpace As Outlook.Namespace
Dim olMailItem As Outlook.MailItem, olFolder As Outlook.Folder

Set olNameSpace = olApp.GetNamespace("MAPI")
Set olFolder = olNameSpace.GetDefaultFolder(olFolderInbox) '收件箱
For i = 1 To olFolder.Items.Count
Set olMailItem = olFolder.Items(i) '获取一个邮件项目
With olMailItem
ActiveSheet.Cells(i + 2, 1) = IIf(.UnRead, "未读", "已读") '状态
ActiveSheet.Cells(i + 2, 2) = .SenderName & "(" & .SenderEmailAddress & ")" '发件人
ActiveSheet.Cells(i + 2, 3) = .Subject '主题
ActiveSheet.Cells(i + 2, 4) = .ReceivedTime '主题
End With
Next
End Sub

Answer 3

可以的，批量发送邮件，html表格都可以

追问

并不是要发送。而是把收到的邮件的邮件标题拿出来

追答

可以的

追问

那么怎么样才能做到呢？

追答

回去帮你看看

Answer 4

写好了啊。。。