전자 메일 본문에 Outlook Script로 가장 오래된 전자 메일 날짜 및 시간 표시

저는 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

정확한 문구는 다를 것이지만 아이디어를 얻어야합니다.

나는 이것에 아주 새롭고 .Net의 다른 앱을 개발할 때 Google의 지식과 이전 지식을 함께 모을 수있었습니다.

어떤 도움이라도 대단히 감사하겠습니다.

microsoft-outlook vbscript

— Jae
소스

당신의 질문은 어디에 있습니까?

— DavidPostill

누구든지이 코드가받은 편지함에서 읽지 않은 마지막 이메일의 날짜와 시간을 가져 와서 전자 메일 본문에 표시하는 코드를 알고 있습니다.

— Jae

코드 토론은 StackOverflow 질문에 대한 것입니다. 바라건대 이리저리 옮길 수 있도록 플래그를 지정합니다.

— Sun

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

— Syberdoor
소스