Outlookの電子メールの画像の添付ファイルを圧縮する3つの簡単な方法

Outlookソリューション 2025 年 9 月 29 日
今すぐ共有：

複数の画像を添付ファイルとして誰かに送信する必要がある場合、これらの画像が大きすぎる場合は、画像の添付ファイルを圧縮することをお勧めします。 したがって、この記事では、それを実現するための3つの便利な手段を紹介します。

ご存知のとおり、Outlookで大きなメールを送信するには通常時間がかかります。 たとえば、複数の大きな画像が添付されたメールを送信しようとすると、画像が送信トレイに留まり、Outlookの動作が非常に遅くなります。 この問題を解決するためにできることは、画像の添付ファイルを圧縮することです。 そこで、ここではそれを実現するための3つのアプローチを紹介します。

方法1：「メール受信者に送信」でサイズを変更する

Outlookの電子メールに添付する前に画像を直接圧縮する場合は、この方法を使用できます。

  1. としてtart、Windowsフォルダで、添付する画像を選択します。
  2. 次に、それらを右クリックして、コンテキストメニューから[送信先]> [メール受信者]オプションを選択します。メール受信者に送信
  3. 次に、「ファイルを添付」のポップアップダイアログボックスで、「画像サイズ」をお好みに合わせて変更します。画像サイズの変更
  4. 最後に「添付」ボタンをクリックします。
  5. すぐに、圧縮された画像が添付された新着メールが表示されます。新着メールに添付画像

方法2： Zip 添付後のすべての画像添付

画像をメールに添付していて、今すぐ圧縮したい場合は、画像を圧縮して zip ファイル。 詳細な手順は次のとおりです。

  1. まず、現在のメールを開いたままにします。
  2. 次に、「Alt + F11」を押して、OutlookVBAエディターをトリガーします。
  3. 次に、次のコードをモジュールに入れます。
Sub ZipImageAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.Attachments
    Dim objAttachment As Outlook.Attachment
    Dim i As Long
    Dim objFileSystem As Object
    Dim objShell As Object
    Dim varTempFolder As Variant
    Dim varZipFile As Variant
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    varTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "dd-mm-yyyy- hh-mm-ss-")
    MkDir (varTempFolder)
    varTempFolder = varTempFolder & "\"
 
    Set objMail = Outlook.Application.ActiveInspector.currentItem
    Set objAttachments = objMail.Attachments
    For i = objAttachments.Count To 1 Step -1
        Set objAttachment = objAttachments(i)
        If IsEmbedded(objAttachment) = False Then
           Select Case LCase(objFileSystem.GetExtensionName(objAttachment.FileName))
                  Case "jpg", "jpeg", "png", "bmp", "gif"
                        objAttachment.SaveAsFile (varTempFolder & objAttachment.FileName)
                        objAttachment.Delete
           End Select
        End If
    Next
 
    varZipFile = objFileSystem.GetSpecialFolder(2).Path & "\Images.zip"
    Open varZipFile For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
  
    Set objShell = CreateObject("Shell.Application")
    objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items

    On Error Resume Next
    Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count
       Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    On Error GoTo 0

    objMail.Attachments.Add varZipFile
End Sub

Function IsEmbedded(objCurrentAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.PropertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurrentAttachment.PropertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbedded = True
    Else
       IsEmbedded = False
    End If
End Function

VBAコード- Zip 添付後のすべての画像添付

  1. その後、「F5」キーボタンを押します。
  2. マクロが終了したら、電子メール ウィンドウに戻ります。
  3. すべての画像の添付ファイルがに変換されていることがわかります zip 次のスクリーンショットに示すように、ファイル。Zipped画像の添付ファイル

方法3：メール送信前に自動リサイズ

あなたがそれらを圧縮したくない場合 zip、送信する前に大きな画像のサイズを自動変更するようにOutlookを構成できます。

  1. まず、現在のメールで右上の「ファイル」をクリックします。
  2. 次に、[情報]タブで、[このメッセージを送信するときに大きな画像のサイズを変更する]を選択します。このメッセージを送信すると、大きな画像のサイズが自動変更されます
  3. 最終的には、メッセージに戻って、自由に作成を続けてください。
  4. 「送信」をクリックすると、Outlookは自動的に画像を圧縮します。
  5. 発送後、「送信済みアイテム」フォルダで確認できます。 画像サイズは以前より小さくなっています。小さい画像

破損したOutlookPSTファイルを修正する

ご存知のとおり、Outlook PSTファイルが大きいほど、Outlookファイルが破損しやすくなります。 したがって、Outlookデータファイルを常に小さいサイズに保つことが不可欠です。 これは、不要な添付ファイルを削除したり、不要なアイテムをアーカイブしたりすることで実現できます。 さらに、タイムリーな救助を提供するために、あなたは強力なものを手に入れる必要があります PST修正 などのツール DataNumen Outlook Repair。 それはあなたが簡単に侵害されたPSTファイルを修正するのに役立ちます。

著者紹介：

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

今すぐ共有：

コメントは締め切りました。