Excel Çalışma Sayfasındaki Tüm Görüntüleri Outlook E-postasına Kopyalamanın 2 Hızlı Yolu

Bazen, bir Excel çalışma sayfasındaki tüm katıştırılmış görüntüleri bir Outlook e-postasına kopyalamanız gerekebilir. Bu sırada bu makaleyi okuyabilirsiniz. Burada size 2 hızlı yöntemi tanıtacağız.

Bir Excel çalışma sayfasındaki bir görüntüyü bir Outlook e-postasına kopyalamak kolaydır. Bu görüntüyü kopyalamak için sadece seçip “Ctrl + C” tuşlarına basabilirsiniz. Ancak kopyalanacak çok resim varsa tek tek kopyalamak hiç şüphesiz aptalca ve sıkıcı bir yol. Bu nedenle, burada size 2 çok daha etkili yolu tanıtacağız. Şimdi onları ayrıntılı olarak almak için okumaya devam edin.

Yöntem 1: Excel Çalışma Sayfasındaki Tüm Görüntüleri Manuel Olarak Seçin ve Kopyalayın

1. Öncelikle, ilgili Excel çalışma sayfasını açın.
2. Ardından, “F5” tuş düğmesine basın.
3. Açılan "Git" iletişim kutusunda, "Özel" düğmesini tıklayın.
4. Ardından, yeni “Özelliğe Git” iletişim kutusunda “Nesneler”i seçin ve “Tamam”a tıklayın.
5. Bir kerede, tüm gömülü görüntüler seçildi.
6. Şimdi, seçilen tüm görüntüleri kopyalamak için “Ctrl + C” tuşlarına basın.
7. Bundan sonra, Outlook'u başlatın ve yeni bir e-posta oluşturun.
8. Daha sonra imleci mesaj gövdesine getirin ve “Ctrl + V” tuşlarına basın.
9. Hemen, kopyalanan tüm resimler aşağıdaki şekilde olduğu gibi e-posta gövdesine yapıştırılacaktır.

Yöntem 2: Çalışma Sayfasındaki Tüm Görüntüleri VBA ile E-postaya Kopyalayın

1. Öncelikle Excel'de "Alt + F11" tuşlarına basarak Excel VBA düzenleyicisini açın.
2. Ardından, aşağıdaki VBA kodunu bir modüle veya projeye yerleştirin.

Sub CopyImagesToMail()
    Dim objWorksheet As Excel.Worksheet
    Dim objOutlookApp As Object
    Dim objMail As Object
    Dim objMailDocument As Object
    Dim objShape As Excel.Shape
 
    'Get the specific worksheet
    Set objWorksheet = ThisWorkbook.Worksheets(1)
 
    'Create a new email
    Set objOutlookApp = CreateObject("Outlook.application")
    Set objMail = objOutlookApp.CreateItem(objOutlookAppobjMailItem)
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
 
    'Copy images to the email
    For Each objShape In objWorksheet.Shapes
        objShape.Copy
        objMailDocument.Range(0, 0).Paste
    Next
End Sub

3. Ardından, mevcut makroda “F5” tuşuna basın.
4. Aynı anda yeni bir e-posta görüntülenecektir.
5. Burada, "İzin Ver"i tıklamanız gereken bir uyarı alabilirsiniz.
6. Sonunda, belirli Excel çalışma sayfasındaki tüm resimler, aşağıdaki ekran görüntüsünde gösterildiği gibi e-posta gövdesinde olacaktır.

Outlook Çevresindeki Tüm Risklere Dikkat Edin

Outlook, çevresinde virüs, sistem arızası, donanım arızaları ve güç sorunları gibi çok fazla tehdit olduğu için bozulmaya karşı hassastır. Bu nedenle, tüm bu tehlikeli faktörlere dikkat etmeniz gerekir. Her şeyden önce, bilinmeyen gönderenlerden gelen e-postalara asla kolayca güvenmemelisiniz. Ayrıca, Outlook dosyanızı düzenli olarak yedeklemeye devam etmeniz daha iyi olur. Son fakat en az değil, PST'yi düzelt zamanında dosya, gibi son teknoloji bir onarım aracı hazırlamanız gerekir DataNumen Outlook Repair.

Yazar Tanıtımı:

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