Paano Palitan ang Pangalan ng Mga Attachment Kapag Nagpapasa ng Email sa Outlook

Minsan, kapag nagpasa ka ng email na naglalaman ng maraming attachment, maaaring gusto mong palitan ang pangalan ng mga attachment nang direkta kapag nagpapasa. Ituturo sa iyo ng artikulong ito kung paano ito maisagawa sa Outlook VBA.

Bilang default, hindi pinapayagan ng Outlook ang user na palitan ang pangalan ng mga attachment kapag nagpapasa. Samakatuwid, kung gusto mong palitan ang pangalan ng mga ito, ang natatanging paraan ay i-save muna ang mga file sa isang lokal na folder sa iyong computer, pagkatapos ay palitan ang pangalan ng mga ito at sa susunod na muling ilakip ang mga ito sa pagpapasa ng email. Malinaw na ang pamamaraang ito ay lubhang mahirap. Bukod dito, kung minsan, ang mga file na ito ay maaaring hindi mahalaga para sa iyo, kaya talagang hindi mo gustong i-save ang mga ito sa iyong computer. Sa sitwasyong ito, kailangan mong maghintay para sa isang mas mabilis na paraan upang hayaan kang palitan ang pangalan ng mga nakalakip na file nang direkta sa pagpapasa ng mga email. Ang sumusunod ay isang diskarte upang maisakatuparan ito sa pamamagitan ng Outlook VBA.

Palitan ang pangalan ng Mga Attachment Kapag Nagpapasa ng Email

1. Sa unang lugar, ilunsad ang Outlook at pumunta sa tab na "Developer".
2. Pagkatapos hanapin at mag-click sa pindutang "Visual Basic".
3. Pagkatapos nito, sa bagong popup window, magbukas ng bagong module sa pamamagitan ng pagpili sa “Insert” > “Module”.
4. Kasunod, dapat mong kopyahin at i-paste ang mga sumusunod na VBA code dito.

Sub RenameAttachmentsWhenForwarding()
    Dim olItem As MailItem
    Dim Att As Attachment
    Dim Atts As Attachments
    Dim olForward As MailItem
    Dim FWAtt As Attachment
    Dim FWAtts As Attachments
    Dim FSO As Object
    Dim TempFPath As Object
    Dim FilePath As String
    Dim strName As String
    Dim strExten As String
    Dim strFile As String
 
    Set olItem = Application.ActiveExplorer.Selection.Item(1)
    Set Atts = olItem.Attachments
    Set olForward = olItem.Forward
    olForward.Display
 
    On Error Resume Next
 
    For Each Att In Atts
        'Get the path to Temporary Folder
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set TempFPath = FSO.GetSpecialFolder(2)
        FilePath = TempFPath.Path & "\"
 
        'Rename the attachments
        strName = InputBox("Enter a new name for" & vbCrLf & Att.FileName)
        'Change "4" based on the length of the attachment file extension
        strExten = Right(Att.FileName, 4)
        strFile = FilePath & strName & "." & strExten
 
        If strName <> "" Then
           'Save the attachments to the Temporary Folder
           Att.SaveAsFile (strFile)
 
           'Add the attachments saved in new names from the Temporary Folder
           olForward.Attachments.Add (strFile)
           Set FWAtts = olForward.Attachments
 
           'Remove the original attachments
           For Each FWAtt In FWAtts
               If InStr(FWAtt.FileName, Att.FileName) > 0 Then
                  FWAtt.Delete
               End If
           Next
        End If
    Next
End Sub

5. Pagkatapos nito, maaari kang lumabas sa kasalukuyang window ng "Visual Basic" at magpatuloy upang idagdag ang bagong macro sa Quick Access Toolbar gaya ng dati.
6. Sa wakas maaari kang magkaroon ng isang pagsubok.

• Una, pumili ng email at pagkatapos ay i-click ang bagong macro button sa Quick Access Toolbar.
• Pagkatapos ay magbubukas ang isang bagong pagpapasahang email. Maaari mong makita ang mga naka-attach na file sa orihinal na mga pangalan sa linyang "Nakalakip" at makakatanggap din ng dialog box na humihiling sa iyong maglagay ng bagong pangalan para sa isang partikular na attachment.
• Pagkatapos tukuyin ang mga bagong pangalan para sa lahat ng mga file at i-click ang "OK", makikita mo na ang lahat ng mga nakalakip na file ay nasa mga bagong pangalan.
• Sa kalaunan maaari mong isulat ang pagpapasa ng mga email at pindutin ang "Ipadala" na buton upang ipadala ang mensahe.

Manatiling Alerto sa Lahat ng Potensyal na Banta sa Iyong Outlook

Kinikilala na ang Outlook ay madaling kapitan ng katiwalian. Kaya't isang matagal na gawain na protektahan ang data ng Outlook laban sa lahat ng mga banta, kabilang ang impeksyon sa virus, pag-atake ng malware, at Pinsala sa data ng Outlook PST, atbp. Ang pinakamahalagang aksyon ay ang regular na pag-backup para sa iyong data sa Outlook. Gayundin, mainam na magtabi ng isang de-kalidad na tool sa pag-aayos, tulad ng DataNumen Outlook Repair, na darating sa madaling gamiting.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang nasira na mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa