添付ファイルのあるOutlook電子メールを転送する場合、すべてではなく、選択した添付ファイルのみを保持したい場合があります。 ここで、この記事では、選択した添付ファイルのみを含むメールをすばやく転送する方法を説明します。
標準的な方法では、Outlookの電子メールを転送すると、すべての元の添付ファイルが転送されます。 ただし、すべてではなく一部の添付ファイルのみを転送したい場合があります。 通常、通常どおりメールを転送してから、不要な添付ファイルを手動で削除できます。 しかし、それは少し面倒です。 したがって、ここでは、選択した添付ファイルのみを含む電子メールを転送するためのはるかに迅速な方法を紹介します。
選択した添付ファイルのみを含む電子メールをすばやく転送する
- 最初に、「Alt + F11」ショートカットを使用してOutlookVBAエディターを起動します。
- 次に、次のコードをコピーしてプロジェクトまたはモジュールに貼り付けます。
Sub ForwardMailWithSelectedAttachmentsOnly()
Dim objMail As Outlook.MailItem
Dim strTempFolder As String
Dim strFile As String
Dim objSelectedAttachments As Outlook.AttachmentSelection
Dim objAttachment As Outlook.Attachment
Dim objForward As Outlook.MailItem
'Get the selected email
Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
'Get the selected attachments
Set objSelectedAttachments = Outlook.Application.ActiveExplorer.AttachmentSelection
If objSelectedAttachments.Count > 0 Then
'Forward this email
Set objForward = objMail.Forward
objForward.Display
'Delete all the forwarded attachments
Do Until objForward.Attachments.Count = 0
objForward.Attachments.Item(1).Delete
Loop
On Error Resume Next
strTempFolder = "E:\Temp" & Format(Now, "yyymmddhhmmss") & "\"
MkDir (strTempFolder)
'Re-attach the selected attachments to the forward mail
For Each objAttachment In objSelectedAttachments
strFile = strTempFolder & objAttachment.FileName
objAttachment.SaveAsFile (strFile)
objForward.Attachments.Add (strFile)
Next
Kill strFile
End If
End Sub
- 次に、VBAエディターを終了します。
- その後、前のページの「オプションの手順」に従ってくださいost OutlookでVBAコードを実行する方法」をクリックして、このマクロをクイックアクセスツールバーまたはリボンに追加します。
- 最終的には、このマクロを試すことができます。
- まず、閲覧ウィンドウがオンになっていることを確認します。
- 次に、転送するメールアドレスと添付ファイルを選択します。
- 次に、クイックアクセスツールバーまたはリボンのマクロボタンをクリックします。
- すぐに、新しいメールが表示されます。 ご覧のとおり、これは選択した添付ファイルのみを含む転送メールです。
節のあるOutlookデータの破損を修正
Outlookのクラッシュに遭遇したことがありますか？ そして、そのようなクラッシュはPSTデータの破損をもたらしましたか？ このような問題に遭遇したことがある場合は、それらがいかに節度があり面倒であるかを理解しているかもしれません。 通常、小さな問題は受信トレイ修復ツールで解決できます。 しかし、深刻なトラブルのために、 Outlookの破損、次のようなより強力なユーティリティを利用する必要があります DataNumen Outlook Repair.
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL Server 修正します と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com