保存上次发送的电子邮件后点击访问按钮后

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