일반적으로 "의 압축을 풀려면.rar이메일에 첨부된 압축 파일을 해제하려면 먼저 파일을 저장한 다음 특정 도구를 사용하여 내부 파일을 압축 해제해야 합니다. 이 글에서는 Outlook에서 직접 압축을 해제하는 방법을 알려드립니다.
Outlook에서는 "를 미리 볼 수 없습니다.".RAR"첨부파일이 있습니다. 또한 " 파일을 압축 해제할 수 없습니다..RAROutlook에서는 "RAR" 첨부 파일을 바로 볼 수 없습니다. 따라서 이러한 첨부 파일을 보려면 먼저 로컬 드라이브에 저장한 다음 WinRAR과 같은 특수 유틸리티를 사용하여 내부 파일을 압축 해제해야 합니다. 이 글에서는 이러한 문제를 해결하기 위해 "RAR" 첨부 파일의 압축을 해제하는 방법을 알려드리겠습니다..RAR”첨부 파일은 Outlook에만 있습니다. 이제 자세한 단계와 VBA 코드를 읽으십시오.
수 UnRAR .RAR Outlook에서 직접 첨부 파일
- 우선, 이 방법은 WinRAR이라는 특정 도구를 사용하므로 먼저 PC에 WinRAR을 설치하고 마운트된 위치를 확인해야 합니다.
- 그런 다음 평소처럼 Outlook 응용 프로그램을 열 수 있습니다.
- 그런 다음 기본 Outlook 창에서 "Alt + F11"키 버튼을 누릅니다.
- 그런 다음 Outlook VBA 편집기에서 빈 모듈을 엽니 다.
- 그리고 다음 VBA 코드를이 모듈에 복사합니다.
Public objFileSystem As Object
Public strTempFolder As String
Public strTargetFolderPath As String
Public objAttachment As Outlook.Attachment
Sub UnRARAttachment()
Dim objMail As Outlook.MailItem
Dim objShell As Object
Dim strTempFolder As String
Dim strRARFile As String
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path
strTargetFolderPath = strTempFolder & "\Temp " & Format(Now, "YYYY-MM-DD-hh-mm-ss")
MkDir (strTargetFolderPath)
Set objShell = CreateObject("Wscript.Shell")
If objMail.attachments.Count > 0 Then
For Each objAttachment In objMail.attachments
If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
strRARFile = strTempFolder & "\" & objAttachment.FileName
objAttachment.SaveAsFile (strRARFile)
'Change "C:\Program Files\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
objShell.Run Chr(34) & "C:\Program Files\WinRAR\WinRAR.exe" & Chr(34) & " e " & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strTargetFolderPath & Chr(34)
End If
Next
End If
End Sub
Sub AttachExtractedFiles()
Dim strFolderPath As String
Dim strFile As String
'Attach the extracted files to the current email
strFolderPath = strTargetFolderPath & "\"
strFile = Dir(strFolderPath)
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
While Len(strFile) > 0
objMail.attachments.Add strFolderPath & strFile
strFile = Dir
Wend
'Delete the .RAR attachments
For Each objAttachment In objMail.attachments
If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
objAttachment.Delete
End If
Next
End Sub
- 그런 다음 Outlook에서 매크로가 허용되는지 확인해야합니다.
- 마지막으로 시도해 볼 수 있습니다.
- 먼저, 다음 내용이 포함된 이메일을 엽니다. .RAR 첨부 파일.
- 그런 다음 새 매크로 버튼으로 돌아갑니다.
- “UnRARAttachments” 서브루틴을 클릭하고 F5 키를 누르십시오.
- 그리고 다음 "AttachExtractedFiles"서브 루틴을 클릭하고 F5 키를 누릅니다.
- 그 후 메일 창으로 돌아가시면 됩니다. 다음과 같은 내용을 보실 수 있습니다. .RAR 첨부 파일이 압축 해제되었습니다. 추출 된 모든 파일이 첨부되었습니다.
압축 해제 .Zip Outlook의 첨부 파일
압축을 해제하는 것처럼 .RAR 첨부 파일의 경우 Outlook에는 ".zip"첨부파일입니다. 따라서 " 파일을 직접 압축 해제할 수 없는 경우.Zip”첨부 파일은 기본적으로 Outlook에 그대로 있습니다. 다행히도 Outlook VBA를 사용하여이 기능을 수행 할 수 있습니다. 자세한 내용은 이전 기사를 확인하세요.“압축 해제 방법 .Zip VBA를 통해 Outlook에서 직접 첨부 파일".
저자 소개 :
Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 고정 된 SQL Server 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM