Outlook-da cavab verərkən orijinal e-poçt əlavələrini saxlamağın 6 yolu

Bir çox istifadəçi e-poçta cavab verərkən orijinal e-poçt əlavələrini saxlamaq üçün Outlook-u konfiqurasiya etməyə ümid edir. Bu məqalə 5 həll yolunu, eləcə də VBA-dan istifadə edərək avtomatik həyata keçirən ağıllı yolu ifşa edəcək.

Çox sayda istifadəçinin e-poçta cavab verərkən Outlook-un orijinal qoşmaları saxlamaq üçün yerli xüsusiyyətinin olmadığından şikayət etdiyini eşitmişəm. Buna görə də, burada sizinlə 6 metodu paylaşacağıq, onlardan biri olduqca faydalıdır, çünki Outlook-un orijinal qoşmaları cavab verən e-poçta avtomatik əlavə etmək üçün VBA-dan istifadə edir. İndi onları ətraflı öyrənmək üçün oxuyun.

1. Orijinal E-poçtla cavab verin

Outlook e-poçta cavab verərkən orijinal e-poçt qoşmalarını saxlamaq üçün bir xüsusiyyət təqdim etməsə də, istifadəçilərə orijinal e-poçtu əlavə etməyə imkan verir. Beləliklə, bu sizin üçün isteğe bağlı bir həll yoludur. Cavab parametrlərini dəyişmək üçün “Fayl” > “Seçimlər” > “Poçt” > “Cavablar və yönləndirmələr” bölməsinə keçə bilərsiniz. Daha ətraflı məlumat üçün mənim əvvəlki məqaləmə müraciət etməyiniz tövsiyə olunur – “Outlook-da orijinal qoşmalarla cavab vermək üçün 5 addım”. Ancaq hələ də yalnız orijinal qoşmaları saxlamağa ümid edirsinizsə, digər vasitələri öyrənməyə davam edin.

2. Qoşmaları Əllə Çək və Bırak

1. Başlamaq üçün, belə bir mənbə e-poçtunu öz pəncərəsində açmaq üçün iki dəfə vurun.
2. Sonra cavab məktubunu gətirəcək "Cavab ver" düyməsini basın.
3. Sonra hər iki Mesaj pəncərəsini eyni ekranda görənə qədər kiçildməlisiniz.
4. Bundan sonra, orijinal e-poçtdakı bütün əlavələri seçin.
5. Nəhayət, onları dartıb cavab məktubundakı “Əlavə” sətirinə buraxın.

3. Qoşmaları Əllə Kopyalayın və Yapışdırın

1. İlk növbədə, mənbə e-poçtu açdıqdan sonra bütün əlavələri seçin.
2. Sonra "Qoşmalar" sekmesinde "Kopyala" düyməsini basın.
3. Bundan sonra, cavab məktubunu açmaq üçün "Mesaj" sekmesinin altındakı "Cavab vermək" düyməsini basın.
4. Nəhayət, cavab verən e-poçtda "Əlavə" xəttinə klikləyin və əvvəllər kopyalanmış qoşmaları yapışdırmaq üçün "Ctrl + V" düyməsini basın.

4. E-poçtu yönləndirin və alıcını doldurun

1. Əvvəlcə belə bir e-poçtu seçin və sonra lentdəki "İrəli" düyməsini basın.
2. Yeni açılan Mesaj pəncərəsində orijinal qoşmalar saxlanılır. İndi orijinal e-poçtu göndərənə "Kimə" sahəsini doldurmalısınız.
3. İstəyə görə mövzunu ehtiyaclarınıza uyğun dəyişə bilərsiniz.

5. Bu E-poçtu Yenidən Göndərin və Alıcıları Dəyişin

1. Başlamaq üçün mənbə e-poçtunu açın.
2. Sonra "Move" qrupunda "Fəaliyyətlər" düyməsini basın.
3. Sonra açılan siyahıdan "Bu Mesajı Yenidən Göndər" seçin.
4. Ola bilsin ki, orijinal göndərənin siz olmadığınız barədə xəbərdarlıq alacaqsınız. Sadəcə ona məhəl qoymayın və "Bəli" düyməsini basın.
5. Sonrakı yeni e-poçtda "Kimə" sahəsini orijinal e-poçtun göndəricisinə dəyişdirməlisiniz.
6. Həmçinin, e-poçt hesabından istifadə edərək göndərməni öz hesabınıza dəyişməyi unutmayın.

6. VBA vasitəsilə orijinal qoşmaları avtomatik əlavə edin

Yuxarıda qeyd olunan bütün yanaşmalar, düzünü desəm, həll yoludur. Outlook-un cavab verərkən avtomatik olaraq orijinal qoşmaları saxlaya biləcəyinə ümid edirsinizsə, bu üsuldan istifadə edə bilərsiniz.

1. Əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
2. Sonra “Proqramlar üçün Microsoft Visual Basic” pəncərəsində aşağıdakı VBA kodunu “ThisOutlookSession” layihəsinə köçürün.

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

3. Daha sonra bu makronu imzalayın və imzalanmış makrolara icazə vermək üçün Outlook makro parametrlərinizi dəyişdirin.
4. Bundan sonra, bu VBA layihəsini aktivləşdirmək üçün Outlook tətbiqinizi yenidən başladın.
5. Bundan sonra hər dəfə “Cavab ver” düyməsini kliklədiyiniz zaman. Cavab verən e-poçt eyni anda orijinal qoşmalarla birlikdə görünəcək.

Mükəmməl Təmir Alətinə müraciət edin

Outlook, saysız-hesabsız xüsusiyyətlərinə görə digər e-poçt müştərilərini üstələyir. Amma yenə də korrupsiyaya meyllidir. Buna görə də onun sağlamlığına daha çox diqqət yetirməlisiniz. Ümumiyyətlə, kiçik problemlərlə qarşılaşdığınız zaman, sadəcə olaraq, daxili düzəltmə yardım proqramına müraciət edə bilərsiniz. Buna baxmayaraq, əgər siz ciddi problemlərlə üzləşirsinizsə, daha təcrübəli vasitələrə müraciət etmək daha yaxşıdır, məsələn, DataNumen Outlook Repair. Mümkündür Outlook-u düzəldin bir anda fayl.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com