RAR dosyasından nasıl dosya çıkarılır? .RAR Ekler Doğrudan VBA aracılığıyla Outlook'ta

Genel olarak, ".rarBir e-postadaki ekleri açarken, öncelikle dosyayı kaydetmeli ve ardından içindeki dosyaları çıkarmak için özel bir araç kullanmalısınız. Bu makale, Outlook'ta doğrudan RAR dosyasını açmanın bir yöntemini sunacaktır.

Outlook, ".RAR" eklerini de açamazsınız. Ayrıca, ".RAROutlook'ta "ekler" doğrudan görüntülenemez. Bu nedenle, böyle bir eki görüntülemek istiyorsanız, öncelikle yerel sürücüye kaydetmeli ve ardından WinRAR gibi özel bir yardımcı program kullanarak içindeki dosyaları çıkarmalısınız. Bu konuya odaklanarak, burada size "ekleri" açmanıza olanak tanıyan bir yöntem sunacağız..RAR” ekler yalnızca Outlook'ta. Şimdi ayrıntılı adımları ve VBA kodlarını almak için okumaya devam edin.

Birleştir .RAR Ekler Doğrudan Outlook'ta

1. Öncelikle, bu yöntem belirli bir araç olan WinRAR'a bağlı olduğundan, öncelikle WinRAR'ı bilgisayarınıza kurmalı ve nereye yerleştirildiğinden emin olmalısınız.
2. Ardından Outlook uygulamanızı her zamanki gibi açabilirsiniz.
3. Ardından, ana Outlook penceresindeki “Alt + F11” tuş düğmelerine basın.
4. Ardından, Outlook VBA düzenleyicisinde boş bir modül açın.
5. Ardından aşağıdaki VBA kodunu bu modüle kopyalayın.

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

6. Bundan sonra, Outlook'unuzda bu makroya izin verildiğinden emin olmanız gerekir.
7. Sonunda bir deneyebilirsin.

• Öncelikle, içeriği şu şekilde olan bir e-postayı açın: .RAR ekleri.
• Ardından yeni makro düğmesine geri dönün.
• “UnRARAttachments” alt programına tıklayın ve F5 tuşuna basın.
• Ardından aşağıdaki “AttachExtractedFiles” alt programına tıklayın ve F5 tuşuna basın.
• Bundan sonra, posta penceresine geri dönebilirsiniz. Şunu göreceksiniz: .RAR ekler sıkıştırılmıştır. Ayıklanan tüm dosyalar eklenmiştir.

Halletmek .Zip Outlook'taki ekler

Tıpkı basıncı azaltmak gibi .RAR Ekler söz konusu olduğunda, Outlook'un "ekleri açmak için yerleşik bir özelliği yoktur.".zipBu nedenle, ".Zip” ekler varsayılan olarak doğrudan Outlook'ta bulunur. Neyse ki, bu işlevi gerçekleştirmek için Outlook VBA'yı kullanmaya devam edebilirsiniz. Daha fazla detay için bir önceki makaleme göz atabilirsiniz – “Sıkıştırılmış dosyayı nasıl açarsınız? .Zip Ekler Doğrudan VBA aracılığıyla Outlook'ta anlayışının sonucu olarak, buzdolabında iki üç günden fazla durmayan küçük şişeler elinizin altında bulunur.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. düzeltmek SQL Server ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com