Outlook VBA를 통해서만 선택한 첨부 파일이있는 이메일을 빠르게 전달하는 방법

지금 공유 :

첨부 파일이있는 Outlook 이메일을 전달할 때 때때로 모든 첨부 파일 대신 선택한 첨부 파일 만 유지하고자 할 수 있습니다. 이제이 기사에서는 선택한 첨부 파일 만있는 메일을 빠르게 전달하는 방법에 대해 설명합니다.

표준 방식으로 Outlook 이메일을 전달할 때 모든 원본 첨부 파일이 전달됩니다. 그러나 때때로 모든 첨부 파일이 아닌 일부 첨부 파일 만 전달하려고합니다. 일반적으로 평소처럼 이메일을 전달한 다음 원하지 않는 첨부 파일을 수동으로 삭제할 수 있습니다. 하지만 조금 번거 롭습니다. 따라서 여기에서는 선택한 첨부 파일 만 포함 된 이메일을 훨씬 빠르게 전달하는 방법을 소개합니다.

선택한 첨부 파일 만있는 이메일을 빠르게 전달

  1. 처음에 "Alt + F11"바로 가기를 통해 Outlook VBA 편집기를 시작합니다.
  2. 그런 다음 다음 코드를 복사하여 프로젝트 또는 모듈에 붙여 넣습니다.
Sub ForwardMailWithSelectedAttachmentsOnly()
    Dim objMail As Outlook.MailItem
    Dim strTempFolder As String
    Dim strFile As String
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim objForward As Outlook.MailItem
 
    'Get the selected email
    Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    'Get the selected attachments
    Set objSelectedAttachments = Outlook.Application.ActiveExplorer.AttachmentSelection
    If objSelectedAttachments.Count > 0 Then
       'Forward this email
       Set objForward = objMail.Forward
       objForward.Display
 
       'Delete all the forwarded attachments
       Do Until objForward.Attachments.Count = 0
          objForward.Attachments.Item(1).Delete
       Loop
 
       On Error Resume Next
       strTempFolder = "E:\Temp" & Format(Now, "yyymmddhhmmss") & "\"
       MkDir (strTempFolder)
 
       'Re-attach the selected attachments to the forward mail
       For Each objAttachment In objSelectedAttachments
           strFile = strTempFolder & objAttachment.FileName
           objAttachment.SaveAsFile (strFile)
           objForward.Attachments.Add (strFile)
       Next
 
       Kill strFile
    End If
End Sub

VBA 코드-선택한 첨부 파일 만있는 이메일을 빠르게 전달

  1. 다음으로 VBA 편집기를 종료하십시오.
  2. 그 후, 이전 게시물의 "선택 사항 단계"를 따르세요.Outlook에서 VBA 코드를 실행하는 방법”을 눌러이 매크로를 빠른 실행 도구 모음 또는 리본에 추가합니다.
  3. 결국이 매크로를 사용해 볼 수 있습니다.
  • 먼저 읽기 창이 켜져 있는지 확인합니다.
  • 그런 다음 전달하려는 이메일과 첨부 파일을 선택합니다.
  • 다음으로 빠른 실행 도구 모음 또는 리본에서 매크로 버튼을 클릭합니다.첨부 파일 선택 및 매크로 실행
  • 즉시 새 이메일이 표시됩니다. 보시다시피 선택한 첨부 파일 만 포함 된 전달 이메일입니다.선택한 첨부 파일 만있는 새 이메일

Knotty Outlook 데이터 손상 수정

Outlook 충돌을 본 적이 있습니까? 그리고 그러한 충돌로 인해 PST 데이터가 손상 되었습니까? 그러한 문제를 겪어 본 적이 있다면 그것이 얼마나 결절하고 성가 신지 깨달았을 것입니다. 일반적으로받은 편지함 복구 도구를 사용하면 작은 문제를 해결할 수 있습니다. 그러나 심각한 문제에 대해서는 Outlook 손상, 다음과 같은 더 강력한 유틸리티를 사용해야합니다. DataNumen Outlook Repair.

저자 소개 :

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

지금 공유 :

댓글이 닫혀있다.