如何以编程方式强制Outlook将电子邮件保存为EML / MIME。将选定的电子邮件拖放到windows文件系统时

Sub SaveSelectedEmailAsEML()
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objFileSystem As Object
    Dim strFolderPath As String
    Dim strFileName As String
    
    ' 获取选定的电子邮件
    Set objItem = Application.ActiveExplorer.Selection.Item(1)
    
    ' 确保选定的是邮件项
    If objItem.Class = olMail Then
        Set objMail = objItem
        
        ' 设置保存路径和文件名
        strFolderPath = "C:\Path\To\Save\Folder"
        strFileName = objMail.Subject & ".eml"
        
        ' 创建文件系统对象
        Set objFileSystem = CreateObject("Scripting.FileSystemObject")
        
        ' 保存为EML文件
        objMail.SaveAs objFileSystem.BuildPath(strFolderPath, strFileName), olMSG
        
        ' 释放对象
        Set objFileSystem = Nothing
        Set objMail = Nothing
    End If
End Sub

using System;
using Outlook = Microsoft.Office.Interop.Outlook;

namespace SaveEmailAsEML
{
    class Program
    {
        static void Main(string[] args)
        {
            // 创建Outlook应用程序对象
            Outlook.Application outlookApp = new Outlook.Application();

            // 获取选定的电子邮件
            Outlook.Explorer explorer = outlookApp.ActiveExplorer();
            Outlook.Selection selection = explorer.Selection;
            Outlook.MailItem mailItem = selection[1] as Outlook.MailItem;

            // 确保选定的是邮件项
            if (mailItem != null)
            {
                // 设置保存路径和文件名
                string folderPath = @"C:\Path\To\Save\Folder";
                string fileName = mailItem.Subject + ".eml";

                // 保存为EML文件
                mailItem.SaveAs(folderPath + "\\" + fileName, Outlook.OlSaveAsType.olMSG);

                // 释放对象
                System.Runtime.InteropServices.Marshal.ReleaseComObject(mailItem);
            }

            // 退出Outlook应用程序
            outlookApp.Quit();
            System.Runtime.InteropServices.Marshal.ReleaseComObject(outlookApp);
        }
    }
}