Outlook 전자 메일로 Word 문서의 특정 페이지를 빠르게 보내는 방법

지금 공유 :

일부 사용자는 Word 문서의 특정 페이지를 Outlook 전자 메일로 빠른 시간에 보낼 수 있는 솔루션을 원합니다. 이 기사에서는 그러한 방법을 자세히 소개합니다.

내 이전 기사를 읽었다면 "Outlook 전자 메일에 Word 문서의 특정 페이지를 빠르게 첨부하는 방법"라는 질문에 워드 문서의 특정 페이지를 이메일 첨부 파일이 아닌 이메일로 바로 보낼 수 있는 방법을 요구하는 경향이 있습니다. 이제 다음에서는 쉽게 구현할 수 있는 VBA 코드를 보여드리겠습니다.

Word 문서의 특정 페이지를 Outlook 이메일로 보내기

Word 문서의 특정 페이지를 Outlook 이메일로 보내기

  1. 먼저 보내려는 특정 페이지가 있는 소스 Word 문서에 액세스해야 합니다.
  2. 그런 다음 열린 Word 창에서 “Alt + F11” 버튼을 눌러야 합니다.
  3. "응용 프로그램용 Microsoft Visual Basic" 창이 나타납니다.
  4. 이 창에서 새 모듈을 삽입해야 합니다.
  5. 다음으로 "Microsoft Outlook 개체 라이브러리"를 활성화해야 합니다.
  • "도구"를 클릭하고 드롭다운 목록에서 "참조"를 선택합니다.
  • 팝업 대화 상자에서 아래로 스크롤하여 "Microsoft Outlook 개체 라이브러리"를 찾습니다. 해당 항목을 활성화하고 "확인"을 클릭합니다."Microsoft Outlook 개체 라이브러리"를 활성화하세요.
  1. 그런 다음 아래의 VBA 코드를 이 모듈에 복사할 수 있습니다.
Sub SendSpecificPagesAsOutlookEmail()
    Dim objSelectedPages As Word.Range
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
 
    'Copy the contents from Page 3 to 4
    'Change the page number as per your needs
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=3
    Set objSelectedPages = Selection.Range
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
    objSelectedPages.End = Selection.Bookmarks("\Page").Range.End
    objSelectedPages.Select
    objSelectedPages.Copy
 
    'Get Outlook Application
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
    'Create a new email
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Display
 
    'Paste the contents in specific pages into message body
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objTempRange = objMailDocument.Range(0, 0)
    objTempRange.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

VBA 코드 - Word 문서의 특정 페이지를 Outlook 이메일로 보내기

  1. 결국 이 매크로를 한 번에 실행할 수 있습니다. 현재 모듈에서 "F5" 키 버튼을 누르기만 하면 됩니다.
  2. 다음 스크린샷과 같은 Outlook 경고가 표시될 수 있습니다. "허용"을 직접 클릭할 수 있습니다.경고
  3. 궁극적으로 Word 문서의 특정 페이지가 포함된 이메일을 받게 됩니다.Word 문서의 특정 페이지가 포함된 이메일

Outlook 데이터 보호에주의

Outlook의 많은 기능에 상당히 만족할 수 있습니다. 그러나 여전히 결함이 있습니다. 예를 들어 오류 및 손상에 취약합니다. 이 경우 Outlook PST 파일을 정기적으로 백업하는 것을 포함하여 Outlook 보호에 많은 주의를 기울여야 합니다. 게다가, 신중하고 강력하게 유지하는 것이 좋습니다 PST 수리 유틸리티, 같은 DataNumen Outlook Repair. 심각하게 손상된 Outlook 파일에서 최대 데이터를 추출할 수 있을 정도로 강력합니다.

저자 소개 :

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

지금 공유 :

댓글이 닫혀있다.