Word 문서의 모든 이미지를 Outlook 전자 메일로 복사하려는 경우이 문서에 소개 된 세 가지 방법을 사용할 수 있습니다.
예를 들어, 여러 그림이 포함 된 Word 문서를 완성합니다. 나중에 문서에서 이러한 사진을 다시 사용하여 Outlook 이메일을 작성하려고합니다. 이 상황에서는 Word 문서의 이미지를 Outlook의 전자 메일로 빠르게 복사 할 수있는 빠른 솔루션이 필요합니다. 이 요구 사항을 살펴보면 여기에서 얻을 수있는 3 가지 방법을 알려 드리겠습니다.

방법 1 : 하나씩 복사
- 먼저 Outlook에서 새 이메일을 만듭니다.
- 그런 다음 원본 Word 문서를 엽니 다.
- 다음으로 Word 문서에서 그림을 선택합니다.
- 복사하려면 "Ctrl + C"를 누르십시오.
- 그 후 Outlook 이메일에 액세스하십시오.
- 마지막으로 메시지 본문에서 "Ctrl + V"를 눌러 복사 한 이미지를 붙여 넣습니다.
- 이제이 방법을 사용하여 문서의 다른 이미지를이 이메일로 하나씩 복사하십시오.
방법 2 : 이미지 저장 및 이메일에 일괄 삽입
- 먼저 열린 Word 문서에서 "파일"> "다른 이름으로 저장"으로 이동합니다.
- 그런 다음 팝업 대화 상자에서 대상 폴더를 선택하고 "파일 형식"필드에서 "웹 페이지"를 선택합니다.
- 다음으로“저장”버튼을 클릭합니다.
- 그런 다음 정상적으로 Word 응용 프로그램을 닫습니다.
- 그런 다음 새 Outlook 이메일을 만듭니다.
- 메시지 창에서“삽입”탭으로 이동하여“그림”버튼을 클릭합니다.
- 나중에 새 대화 상자에서 Word 문서를 웹 페이지로 저장할 위치로 이동합니다.
- 그런 다음 "xxx_files"라는 폴더를 엽니 다.
- 다음으로 삽입 할 이미지를 선택합니다.
- 마지막으로“삽입”버튼을 클릭합니다.
- 선택한 이미지가 이메일에 삽입 된 것을 확인할 수 있습니다.
방법 3 : VBA를 통한 일괄 복사
- 먼저 Word 문서를 엽니 다.
- 그런 다음 "Alt + F11"을 눌러 Word VBA 편집기에 액세스합니다.
- 다음으로 아래의 VBA 코드를 모듈에 복사하십시오.
Sub CopyImagesToMail()
Dim objTempDocument As Word.Document
Dim objInlineShape As Word.InlineShape
Dim objShape As Word.Shape
Dim objOutlookApp As Object
Dim objMail As Object
Dim objMailDocument As Word.Document
Dim objDocSelection As Word.Selection
'Copy the whole document to a new Temp document
Selection.WholeStory
Selection.Copy
Set objTempDocument = Word.Documents.Add
objTempDocument.Application.Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
For Each objInlineShape In objTempDocument.InlineShapes
objInlineShape.ConvertToShape
Next
'Clear text in the Temp document
With objTempDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "[^2-^255]{1,}"
.Replacement.Text = ""
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Do While objTempDocument.Shapes.Count > 0
For Each objShape In objTempDocument.Shapes
objShape.ConvertToInlineShape
Next
Loop
'Copy the images in Temp Document
objTempDocument.Application.Selection.WholeStory
objTempDocument.Application.Selection.Copy
On Error Resume Next
Set objOutlookApp = GetObject(, "Outlook.Application")
If objOutlookApp Is Nothing Then
Set objOutlookApp = CreateObject("Outlook.Application")
End If
'Create a new Outlook email
Set objMail = objOutlookApp.CreateItem(olMailItem)
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
Set objDocSelection = objMailDocument.Application.Selection
'Paste the copied images into email
objDocSelection.Collapse Direction:=wdCollapseStart
objDocSelection.PasteAndFormat (wdUseDestinationStylesRecovery)
objTempDocument.Close False
End Sub
- 그 후 "F5"키를 눌러이 매크로를 실행합니다.
- 매크로가 완료되면 다음 스크린 샷과 같이 Word 문서의 모든 이미지가 포함 된 새 Outlook 이메일을 받게됩니다.
신중하게 전망을 관리하세요
각 일반 사용자는 Outlook에서 다양한 문제를 겪을 수 있습니다. 솔직히 말해서 Outlook을 관리하면 끔찍한 문제를 효과적으로 피할 수 있습니다. 예를 들어, 항상 Outlook을 닫아야하며 알 수없는 이메일을 쉽게 신뢰하지 않아야합니다. 또한 다음과 같이 적격 PST 수정 도구를 확보하는 것이 현명합니다. DataNumen Outlook Repair. 수리 가능 손상된 PST 코르크와 같은 문제.
저자 소개 :
Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. mdf 복구 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM







