Outlook-da elektron pochtani yo'naltirishda qo'shimchalar nomini qanday o'zgartirish mumkin

Ba'zan, bir nechta biriktirmalarni o'z ichiga olgan elektron pochta xabarini boshqa joyga yo'naltirganingizda, yo'naltirish paytida to'g'ridan-to'g'ri qo'shimchalarning nomini o'zgartirishni xohlashingiz mumkin. Ushbu maqola sizga Outlook VBA bilan buni qanday amalga oshirishni o'rgatadi.

Odatiy bo'lib, Outlook foydalanuvchiga yo'naltirish paytida qo'shimchalarning nomini o'zgartirishga ruxsat bermaydi. Shuning uchun, agar siz ularning nomini o'zgartirmoqchi bo'lsangiz, o'ziga xos usul bu fayllarni birinchi navbatda kompyuteringizdagi mahalliy papkaga saqlash, so'ngra ularni qayta nomlash va keyin ularni elektron pochta manziliga qayta biriktirishdir. Shubhasiz, bu usul juda qiyin. Bundan tashqari, ba'zida bu fayllar siz uchun ahamiyatsiz bo'lishi mumkin, shuning uchun ularni kompyuteringizga saqlashni xohlamaysiz. Bunday holatda, biriktirilgan fayllar nomini to'g'ridan-to'g'ri elektron pochta xabarlarida o'zgartirishga imkon beradigan tezroq usulni kutishingiz kerak. Quyida Outlook VBA orqali amalga oshirishning yondashuvi keltirilgan.

Elektron pochtani yuborishda qo'shimchalar nomini o'zgartiring

1. Birinchidan, Outlook-ni ishga tushiring va "Dasturchi" yorlig'iga o'ting.
2. Keyin toping va "Visual Basic" tugmasini bosing.
3. Shundan so'ng, yangi qalqib chiquvchi oynada "Qo'shish" > "Modul" ni tanlab, yangi modulni oching.
4. Keyinchalik, unga quyidagi VBA kodlarini nusxalashingiz va joylashtirishingiz kerak.

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. Shundan so'ng, siz joriy "Visual Basic" oynasidan chiqishingiz va odatdagidek tez kirish asboblar paneliga yangi makrosni qo'shishni davom ettirishingiz mumkin.
6. Nihoyat, siz sinab ko'rishingiz mumkin.

• Birinchidan, elektron pochta manzilini tanlang va keyin Tez kirish asboblar panelidagi yangi makros tugmasini bosing.
• Keyin yangi yo'naltiruvchi elektron pochta ochiladi. Siz biriktirilgan fayllarni "Biriktirilgan" qatorida asl nomlarda ko'rishingiz mumkin, shuningdek, ma'lum bir qo'shimcha uchun yangi nom kiritishingizni talab qiladigan dialog oynasini olishingiz mumkin.
• Barcha fayllar uchun yangi nomlarni belgilab, "OK" tugmasini bosgandan so'ng, barcha biriktirilgan fayllar yangi nomlarda ekanligini ko'rasiz.
• Oxir-oqibat, siz elektron pochta xabarlarini yuborishingiz va xabarni yuborish uchun "Yuborish" tugmasini bosishingiz mumkin.

Outlook uchun barcha mumkin bo'lgan tahdidlardan ogoh bo'ling

Outlook korruptsiyaga moyil ekanligi tan olingan. Shunday qilib, Outlook ma'lumotlarini barcha tahdidlardan, jumladan virus infektsiyasidan, zararli dasturlardan himoya qilish va himoya qilish uzoq vaqt talab qilinadigan vazifadir Outlook PST ma'lumotlarining shikastlanishiva hokazo. Eng muhim qadam - Outlook ma'lumotlaringiz uchun muntazam ravishda zaxira nusxasini yaratish. Shuningdek, yaqin atrofda yuqori darajadagi ta'mirlash vositasini saqlash oqilona bo'ladi, masalan DataNumen Outlook Repair, bu foydali bo'ladi.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc shikastlangan mdfni ta'mirlash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com