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. Соңында сіз көріңіз.

• Біріншіден, электрондық поштаны таңдаңыз, содан кейін Жылдам қатынасу құралдар тақтасындағы жаңа макро батырмасын басыңыз.
• Содан кейін жаңа бағыттау электрондық поштасы ашылады. Сіз «Тіркелген» жолында тіркелген файлдарды түпнұсқалық атаулармен көре аласыз, сонымен қатар белгілі бір тіркеме үшін жаңа атау енгізуді талап ететін диалогтық терезені аласыз.
• Барлық файлдар үшін жаңа атауды көрсетіп, «ОК» түймесін басқаннан кейін, барлық тіркелген файлдар жаңа атауларда екенін көресіз.
• Ақырында, сіз жіберілетін электрондық хаттарды жаза аласыз және хабарламаны жіберу үшін «Жіберу» түймесін басасыз.

Сіздің болжамыңызға қатысты барлық ықтимал қауіптерден сақ болыңыз

Outlook сыбайлас жемқорлыққа бейім екені белгілі. Осылайша, Outlook деректерін вирустық инфекция, зиянды бағдарламаларға шабуыл және басқаларды қоса алғанда, барлық қауіптерден қорғау ұзақ уақытқа созылатын міндет болып табылады Outlook PST деректерінің зақымдалуыжәне т.б. Ең маңызды әрекет - Outlook деректеріңіздің үнемі сақтық көшірмесін жасау. Сондай-ақ, жақын жерде жоғары сапалы жөндеу құралын сақтау ақылға қонымды. DataNumen Outlook Repair, ол сізге ыңғайлы болады.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. зақымдалған MDF файлын жөндеу және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com