Πώς να κάνετε Unrar .RAR Συνημμένα απευθείας στο Outlook μέσω VBA

Γενικά, για να καταργήσετε την ιδιότητα "rar" του ".rar"Συνημμένα σε ένα email, θα πρέπει πρώτα να τα αποθηκεύσετε και στη συνέχεια να χρησιμοποιήσετε ένα συγκεκριμένο εργαλείο για να εξαγάγετε εσωτερικά αρχεία. Αυτό το άρθρο θα σας δώσει μια μέθοδο για να καταργήσετε το αρχείο rar απευθείας στο Outlook.

Το Outlook δεν σας επιτρέπει να κάνετε προεπισκόπηση του ".RAR" συνημμένα. Επίσης, δεν μπορείτε να καταργήσετε την εγγραφή του ".RAR"συνημμένα απευθείας μέσα στο Outlook. Επομένως, εάν θέλετε να δείτε ένα τέτοιο συνημμένο, θα πρέπει πρώτα να το αποθηκεύσετε στην τοπική μονάδα δίσκου και στη συνέχεια να εξαγάγετε τα εσωτερικά αρχεία από αυτήν μέσω ειδικού βοηθητικού προγράμματος, όπως το WinRAR. Εστιάζοντας σε αυτό το ζήτημα, εδώ θα σας προσφέρουμε έναν τρόπο, ο οποίος σας επιτρέπει να κάνετε unrar ".RARΣυνημμένα μόνο στο Outlook. Τώρα διαβάστε για να λάβετε τα λεπτομερή βήματα και τους κωδικούς VBA.

unrar .RAR Συνημμένα απευθείας στο Outlook

1. Καταρχάς, καθώς αυτή η μέθοδος βασίζεται σε ένα συγκεκριμένο εργαλείο - το WinRAR, θα πρέπει πρώτα να το εγκαταστήσετε στον υπολογιστή σας και να βεβαιωθείτε πού είναι τοποθετημένο.
2. Τότε θα μπορούσατε να ανοίξετε την εφαρμογή Outlook ως συνήθως.
3. Στη συνέχεια πατήστε τα πλήκτρα "Alt + F11" στο κύριο παράθυρο του Outlook.
4. Στη συνέχεια, στο πρόγραμμα επεξεργασίας του Outlook VBA, ανοίξτε μια κενή λειτουργική μονάδα.
5. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα 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

6. Μετά από αυτό, πρέπει να διασφαλίσετε ότι η μακροεντολή επιτρέπεται στο Outlook.
7. Τέλος, μπορείτε να δοκιμάσετε.

• Αρχικά, ανοίξτε ένα email που περιέχει .RAR συνημμένα.
• Στη συνέχεια, επιστρέψτε στο νέο κουμπί μακροεντολής.
• Κάντε κλικ στην υπορουτίνα "UnRARAttachments" και πατήστε F5.
• Και στη συνέχεια κάντε κλικ στην ακόλουθη υπορουτίνα "AttachExtractedFiles" και πατήστε το πλήκτρο F5.
• Μετά από αυτό, μπορείτε να επιστρέψετε στο παράθυρο αλληλογραφίας. Θα δείτε ότι .RAR Τα συνημμένα αποσυμπιέστηκαν. Όλα τα εξαγόμενα αρχεία έχουν επισυναφθεί.

Ανοίγω φερμουάρ .Zip Συνημμένα στο Outlook

Σαν την αποσυμπίεση του .RAR συνημμένα, το Outlook δεν διαθέτει εγγενείς λειτουργίες για την αποσυμπίεση του ".zip" συνημμένα. Επομένως, εάν δεν μπορείτε να αποσυμπιέσετε απευθείας το ".ZipΣυνημμένα απευθείας στο Outlook από προεπιλογή. Ευτυχώς, μπορείτε ακόμα να χρησιμοποιήσετε το Outlook VBA για να επιτύχετε αυτήν τη λειτουργία. Για περισσότερες λεπτομέρειες, μπορείτε να δείτε το προηγούμενο άρθρο μου - "Πώς να αποσυμπιέσετε το .Zip Συνημμένα απευθείας στο Outlook μέσω VBA".

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων σταθερός SQL Server και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com