როგორ დავაკოპიროთ ყველა დანართი რამდენიმე ელ. ფოსტიდან ახალ ელფოსტაზე Outlook-ში

Outlook Solutions სექტემბერი 29, 2025

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

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

ჯგუფური კოპირება ყველა დანართი მრავალი ელფოსტადან ახალ ელფოსტაზე

თავიდანვე, ჩვეულებრივად ჩართეთ თქვენი Outlook პროგრამა.
შემდეგ მთავარ Outlook ფანჯარაში დააჭირეთ ღილაკს "Alt + F11".
მომდევნო "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში ჩადეთ ახალი მოდული ან გახსენით მოდული, რომელიც არ გამოიყენება.
შემდეგ დააკოპირეთ და ჩასვით შემდეგი VBA კოდები ასეთ მოდულში.

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

ამის შემდეგ, თქვენ უნდა გააგრძელოთ ახალი VBA პროექტის დამატება Quick Access Toolbar-ში. შეგიძლიათ შეავსოთ ის "Outlook Options"-ში.
მოგვიანებით თქვენ უნდა შეცვალოთ თქვენი Outlook მაკრო უსაფრთხოების დონე დაბალზე.
საბოლოოდ შეგიძლიათ სცადოთ.

უპირველეს ყოვლისა, დააჭირეთ ღილაკს "Ctrl" და აირჩიეთ რამდენიმე ელ.წერილი, რომლის დანართი გსურთ დააკოპიროთ.
შემდეგ დააჭირეთ ახალ მაკრო ღილაკს სწრაფი წვდომის ხელსაწყოთა ზოლში.
მაშინვე გამოჩნდება ახალი ელფოსტა ყველა დანართით.

გამოწვევა ხშირი Outlook PST საკითხები

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

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

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