როგორ გადავარქვათ დანართების სახელი Outlook-ში ელფოსტის გადამისამართებისას

ზოგჯერ, როდესაც გადაგზავნით ელფოსტას, რომელიც შეიცავს რამდენიმე დანართს, შეიძლება დაგჭირდეთ დანართების გადარქმევა პირდაპირ გადაგზავნისას. ეს სტატია გასწავლით თუ როგორ უნდა მიაღწიოთ ამას Outlook VBA-ით.

ნაგულისხმევად, Outlook არ აძლევს მომხმარებელს უფლებას გადაარქვას დანართები გადამისამართებისას. ამიტომ, თუ გსურთ მათი სახელის გადარქმევა, უნიკალური გზაა ფაილების ჯერ შენახვა თქვენს კომპიუტერში ლოკალურ საქაღალდეში, შემდეგ გადარქმევა და შემდეგ ხელახლა მიმაგრება გადაგზავნის ელფოსტაზე. ცხადია, ეს მეთოდი საკმაოდ პრობლემურია. უფრო მეტიც, ხანდახან ეს ფაილები შეიძლება თქვენთვის არაარსებითი იყოს, ასე რომ თქვენ ნამდვილად არ გსურთ მათი შენახვა თქვენს კომპიუტერში. ამ სიტუაციაში, თქვენ უნდა მოისურვოთ უფრო სწრაფი მეთოდი, რომელიც საშუალებას მოგცემთ გადაარქვათ მიმაგრებული ფაილები პირდაპირ გადაგზავნის ელფოსტაში. შემდეგი არის მიდგომა მისი რეალიზაციისთვის Outlook VBA-ის საშუალებით.

ელ.ფოსტის გადამისამართებისას დანართების სახელი გადარქმევა

1. პირველ რიგში, გაუშვით Outlook და გადადით "დეველოპერი" ჩანართზე.
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“ ფანჯრიდან და გააგრძელოთ ახალი მაკროს დამატება სწრაფი წვდომის ხელსაწყოთა ზოლში, როგორც ყოველთვის.
6. საბოლოოდ შეგიძლიათ სცადოთ.

• პირველ რიგში, აირჩიეთ ელფოსტა და შემდეგ დააწკაპუნეთ ახალ მაკრო ღილაკს სწრაფი წვდომის ხელსაწყოთა ზოლში.
• შემდეგ გაიხსნება ახალი გადამგზავნი ელ.წერილი. თქვენ შეგიძლიათ იხილოთ თანდართული ფაილები ორიგინალური სახელებით "მიმაგრებული" სტრიქონში და ასევე მიიღოთ დიალოგური ფანჯარა, რომელიც მოგთხოვთ შეიყვანოთ ახალი სახელი კონკრეტული დანართისთვის.
• ყველა ფაილის ახალი სახელების მითითების შემდეგ და დააწკაპუნეთ „OK“-ზე, ნახავთ, რომ ყველა თანდართული ფაილი არის ახალ სახელებში.
• საბოლოოდ შეგიძლიათ შეადგინოთ გაგზავნილი წერილები და დააჭიროთ ღილაკს „გაგზავნა“ შეტყობინების გასაგზავნად.

იყავით ყურადღებიანი თქვენი Outlook-ის ყველა პოტენციური საფრთხის მიმართ

აღიარებულია, რომ Outlook მგრძნობიარეა კორუფციის მიმართ. ამრიგად, Outlook-ის მონაცემების დაცვა ყველა საფრთხისგან, მათ შორის ვირუსული ინფექციის, მავნე პროგრამის შეტევისგან და Outlook PST მონაცემების დაზიანებადა ა.შ. ყველაზე მნიშვნელოვანი ნაბიჯი თქვენი Outlook მონაცემების რეგულარული სარეზერვო ასლის შექმნაა. ასევე, გონივრულია, ახლოს გქონდეთ მაღალი ხარისხის აღდგენის ინსტრუმენტი, მაგალითად DataNumen Outlook Repair, რომელიც გამოგადგებათ.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული მდფ-ის შეკეთება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად