保存上次發送的電子郵件後點擊訪問按鈕後

Question

我很好奇，如果有可能從訪問保存最後發送的電子郵件從Outlook到本地文件夾的宏？此時我有類似的東西，但它在發送時保存所有電子郵件。請指教。

編輯：現在我通過它進入vb的訪問，但得到了錯誤'方法或數據成員未找到'，並突出顯示第一行。

Sub SaveLastSentItem() 
    Dim oApp As Outlook.Application 
    Dim myNameSpace As Outlook.Namespace 
    Dim myFolder As Outlook.Folder 
    Dim myNewFolder As Outlook.Folder 
    Dim myItem As Outlook.MailItem 
    Dim myCopiedItem As Outlook.MailItem 
    Dim myItems As Object 
    Dim savePath As String 

    Set oApp = New Outlook.Application 

    Set myNameSpace = oApp.GetNamespace("MAPI") 

    Set myFolder = myNameSpace.GetDefaultFolder(olFolderSentMail) 

    Set myItems = myFolder.Items 
    myItems.Sort ("[SentOn]") 


    Set myItem = myItems.GetLast 

    savePath = "C:\Users\best buy\Downloads\stackoverfow\Individual Reports\" '## Modify as needed 
    savePath = savePath & myItem.Subject & Format(myItem.CreationTime, " yyyy-mm-dd-hhNNss") 
    savePath = savePath & ".oft" 


    myItem.SaveAs savePath, OlSaveAsType.olMsg 

End Sub 

Answer 1

是你需要通過SENTON日期發送文件夾排序MailItems。然後，您可以使用MailItem.GetLast來設置對發送的最後一封電子郵件的引用。

Sub SaveLastSentItem() 
    Dim oApp As Outlook.Application 
    Dim myNameSpace As Outlook.NameSpace 
    Dim myFolder As Outlook.Folder 
    Dim myNewFolder As Outlook.Folder 
    Dim myItem As Outlook.MailItem 
    Dim myCopiedItem As Outlook.MailItem 
    Dim myItems As Object 
    Dim savePath As String 

    Set oApp = New Outlook.Application 

    Set myNameSpace = oApp.GetNamespace("MAPI") 

    Set myFolder = myNameSpace.GetDefaultFolder(olFolderSentMail) 

    Set myItems = myFolder.Items 
    myItems.Sort ("[SentOn]") 


    Set myItem = myItems.GetLast 

    savePath = "C:\Users\best buy\Downloads\stackoverfow\Individual Reports\" '## Modify as needed 
    savePath = savePath & myItem.Subject & Format(myItem.CreationTime, " yyyy-mm-dd-hhNNss") 
    savePath = savePath & ".oft" 


    myItem.SaveAs savePath, OlSaveAsType.olMSG 

End Sub