Outlook бағдарламасында жауап беру кезінде түпнұсқа электрондық пошта тіркемелерін сақтаудың 6 жолы

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Көптеген пайдаланушылар электрондық поштаға жауап беру кезінде бастапқы электрондық пошта тіркемелерін сақтау үшін Outlook бағдарламасын конфигурациялауға үміттенеді. Бұл мақалада автоматты түрде жүзеге асыру үшін VBA пайдаланатын 5 уақытша шешім, сондай-ақ ақылды әдіс көрсетіледі.

Мен көптеген пайдаланушылардың Outlook бағдарламасында электрондық поштаға жауап беру кезінде түпнұсқа тіркемелерді сақтау мүмкіндігі жоқ деп шағымданғанын естідім. Сондықтан, мұнда біз сізге 6 әдіспен бөлісеміз, олардың бірі өте пайдалы, өйткені ол Outlook-ті электрондық поштаға жауап беру үшін түпнұсқа тіркемелерді автоматты түрде тіркеу үшін VBA арқылы жасайды. Енді оларды егжей-тегжейлі білу үшін оқыңыз.

Outlook бағдарламасында жауап беру кезінде түпнұсқа электрондық пошта тіркемелерін сақтаңыз

1. Тіркелген түпнұсқа электрондық поштамен жауап беріңіз

Outlook электрондық поштаға жауап беру кезінде түпнұсқа электрондық пошта тіркемелерін сақтау мүмкіндігін қамтамасыз етпесе де, ол пайдаланушыларға түпнұсқа электрондық поштаны тіркеуге мүмкіндік береді. Демек, бұл сіз үшін қосымша уақытша шешім. Жауап беру параметрлерін өзгерту үшін «Файл» > «Параметрлер» > «Пошта» > «Жауаптар және қайта жіберу» бөліміне өтуіңізге болады. Толығырақ ақпарат алу үшін менің алдыңғы мақалама жүгіну ұсынылады – «Outlook бағдарламасындағы түпнұсқа тіркемелермен жауап берудің 5 қадамы». Бірақ, егер сіз әлі де түпнұсқа тіркемелерді сақтағыңыз келсе, басқа құралдарды үйренуге көшіңіз.

2. Тіркемелерді қолмен сүйреп апарыңыз

  1. Бастау үшін, осындай бастапқы электрондық поштаны өз терезесінде ашу үшін оны екі рет басыңыз.
  2. Содан кейін жауап беретін электрондық поштаны көрсететін «Жауап беру» түймесін басыңыз.
  3. Содан кейін екі Хабарлама терезесін бірдей экранда көргенше кішірейту керек.
  4. Осыдан кейін бастапқы электрондық поштадағы барлық тіркемелерді таңдаңыз.
  5. Соңында, оларды жауап беру хатындағы «Қосылған» жолға сүйреп апарыңыз.Тіркемелерді қолмен сүйреп апарыңыз

3. Тіркемелерді қолмен көшіру және қою

  1. Біріншіден, бастапқы электрондық поштаны ашқаннан кейін барлық тіркемелерді таңдаңыз.
  2. Содан кейін «Тіркемелер» қойындысының астындағы «Көшіру» түймесін басыңыз.Барлық тіркемелерді көшіру
  3. Осыдан кейін жауап хатты ашу үшін «Хабар» қойындысының астындағы «Жауап беру» түймесін басыңыз.
  4. Сайып келгенде, жауап беретін электрондық поштада «Қосылған» жолын басып, бұрын көшірілген тіркемелерді қою үшін «Ctrl + V» түймесін басыңыз.

4. Электрондық поштаны бағыттау және алушыны толтыру

  1. Алдымен осындай электрондық поштаны таңдаңыз, содан кейін таспадағы «Алға» түймесін басыңыз.
  2. Жаңадан ашылған Хабарлама терезесінде бастапқы тіркемелер сақталады. Енді бастапқы электрондық поштаны жіберушіге «Кімге» өрісін толтыру керек.
  3. Қажет болса, тақырыпты қажеттіліктеріңізге қарай өзгерте аласыз.

5. Осы электрондық поштаны қайта жіберіңіз және алушыларды өзгертіңіз

  1. Бастау үшін бастапқы электрондық поштаны ашыңыз.
  2. Содан кейін «Жылжыту» тобындағы «Әрекеттер» түймесін басыңыз.
  3. Содан кейін ашылмалы тізімнен «Бұл хабарды қайта жіберу» таңдаңыз.
  4. Мүмкін сіз бастапқы жіберуші емес екеніңізді ескертетін ескерту аласыз. Оны елемеңіз және «Иә» түймесін басыңыз.
  5. Келесі жаңа электрондық поштада «Кімге» өрісін бастапқы электрондық поштаны жіберушіге өзгерту керек.
  6. Сондай-ақ, электрондық пошта тіркелгісін пайдаланып жіберуді өз тіркелгіңізге өзгертуді ұмытпаңыз.

6. VBA арқылы түпнұсқа тіркемелерді автоматты түрде қосу

Жоғарыда аталған барлық тәсілдер, шынын айтқанда, уақытша шешімдер болып табылады. Outlook бағдарламасы жауап беру кезінде түпнұсқа тіркемелерді автоматты түрде сақтай алады деп үміттенсеңіз, осы әдісті пайдалана аласыз.

  1. Негізгі Outlook терезесінде «Alt + F11» пернелерін басыңыз.
  2. Содан кейін «Microsoft Visual Basic for Applications» терезесінде төмендегі VBA кодын «ThisOutlookSession» жобасына көшіріңіз.
Private WithEvents objExplorer As Outlook.Explorer
Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If TypeName(objExplorer.Selection.Item(1)) = "MailItem" Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "MailItem" Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

'Occurs when clicking "Reply" button
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

'Occurs when clicking "Reply All" button
Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

Private Sub KeepOriginalAttachments(ByVal objOriginalMail As MailItem, objReply As Object)
    Dim strEnviro As String
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim objAttachment As Outlook.Attachment
 
    'Get the temp folder in Windows
    strEnviro = CStr(Environ("USERPROFILE"))
    strTempFolder = strEnviro & "\AppData\Local\Temp"
 
    For Each objAttachment In objOriginalMail.Attachments
        'Skip the embedded image attachments
        If IsEmbeddedAttachment(objAttachment) = False Then
           strFilePath = strTempFolder & "\" & objAttachment.filename
           objAttachment.SaveAsFile strFilePath
 
           'Attach the temporarily saved attachments to the Reply
           objReply.Attachments.Add strFilePath
 
           'Delete the temporarily saved attachments
           Kill strFilePath
       End If
    Next
End Sub

'Function for checking if an attachment is embedded image attachment
Function IsEmbeddedAttachment(objCurrentAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.propertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurrentAttachment.propertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbeddedAttachment = True
    Else
       IsEmbeddedAttachment = False
    End If
End Function

VBA коды - жауап беру кезінде түпнұсқа электрондық пошта тіркемелерін сақтаңыз

  1. Кейінірек осы макросқа қол қойып, қол қойылған макростарға рұқсат беру үшін Outlook макрос параметрлерін өзгертіңіз.
  2. Осыдан кейін, осы VBA жобасын белсендіру үшін Outlook қолданбаңызды қайта іске қосыңыз.
  3. Енді «Жауап беру» түймесін басқан сайын. Жауап беретін электрондық пошта бірден түпнұсқа тіркемелерімен бірге көрсетіледі.

Ең жақсы жөндеу құралына жүгініңіз

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

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

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

Қазір бөлісу:

Пікірлер жабылды.