解凍方法 .Zip VBAを介してOutlookに直接添付ファイル

Outlookソリューション 2025 年 9 月 29 日

添付ファイルを受け取った場合.zip」ファイル拡張子の場合、それらを解凍したい場合は、一般的にはローカルドライブに保存して解凍する必要があります。しかし、Outlookで直接解凍したいという人も多くいます。この記事では、VBAを使用してそれを取得する方法を説明します。

あなたはこれまで「.zip」ファイル拡張子。 XNUMXつの内部ファイルにアクセスするために zip ファイルを開くには、まず解凍する必要があります。この場合、通常どおり、まず保存する必要があります。 zip ファイルをローカルドライブに保存し、右クリックしてコンテキストメニューから「すべて展開」を選択します。実際には、多くのユーザーはOutlook内で直接ファイルを解凍することを好みます。しかし、Outlookにはそのようなネイティブ機能はありません。幸いなことに、以下の手順に従うことで、VBAを使用して簡単に実現できます。

解凍します .Zip Outlookで直接添付ファイル

まず、Outlookアプリケーションを起動します。
次に、Outlookウィンドウで「Alt + F11」キーのショートカットを押して、VBAエディターにアクセスします。
次に、「Microsoft Visual Basic for Applications」ウィンドウで、使用されていないモジュールを開きます。
続いて、次のVBAコードをコピーしてこのモジュールに貼り付けます。

Public Sub UnzipFileInOutlook()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objShell As Object
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim strFileName As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttachments = objMail.attachments
 
    'Save & Unzip the zip file in local drive
    Set objShell = CreateObject("Shell.Application")
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "yyyy-mm-dd-hh-mm-ss")
    MkDir (strTempFolder)
 
    For Each objAttachment In objAttachments
        If Right(objAttachment.FileName, 3) = "zip" Then
           strFilePath = strTempFolder & "\" & objAttachment.FileName
           objAttachment.SaveAsFile (strFilePath)
           objShell.NameSpace((strTempFolder)).CopyHere objShell.NameSpace((strFilePath)).Items
        End If
    Next
 
    'Reattach the files extracted from the zip file
    strFileName = Dir(strTempFolder & "\")
 
    While Len(strFileName) > 0
          objMail.attachments.Add (strTempFolder & "\" & strFileName)
          strFileName = Dir
          objMail.Save
    Wend
 
    'Delete the attachments in “.zip” file extension
    Set objAttachments = objMail.attachments
    For Each objAttachment In objAttachments
        If Right(objAttachment.FileName, 3) = "zip" Then
           objAttachment.Delete
           objMail.Save
        End If
    Next
 
    'Delete the temp folder and files
    objFileSystem.DeleteFolder (strTempFolder)
End Sub

その後、通常どおり、新しいVBAプロジェクトをメッセージウィンドウのクイックアクセスツールバーに追加できます。
最後に、試してみることができます。

まず、メッセージを開きます zip 独自のウィンドウでファイル。
次に、「アクション」>「メッセージの編集」をクリックします。
次に、クイックアクセスツールバーの新しいマクロボタンをクリックします。
すぐに、 zip ファイルは解凍され、以下のスクリーンショットのような状態になります。

迷惑なPSTの問題を取り除く

新しいUnicode形式のPSTファイルは20GBのファイルサイズをサポートしていますが、ファイルをできるだけ小さくすることをお勧めします。それは、大きなPSTファイルがはるかに破損しやすいためです。あなたのPSTファイルが危険にさらされると、あなたは努力する必要があります PSTを回復するデータ。そのシナリオでは、次のような実績のある評判の良いツールに戻る以外に選択肢はありません。 DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL修復と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com