Ինչպես վերանվանել հավելվածները Outlook-ում էլփոստ ուղարկելիս

Երբեմն, երբ ուղարկում եք մի քանի կցորդ պարունակող էլ. Այս հոդվածը կսովորեցնի ձեզ, թե ինչպես դա իրականացնել Outlook VBA-ով:

Լռելյայնորեն, Outlook-ը թույլ չի տալիս օգտվողին վերանվանել հավելվածները վերահասցեավորման ժամանակ: Հետևաբար, եթե ցանկանում եք դրանք վերանվանել, եզակի միջոցն այն է, որ նախ ֆայլերը պահեք ձեր համակարգչի տեղական թղթապանակում, այնուհետև վերանվանեք դրանք և այնուհետև նորից կցեք դրանք վերահասցեավորման էլ. Ակնհայտ է, որ այս մեթոդը բավականին դժվար է: Ավելին, երբեմն այս ֆայլերը կարող են ձեզ համար ոչ էական լինել, այնպես որ դուք իսկապես չեք ցանկանում դրանք պահել ձեր համակարգչում: Այս իրավիճակում դուք պետք է ցանկանաք ավելի արագ մեթոդ գտնել, որը թույլ կտա վերանվանել կցված ֆայլերը անմիջապես վերահասցեագրվող էլ. Ստորև ներկայացված է Outlook VBA-ի միջոցով այն իրականացնելու մոտեցում:

Վերանվանել Հավելվածները Էլփոստ ուղարկելիս

1. Առաջին հերթին գործարկեք Outlook-ը և անցեք «Developer» ներդիրին:
2. Դրանից հետո գտեք և կտտացրեք «Visual Basic» կոճակին:
3. Դրանից հետո նոր բացվող պատուհանում բացեք նոր մոդուլ՝ ընտրելով «Տեղադրել» > «Մոդուլ»:
4. Դրանից հետո դուք պետք է պատճենեք և տեղադրեք հետևյալ VBA կոդերը դրա մեջ:

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. Դրանից հետո դուք կարող եք դուրս գալ ընթացիկ «Visual Basic» պատուհանից և շարունակել ավելացնել նոր մակրո Quick Access Toolbar-ում, ինչպես միշտ:
6. Վերջապես կարող եք փորձել:

• Նախ ընտրեք էլ.
• Այնուհետև կբացվի վերահասցեավորման նոր նամակ: Դուք կարող եք տեսնել կցված ֆայլերը բնօրինակ անուններով «Կցված» տողում, ինչպես նաև ստանալ երկխոսության տուփ, որը պահանջում է մուտքագրել նոր անուն հատուկ հավելվածի համար:
• Բոլոր ֆայլերի համար նոր անուններ նշելուց և «OK» սեղմելուց հետո կտեսնեք, որ բոլոր կցված ֆայլերը նոր անուններով են:
• Ի վերջո, դուք կարող եք գրել վերահասցեագրված էլ. նամակները և սեղմել «Ուղարկել» կոճակը՝ հաղորդագրությունն ուղարկելու համար:

Եղեք զգոն ձեր Outlook-ի բոլոր հնարավոր սպառնալիքների նկատմամբ

Ընդունված է, որ Outlook-ը ենթակա է կոռուպցիայի: Այսպիսով, Outlook-ի տվյալները պաշտպանելը բոլոր սպառնալիքներից, ներառյալ վիրուսային վարակը, չարամիտ հարձակումը և Outlook PST տվյալների վնասև այլն: Ամենակարևոր գործողությունը ձեր Outlook տվյալների պարբերաբար պահուստավորումն է: Բացի այդ, խելամիտ է մոտակայքում պահել բարձրակարգ վերանորոգման գործիք, օրինակ՝ DataNumen Outlook Repair, որը օգտակար կլինի:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերանորոգել վնասված մդֆ և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com