Question

我目前有一个脚本，它遍历我在Outlook邮箱中指定的整个文件夹阅读每封电子邮件的发件人电子邮件，姓名，时间和正文。

很好没有问题，但是我可以使用＆＃39; wscript论证＆＃39;在脚本上删除一个电子邮件文件，然后为我显示它？

我该怎么办？我不能在脑海中逐步完成这个过程吗？

我的脚本的开头是这样的......

Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNameSpace("MAPI")

我是否必须将其更改为某个内容，或者是否需要将其更改为来自随机邮箱\文件夹？

Set objFolder = objNameSpace.Folders("Mailbox - Pavle Stojanovic").Folders("Inbox").Folders("Test") 
Set colItems = objFolder.items
' -------------------------------------------------

For Each item in colItems

' Get email data and display how I need it to be......

Next

Answer 1

所以我几乎解决了我自己的问题，但更多Googling .......

我有基本的部分，然后用我的电子邮件数据做我需要的......

而不是拖放我必须打开电子邮件...我可以忍受。

在msdn网站上找到它，只是修改了一点：）

Sub DisplayMsgValues()
 Dim myItem As Outlook.Inspector
 Dim objItem As Object

 Set myItem = Application.ActiveInspector

 If Not TypeName(myItem) = "Nothing" Then

  Set objItem = myItem.CurrentItem

  sSubject = objItem.Subject
  sSender = objItem.SenderName
  sReceivedDate = objItem.ReceivedTime
  sEmail = Split(objItem.SenderEmailAddress, "=")


  Debug.Print sSubject
  Debug.Print sSender
  Debug.Print sReceivedDate
  Debug.Print sEmail(4)
  Debug.Print objItem.Body

 Else
  MsgBox "There is no current active inspector."
 End If

End Sub

删除并拖动电子邮件以收集电子邮件详细

1 个答案: