Отображение самой старой даты и времени с помощью сценария Outlook в теле сообщения

Question

Я работаю над автоматическим ответом в Outlook 2010 с использованием сценария VBA, чтобы всякий раз, когда кто-то отправлял мне электронное письмо, был автоматический ответ, который отвечал мне текущим количеством непрочитанных сообщений, а также датой и временем самого старого сообщения.

Что касается Кодекса, это то, что я имею до сих пор:

Sub AutoResponse(objmsg As Outlook.MailItem)

    Dim objReply As MailItem
    Dim omsgItem As Outlook.MailItem
    Dim inbox As MAPIFolder
    Set inbox = Application.GetNamespace("MAPI"). _
    GetDefaultFolder(olFolderInbox)


    Set objReply = objmsg.Reply


    objReply.Subject = "Re: " & objReply.Subject
    objReply.HTMLBody = "Hello," _
    & "<br>" _
    & "<br>" _
    & "<br>" _
    & "Thank you for your email. This is to verify that I have received your email. I currently have " & inbox.UnReadItemCount & " unread emails and the oldest email is (Code goes here) in my inbox and will be reading emails in a first in first out fashion. If the matter is urgent and cannot wait please call me directly" _
    & "<br>" _
    & "<br>" _
    & "Regards, Mike" _
    & "<br>" _
    objReply.Send
    Set objReply = Nothing

End Sub

Точная формулировка будет отличаться, но вы должны понять.

Я чрезвычайно новичок в этом и смог собрать немного кода из Google и предыдущих знаний при разработке другого приложения в .Net.

Любая помощь будет принята с благодарностью.

Answer 1

Const olFolderInbox = 6
Dim mapiNamespace As Outlook.NameSpace
Dim inboxFolder As Outlook.Folder
Dim unreadItems As Outlook.Items

Set mapiNamespace = Application.GetNamespace("MAPI")
Set inboxFolder = mapiNamespace.GetDefaultFolder(olFolderInbox)
Set unreadItems = inboxFolder.Items.Restrict("[Unread] = True")
unreadItems.Sort "[ReceivedTime]", False

Приведенный выше код фильтрует только непрочитанные письма из вашего почтового ящика и сортирует их по полученному времени. Если у вас есть это, вы можете легко получить доступ к самой старой с:

unreadItems.GetFirst().ReceivedTime