Outlook에서 한 이메일의 모든 테이블을 다른 이메일로 빠르게 복사하는 방법

지금 공유 :

Outlook에서 한 이메일에서 다른 이메일로 모든 테이블을 추출하고 복사해야 할 때 수동으로 수행하는 것은 의심할 여지 없이 지루하고 번거롭습니다. 이 기사는 당신과 훨씬 더 똑똑한 방법을 공유할 것입니다.

때때로 다른 이메일의 표가 포함된 새 이메일을 만들고 싶을 수 있습니다. 이메일에 테이블이 하나만 있으면 매우 쉽습니다. 그러나 원본 이메일에 여러 테이블이 있는 경우 수동으로 복사하는 것은 너무 지루합니다. 따라서 다음에서 훨씬 더 효과적이고 지능적인 다른 방법을 소개합니다.

한 이메일에서 다른 이메일로 모든 테이블을 빠르게 복사

한 이메일에서 다른 이메일로 모든 테이블 복사

  1. 로tart, Outlook에 정상적으로 액세스해야 합니다.
  2. 그런 다음 기본 Outlook 창에서 "Alt + F11" 바로 가기 키를 누를 수 있습니다.
  3. 그런 다음 "Microsoft Visual Basic for Applications" 팝업 창에서 사용하지 않는 모듈을 열거나 새 모듈을 삽입하기만 하면 됩니다.
  4. 다음으로 다음 VBA 코드를 이 모듈에 복사할 수 있습니다.
Sub CopyAllTablesFromOneEmailToAnother()
    Dim objSourceMail As Outlook.MailItem
    Dim objSourceMailDocument As Word.Document
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objTable As Word.Table
 
    'Get the source email
    Select Case TypeName(Application.ActiveWindow)
           Case "Explorer"
                Set objSourceMail = ActiveExplorer.Selection.Item(1)
                objSourceMail.Display
           Case "Inspector"
                Set objSourceMail = ActiveInspector.CurrentItem
    End Select
 
    Set objSourceMailDocument = objSourceMail.GetInspector.WordEditor
 
    If objSourceMailDocument.Tables.count > 0 Then
 
       'Create a new email
       Set objNewMail = Application.CreateItem(olMailItem)
 
       For Each objTable In objSourceMailDocument.Tables
           Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
           'Copy all tables from source email to the new email
           With objNewMailDocument.Range
                .Collapse wdCollapseEnd
                .FormattedText = objTable.Range.FormattedText
                .Collapse wdCollapseEnd
                .Text = vbCrLf
           End With
      Next
 
      'Close the source email
      objSourceMail.Close olSave
      'Display the new email
      objNewMail.Display
    End If
End Sub

VBA 코드 - 한 이메일에서 다른 이메일로 모든 테이블 복사

  1. 그런 다음 현재 VBA 편집기 창을 종료할 수 있습니다.
  2. 나중에 Outlook 매크로 설정을 변경하여 모든 매크로를 활성화해야 합니다.
  3. 또한 "Outlook 옵션"에서 수행할 수 있는 빠른 실행 도구 모음에 이 매크로를 추가하는 것이 좋습니다.
  4. 마지막으로 시도해 볼 수 있습니다.
  • 맨 처음에 테이블을 복사할 이메일을 열거나 선택합니다.
  • 그런 다음 빠른 실행 도구 모음에서 새로 추가된 매크로 버튼을 누르십시오.
  • 매크로 실행이 완료되면 원본 이메일 테이블이 붙여넣어진 새 이메일이 표시됩니다.

손상으로부터 Outlook 파일 방어

Outlook은 독립 실행형 전자 메일 클라이언트나 개인 일정 관리자와 상관없이 좋은 역할을 할 수 있지만 여전히 오류와 손상으로부터 자유롭지 못합니다. 따라서 Outlook 데이터를 보호하는 것은 의심할 여지 없이 힘들고 지루한 작업입니다. 의심스러운 링크를 클릭하지 않거나, 안전하지 않은 첨부 파일을 다운로드하거나, Outlook을 부적절하게 닫는 등 Outlook의 일상적인 행동을 감시해야 합니다. 물론 근처에 별 수리 도구를 보관하는 것이 필요합니다. DataNumen Outlook Repair 수 있다는 점에서 수리 Outlook 산들바람 같은 고민.

저자 소개 :

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

지금 공유 :

댓글이 닫혀있다.