3 სწრაფი გზა, რომ დააკოპიროთ ყველა სურათი Word დოკუმენტიდან Outlook-ის ელფოსტაზე

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

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

მეთოდი 1: დააკოპირეთ სათითაოდ

1. პირველ რიგში, Outlook-ში შექმენით ახალი ელ.წერილი.
2. შემდეგ გახსენით წყარო Word დოკუმენტი.
3. შემდეგი, აირჩიეთ სურათი Word დოკუმენტში.
4. დააჭირეთ "Ctrl + C" მის დასაკოპირებლად.
5. ამის შემდეგ, წვდომა Outlook ელფოსტაზე.
6. და ბოლოს, დააჭირეთ "Ctrl + V" შეტყობინებების ტექსტში, რომ ჩასვათ კოპირებული სურათი.
7. ახლა გამოიყენეთ ეს გზა, რათა დააკოპიროთ სხვა სურათები დოკუმენტიდან ამ ელფოსტაზე სათითაოდ.

მეთოდი 2: სურათების შენახვა და ჯგუფური ჩასმა ელფოსტაში

1. თავდაპირველად, გახსნილ Word დოკუმენტში გადადით "ფაილი" > "შენახვა როგორც".
2. შემდეგ, ამომხტარ დიალოგურ ფანჯარაში, აირჩიეთ დანიშნულების საქაღალდე და აირჩიეთ „ვებ გვერდი“ ველში „შენახვა როგორც ტიპის“.
3. შემდეგი, დააჭირეთ ღილაკს "შენახვა".
4. ამის შემდეგ, ჩვეულებრივად დახურეთ Word აპლიკაცია.
5. შემდგომში შექმენით ახალი Outlook ელ.წერილი.
6. შეტყობინების ფანჯარაში გადადით "ჩასმა" ჩანართზე და დააჭირეთ ღილაკს "სურათი".
7. მოგვიანებით, ახალ დიალოგურ ფანჯარაში გადადით Word-ის დოკუმენტის ვებ გვერდად შენახვის ადგილას.
8. შემდეგ გახსენით საქაღალდე სახელწოდებით "xxx_files".
9. შემდეგი, აირჩიეთ სურათები, რომელთა ჩასმა გსურთ.
10. ბოლოს დააჭირეთ ღილაკს "ჩასმა".
11. თქვენ ხედავთ, რომ არჩეული სურათები ჩასმულია ელფოსტაში.

მეთოდი 3: სერიული ასლი VBA-ს საშუალებით

1. თავდაპირველად გახსენით Word დოკუმენტი.
2. შემდეგ დააჭირეთ "Alt + F11" Word VBA რედაქტორზე წვდომისთვის.
3. შემდეგი, დააკოპირეთ ქვემოთ მოცემული VBA კოდი მოდულში.

Sub CopyImagesToMail()
    Dim objTempDocument As Word.Document
    Dim objInlineShape As Word.InlineShape
    Dim objShape As Word.Shape
    Dim objOutlookApp As Object
    Dim objMail As Object
    Dim objMailDocument As Word.Document
    Dim objDocSelection As Word.Selection
 
    'Copy the whole document to a new Temp document
    Selection.WholeStory
    Selection.Copy
 
    Set objTempDocument = Word.Documents.Add
    objTempDocument.Application.Selection.PasteAndFormat (wdUseDestinationStylesRecovery)

    For Each objInlineShape In objTempDocument.InlineShapes
        objInlineShape.ConvertToShape
    Next
 
    'Clear text in the Temp document
    With objTempDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "[^2-^255]{1,}"
        .Replacement.Text = ""
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
 
    Do While objTempDocument.Shapes.Count > 0
       For Each objShape In objTempDocument.Shapes
           objShape.ConvertToInlineShape
       Next
    Loop
 
    'Copy the images in Temp Document
    objTempDocument.Application.Selection.WholeStory
    objTempDocument.Application.Selection.Copy
 
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
    'Create a new Outlook email
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objDocSelection = objMailDocument.Application.Selection
 
    'Paste the copied images into email
    objDocSelection.Collapse Direction:=wdCollapseStart
    objDocSelection.PasteAndFormat (wdUseDestinationStylesRecovery)
 
    objTempDocument.Close False
End Sub

4. ამის შემდეგ დააჭირეთ "F5" ღილაკს ამ მაკროს გასაშვებად.
5. როდესაც მაკრო დასრულდება, თქვენ მიიღებთ ახალ Outlook ელფოსტას, რომელიც შეიცავს Word დოკუმენტის ყველა სურათს, როგორიცაა შემდეგი ეკრანის სურათი:

იზრუნეთ თქვენს მსოფლმხედველობაზე ზრუნვით

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

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

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