アクセス時にボタンをクリックした後、最後に送信された電子メールを保存します

Question

Outlookからローカルフォルダに最後に送信されたメールを保存するアクセスからマクロを開始することができるのですか？私はこのようなことを今のところ持っていますが、送信するとすべてのメールを保存します。お知らせ下さい。

EDIT：これで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