Outlook-ში პასუხის გაცემისას ელფოსტის ორიგინალური დანართების შესანარჩუნებლად 6 გზა

ბევრი მომხმარებელი იმედოვნებს, რომ დააკონფიგურირებს Outlook-ს, რათა შეინარჩუნოს ორიგინალური ელ.ფოსტის დანართები ელფოსტაზე პასუხის გაცემისას. ეს სტატია გამოავლენს 5 გამოსავალს, ასევე ჭკვიან გზას, რომელიც იყენებს VBA-ს მის ავტომატურად რეალიზებისთვის.

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

1. პასუხი მიმაგრებული ორიგინალური ელფოსტით

მიუხედავად იმისა, რომ Outlook არ იძლევა ფუნქციას ელ.ფოსტის ორიგინალური დანართების შესანახად ელფოსტის წერილზე პასუხის გაცემისას, ის მომხმარებლებს საშუალებას აძლევს შეინახონ ორიგინალური ელფოსტა მიმაგრებული. აქედან გამომდინარე, ეს თქვენთვის არჩევითი გამოსავალია. პასუხის პარამეტრების შესაცვლელად შეგიძლიათ გადახვიდეთ „ფაილი“ > „ოფციები“ > „ფოსტა“ > „პასუხები და გადაგზავნა“ განყოფილებაში. დამატებითი ინფორმაციისთვის გირჩევთ მიმართოთ ჩემს წინა სტატიას – ”5 ნაბიჯი ორიგინალური დანართებით პასუხის გასაცემად Outlook-ში“. მაგრამ, თუ ჯერ კიდევ გაქვთ მხოლოდ ორიგინალური დანართების შენარჩუნების იმედი, გადადით სხვა საშუალებების სწავლაზე.

2. ხელით გადაათრიეთ და ჩამოაგდეთ დანართები

1. დასაწყებად, ორჯერ დააწკაპუნეთ ასეთ წყაროს ელფოსტაზე, რათა ის ცალკე ფანჯარაში გაიხსნას.
2. შემდეგ დააწკაპუნეთ ღილაკზე „პასუხი“, რომელიც გამოვა საპასუხო ელ.წერილი.
3. შემდეგ თქვენ უნდა შეამციროთ ორივე შეტყობინების ფანჯარა, სანამ მათ იმავე ეკრანზე დაინახავთ.
4. ამის შემდეგ, აირჩიეთ ყველა დანართი ორიგინალ ელფოსტაში.
5. და ბოლოს, გადაათრიეთ და ჩამოაგდეთ ისინი საპასუხო ელფოსტაში „დართული“ ხაზში.

3. ხელით დააკოპირეთ და ჩასვით დანართები

1. პირველ რიგში, წყაროს ელფოსტის გახსნის შემდეგ, აირჩიეთ ყველა დანართი.
2. შემდეგ დააჭირეთ ღილაკს "ასლი" ჩანართში "დანართები".
3. ამის შემდეგ დააწკაპუნეთ ღილაკზე „პასუხი“ „შეტყობინებების“ ჩანართში, რათა გახსნათ საპასუხო წერილი.
4. საბოლოო ჯამში, საპასუხო ელფოსტაში დააწკაპუნეთ ხაზში „მიმაგრებული“ და დააჭირეთ „Ctrl + V“ ღილაკს, რომ ჩასვათ ადრე კოპირებული დანართები.

4. ელფოსტის გადაგზავნა და მიმღების შევსება

1. უპირველეს ყოვლისა, აირჩიეთ ასეთი ელ.წერილი და შემდეგ დააწკაპუნეთ ღილაკზე "წინ" ლენტით.
2. ახლად ამომხტარი შეტყობინების ფანჯარაში ინახება ორიგინალური დანართები. ახლა თქვენ უნდა შეავსოთ ველი "To" ორიგინალური ელ.ფოსტის გამგზავნისთვის.
3. სურვილისამებრ, შეგიძლიათ შეცვალოთ თემა თქვენი საჭიროების მიხედვით.

5. ხელახლა გაგზავნეთ ეს ელფოსტა და შეცვალეთ მიმღებები

1. დასაწყისისთვის, გახსენით წყაროს ელფოსტა.
2. შემდეგ დააჭირეთ ღილაკს "მოქმედებები" ჯგუფში "გადაადგილება".
3. შემდეგი, ჩამოსაშლელი სიიდან აირჩიეთ "ამ შეტყობინების ხელახლა გაგზავნა".
4. შესაძლოა, თქვენ მიიღებთ გაფრთხილებას იმის შესახებ, რომ თქვენ არ ხართ ორიგინალური გამგზავნი. უბრალოდ დააიგნორეთ და დააჭირეთ "დიახ".
5. მომდევნო ახალ ელფოსტაში, თქვენ უნდა შეცვალოთ ველი „To“ ორიგინალური ელფოსტის გამგზავნისთვის.
6. ასევე, გახსოვდეთ, რომ შეცვალოთ გაგზავნა ელ.ფოსტის ანგარიშის გამოყენებით თქვენს საკუთარ ანგარიშზე.

6. ორიგინალური დანართების ავტომატური დამატება VBA-ს საშუალებით

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

1. Outlook-ის მთავარ ფანჯარაში დააჭირეთ "Alt + F11" კლავიშებს.
2. შემდეგ, "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში დააკოპირეთ ქვემოთ მოცემული 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

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

მიმართეთ გამორჩეულ სარემონტო ხელსაწყოს

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

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

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