Word 문서의 모든 이미지를 Outlook 이메일로 복사하는 3 가지 빠른 방법

지금 공유 :

Word 문서의 모든 이미지를 Outlook 전자 메일로 복사하려는 경우이 문서에 소개 된 세 가지 방법을 사용할 수 있습니다.

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

Word 문서의 모든 이미지를 Outlook 이메일로 복사

방법 1 : 하나씩 복사

  1. 먼저 Outlook에서 새 이메일을 만듭니다.
  2. 그런 다음 원본 Word 문서를 엽니 다.
  3. 다음으로 Word 문서에서 그림을 선택합니다.
  4. 복사하려면 "Ctrl + C"를 누르십시오.문서의 이미지 복사
  5. 그 후 Outlook 이메일에 액세스하십시오.
  6. 마지막으로 메시지 본문에서 "Ctrl + V"를 눌러 복사 한 이미지를 붙여 넣습니다.이메일에 이미지 붙여 넣기
  7. 이제이 방법을 사용하여 문서의 다른 이미지를이 이메일로 하나씩 복사하십시오.

방법 2 : 이미지 저장 및 이메일에 일괄 삽입

  1. 먼저 열린 Word 문서에서 "파일"> "다른 이름으로 저장"으로 이동합니다.다른 이름으로 저장
  2. 그런 다음 팝업 대화 상자에서 대상 폴더를 선택하고 "파일 형식"필드에서 "웹 페이지"를 선택합니다.
  3. 다음으로“저장”버튼을 클릭합니다.웹 페이지로 문서 저장
  4. 그런 다음 정상적으로 Word 응용 프로그램을 닫습니다.
  5. 그런 다음 새 Outlook 이메일을 만듭니다.
  6. 메시지 창에서“삽입”탭으로 이동하여“그림”버튼을 클릭합니다.
  7. 나중에 새 대화 상자에서 Word 문서를 웹 페이지로 저장할 위치로 이동합니다.
  8. 그런 다음 "xxx_files"라는 폴더를 엽니 다.
  9. 다음으로 삽입 할 이미지를 선택합니다.
  10. 마지막으로“삽입”버튼을 클릭합니다.이메일에 그림 삽입
  11. 선택한 이미지가 이메일에 삽입 된 것을 확인할 수 있습니다.이메일에 삽입 된 이미지

방법 3 : VBA를 통한 일괄 복사

  1. 먼저 Word 문서를 엽니 다.
  2. 그런 다음 "Alt + F11"을 눌러 Word VBA 편집기에 액세스합니다.
  3. 다음으로 아래의 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

Word VBA 편집기에 VBA 코드 입력

  1. 그 후 "F5"키를 눌러이 매크로를 실행합니다.
  2. 매크로가 완료되면 다음 스크린 샷과 같이 Word 문서의 모든 이미지가 포함 된 새 Outlook 이메일을 받게됩니다.문서에서 이메일로 이미지 복사

신중하게 전망을 관리하세요

각 일반 사용자는 Outlook에서 다양한 문제를 겪을 수 있습니다. 솔직히 말해서 Outlook을 관리하면 끔찍한 문제를 효과적으로 피할 수 있습니다. 예를 들어, 항상 Outlook을 닫아야하며 알 수없는 이메일을 쉽게 신뢰하지 않아야합니다. 또한 다음과 같이 적격 PST 수정 도구를 확보하는 것이 현명합니다. DataNumen Outlook Repair. 수리 가능 손상된 PST 코르크와 같은 문제.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. mdf 복구 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM

지금 공유 :

댓글이 닫혀있다.