Bir Word Belgesindeki Tüm Görüntüleri Outlook E-postasına Kopyalamanın 3 Hızlı Yolu

Bir Word belgesindeki tüm görüntüleri bir Outlook e-postasına kopyalamak istiyorsanız, bu makalede açıklanan 3 yaklaşımı kullanabilirsiniz.

Örneğin, birden fazla resim içeren bir Word belgesini bitiriyorsunuz. Daha sonra, bir Outlook e-postası oluşturmak için belgedeki bu resimleri yeniden kullanmak istersiniz. Bu durumda, Word belgesindeki görüntüleri Outlook'ta bir e-postaya hızlı bir şekilde kopyalamak için hızlı bir çözüm isteyeceksiniz. Bu gereksinime bakarak, burada size bunu elde etmenin 3 yolunu öğreteceğiz.

Yöntem 1: Tek Tek Kopyala

1. Öncelikle, Outlook'ta yeni bir e-posta oluşturun.
2. Ardından, kaynak Word belgesini açın.
3. Ardından, Word belgesinde bir resim seçin.
4. Kopyalamak için “Ctrl + C” tuşlarına basın.
5. Bundan sonra, Outlook e-postasına erişim.
6. Son olarak, kopyalanan resmi yapıştırmak için mesaj gövdesinde "Ctrl + V" tuşlarına basın.
7. Şimdi, belgedeki diğer resimleri tek tek bu e-postaya kopyalamak için bu yolu kullanın.

Yöntem 2: Görüntüleri ve Toplu Eklemeyi E-postaya Kaydetme

1. İlk olarak, açılan Word belgesinde “Dosya” > “Farklı Kaydet” seçeneğine gidin.
2. Ardından, açılan iletişim kutusunda bir hedef klasör seçin ve "Kaydetme türü" alanında "Web Sayfası"nı seçin.
3. Ardından, "Kaydet" düğmesini tıklayın.
4. Bundan sonra, Word uygulamasını normal şekilde kapatın.
5. Ardından, yeni bir Outlook e-postası oluşturun.
6. Gelen mesaj penceresinde “Ekle” sekmesine gelin ve “Resim” butonuna tıklayın.
7. Daha sonra, yeni iletişim kutusunda, Word belgesini web sayfası olarak kaydetme konumuna gidin.
8. Ardından “xxx_files” adlı klasörü açın.
9. Ardından, eklemek istediğiniz görüntüleri seçin.
10. Son olarak, “Ekle” düğmesine tıklayın.
11. Seçilen resimlerin e-postaya eklendiğini görebilirsiniz.

Yöntem 3: VBA ile Toplu Kopyalama

1. İlk başta, Word belgesini açın.
2. Ardından, Word VBA düzenleyicisine erişmek için “Alt + F11” tuşlarına basın.
3. Ardından, aşağıdaki VBA kodunu bir modüle kopyalayın.

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. Daha sonra bu makroyu çalıştırmak için “F5” tuşuna basın.
5. Makro tamamlandığında, aşağıdaki ekran görüntüsü gibi Word belgesinin tüm resimlerini içeren yeni bir Outlook e-postası alacaksınız:

Görünümünüze Özenle Bakın

Her normal kullanıcı, Outlook'ta çeşitli sorunlara maruz kalmış olabilir. Dürüst olmak gerekirse, Outlook'unuza dikkat ederseniz, korkunç sorunlardan etkili bir şekilde kaçınabilirsiniz. Örneğin, muhtemelen Outlook'unuzu her zaman kapatmanız ve bilinmeyen e-postalara hemen güvenmemeniz gerekir. Ayrıca, nitelikli bir PST düzeltme aracına sahip olmak akıllıca olacaktır. DataNumen Outlook Repair. Tamir edebilir bozuk PST mantar gibi sorunlar.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf kurtarma ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com