หากคุณต้องการส่งออกไฟล์แนบรูปภาพทั้งหมดของอีเมล Outlook ไปยังแผ่นงาน Excel อย่างรวดเร็ว คุณสามารถดูบทความนี้ได้ ที่นี่เราจะแสดงวิธีที่มีประสิทธิภาพมากกว่าการส่งออกด้วยตนเอง
เมื่อคุณได้รับอีเมลที่มีไฟล์รูปภาพแนบมามากมาย หากคุณต้องการใช้รูปภาพเหล่านั้นในการจัดทำรายงานใน Excel คุณคงอยากหาวิธีส่งออกรูปภาพเหล่านั้นไปยังเวิร์กชีต Excel เป็นชุดๆ ต่อไปนี้เราจะแนะนำวิธีการดังกล่าวให้คุณทราบ
ส่งออกไฟล์แนบรูปภาพทั้งหมดของอีเมลไปยังแผ่นงาน Excel
- ขั้นแรก ให้เข้าถึงแอปพลิเคชัน Outlook ของคุณตามปกติ
- จากนั้นในหน้าต่าง Outlook ให้กดปุ่มลัด "Alt + F11" ซึ่งจะเปิดหน้าต่าง "Microsoft Visual Basic for Applications" ขึ้นมา
- ในหน้าจอนี้ คุณจะต้องเปิดโมดูลที่ไม่ได้ใช้หรือแทรกโมดูลใหม่โดยตรง
- ถัดไป คุณควรคัดลอกโค้ด VBA ด้านล่างลงในโมดูลนี้
Sub ExportAllImageAttachmentsToExcelWorksheet()
Dim objSourceMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim strImage As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim objFile As Object
Dim objFiles As Object
Dim nRow As Integer
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set objSourceMail = ActiveInspector.currentItem
Case olExplorer
Set objSourceMail = ActiveExplorer.Selection.Item(1)
End Select
If Not (objSourceMail Is Nothing) Then
'Save the image attachments to a temporary folder
strTempFolder = Environ("Temp") & "\" & Format(Now, "yyyymmddhhmmss") & "\"
MkDir (strTempFolder)
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
For Each objAttachment In objSourceMail.Attachments
If IsEmbedded(objAttachment) = False Then
Select Case LCase(objFileSystem.GetExtensionName(objAttachment.filename))
Case "jpg", "jpeg", "png", "bmp", "gif"
objAttachment.SaveAsFile strTempFolder & objAttachment.filename
End Select
End If
Next
'Create a new Excel workbook
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Add
Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
objExcelApp.Visible = True
objExcelWorkbook.Activate
'Get the images in the temporary folder
Set objFiles = objFileSystem.GetFolder(strTempFolder).Files
'Insert the images into this new Excel worksheet
For Each objFile In objFiles
strImage = strTempFolder & Trim(objFile.Name)
nRow = nRow + 1
With objExcelWorksheet
.Range("A" & nRow).value = objFile.Name
'Change the height and width as per your needs
.Range("B" & nRow).ColumnWidth = 10
.Range("B" & nRow).RowHeight = 80
.Range("B" & nRow).Activate
With .Pictures.insert(strImage)
With .ShapeRange
.LockAspectRatio = msoTrue
.Width = 50
.Height = 70
End With
End With
.Columns("A").AutoFit
.Activate
End With
Next
End If
End Sub
Function IsEmbedded(objCurAttachment As Outlook.Attachment) As Boolean
Dim objPropertyAccessor As Outlook.propertyAccessor
Dim strProperty As String
Set objPropertyAccessor = objCurAttachment.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
- หลังจากนั้นคุณสามารถออกจากมาโครได้
- จากนั้นไปที่ “ไฟล์” > “ตัวเลือก” > “แถบเครื่องมือด่วน” เพื่อเพิ่มมาโครนี้ลงในแถบเครื่องมือด่วน
- สุดท้ายนี้ คุณสามารถลองใช้มาโครนี้ได้ในตอนนี้
- ขั้นแรก เลือกหรือเปิดอีเมลต้นทาง
- จากนั้นคลิกปุ่มมาโครในแถบเครื่องมือด่วน
- เมื่อมาโครเสร็จสมบูรณ์ คุณจะได้รับแผ่นงาน Excel ดังภาพหน้าจอต่อไปนี้:
ป้องกันไฟล์ Outlook ไม่ให้เสียหาย
เป็นที่ทราบกันว่า Outlook มีแนวโน้มที่จะเสียหาย ดังนั้นเราจึงควรเข้าใจวิธีการป้องกันความเสียหายของฟอร์ม Outlook ก่อนอื่น เพื่อที่จะบล็อกการโจมตีของไวรัส จำเป็นต้องติดตั้งซอฟต์แวร์ป้องกันไวรัสและไม่ต้องดาวน์โหลดไฟล์แนบที่ไม่รู้จักเด็ดขาด นอกจากนี้ เราควรจะหาเครื่องมือซ่อมแซมที่ทรงพลังอย่างเช่น DataNumen Outlook Repairสามารถให้วิธีแก้ไขที่มีประสิทธิภาพสูงสุดในกรณีต่อไปนี้ ความเสียหายของ Outlook.
บทนำผู้เขียน:
Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ การกู้คืน sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.