Word hujjatidan Outlook elektron pochtasiga barcha rasmlarni nusxalashning 3 ta tezkor usuli

Agar siz barcha rasmlarni Word hujjatidan Outlook elektron pochtasiga ko'chirmoqchi bo'lsangiz, ushbu maqolada keltirilgan 3 ta yondashuvdan foydalanishingiz mumkin.

Masalan, siz bir nechta rasmlarni o'z ichiga olgan Word hujjatini tugatasiz. Keyinchalik, Outlook elektron pochta xabarini yaratish uchun ushbu rasmlarni hujjatda qayta ishlatmoqchisiz. Bunday vaziyatda siz rasmlarni Word hujjatidan Outlook-da elektron pochtaga tezda nusxalash uchun tezkor echimni orzu qilasiz. Ushbu talabni ko'rib chiqsak, biz sizga uni olishning 3 usulini o'rgatamiz.

1-usul: Birma-bir nusxa ko'chiring

1. Birinchidan, Outlook-da yangi elektron pochta yarating.
2. Keyin Word manbasini oching.
3. Keyin Word hujjatidagi rasmni tanlang.
4. Uni nusxalash uchun "Ctrl + C" tugmasini bosing.
5. Shundan so'ng, Outlook elektron pochtasiga kiring.
6. Nihoyat, nusxalangan tasvirni joylashtirish uchun xabarlar qismidagi "Ctrl + V" tugmalarini bosing.
7. Endi hujjatdagi boshqa rasmlarni ushbu elektron pochtaga birma-bir nusxalash uchun shu usuldan foydalaning.

2-usul: Tasvirlarni saqlang va elektron pochtaga to'plam qo'shing

1. Avval ochilgan Word hujjatida "Fayl"> "Boshqacha saqlash" ga o'ting.
2. Keyin, ochilgan dialog oynasida maqsad papkani tanlang va "Tiri sifatida saqlash" maydonida "Veb-sahifa" ni tanlang.
3. Keyin, "Saqlash" tugmasini bosing.
4. Shundan so'ng Word ilovasini odatdagidek yoping.
5. Keyinchalik, yangi Outlook elektron pochta manzilini yarating.
6. Xabar oynasida "Qo'shish" yorlig'iga o'ting va "Rasm" tugmasini bosing.
7. Keyinchalik, yangi dialog oynasida Word hujjatini veb-sahifa sifatida saqlash joyiga o'ting.
8. Keyin, "xxx_files" deb nomlangan papkani oching.
9. Keyin qo'shmoqchi bo'lgan rasmlarni tanlang.
10. Nihoyat, "Qo'shish" tugmasini bosing.
11. Tanlangan rasmlar elektron pochtaga kiritilganligini ko'rishingiz mumkin.

3-usul: VBA orqali ommaviy nusxa ko'chirish

1. Avval Word hujjatini oching.
2. Keyin Word VBA muharririga kirish uchun "Alt + F11" tugmasini bosing.
3. Keyin quyidagi VBA kodini modulga ko'chiring.

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. Shundan so'ng, ushbu makrosni ishga tushirish uchun "F5" tugmasini bosing.
5. Makros tugagach, siz quyidagi skrinshot kabi Word hujjatining barcha rasmlarini o'z ichiga olgan yangi Outlook elektron pochta xabarini olasiz:

Outlookga ehtiyotkorlik bilan qarang

Har bir oddiy foydalanuvchi Outlook-da turli muammolarga duch kelgan bo'lishi mumkin. Rostini aytsam, agar siz Outlook-ga g'amxo'rlik qilsangiz, dahshatli muammolardan samarali qochishingiz mumkin. Masalan, siz har doim Outlook-ni yopishingiz va noma'lum elektron pochta xabarlariga osongina ishonmasligingiz kerak. Bundan tashqari, malakali PST tuzatish vositasini qo'lga kiritish oqilona DataNumen Outlook Repair. Ta'mirlash mumkin buzilgan PST mantar kabi muammolar.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com