Excel-ийн ажлын хуудаснаас Outlook имэйл рүү бүх зургийг хуулах 2 хурдан арга

Заримдаа, Excel-ийн ажлын хуудсан дахь бүх суулгагдсан зургийг Outlook имэйл рүү хуулах шаардлагатай болдог. Энэ үед та энэ нийтлэлийг уншиж болно. Энд бид танд 2 хурдан аргыг танилцуулах болно.

Excel-ийн ажлын хуудаснаас Outlook имэйл рүү зураг хуулах нь хялбар байдаг. Та энэ зургийг хуулахын тулд “Ctrl + C” -г сонгоод л дарна уу. Гэсэн хэдий ч, хуулбарлах олон зураг байгаа бол нэг нэгээр нь хуулах нь тэнэг бөгөөд уйтгартай арга болох нь дамжиггүй. Тиймээс бид танд илүү үр дүнтэй 2 аргыг танилцуулах болно. Одоо тэдгээрийг нарийвчлан авахын тулд уншина уу.

Арга 1: Excel-ийн ажлын хуудсан дахь бүх зургийг гараар сонгож хуулах

1. Эхлээд тодорхой Excel ажлын хуудсыг нээнэ үү.
2. Дараа нь “F5” товчийг дарна уу.
3. Попап цонхонд "Go To" харилцах цонхонд "Special" товчийг дарна уу.
4. Дараа нь шинэ "Тусгай руу очих" харилцах цонхноос "Объект" -ыг сонгоод "OK" дээр дарна уу.
5. Нэгэн зэрэг бүх суулгагдсан зургуудыг сонгосон болно.
6. Одоо сонгосон бүх зургийг хуулахын тулд “Ctrl + C” товчийг дарна уу.
7. Үүний дараа Outlook програмыг ажиллуулаад шинэ имэйл үүсгээрэй.
8. Дараа нь зурвасын хэсэгт курсороо оруулаад “Ctrl + V” товчийг дарна уу.
9. Бүх хуулбарласан зургийг тэр даруй имэйлийн үндсэн хэсэгт дараахь зураг шиг наах болно.

Арга 2: Ажлын хуудсан дээрх бүх зургийг VBA ашиглан имэйл рүү хуулах

1. Excel дээр эхлүүлэхийн тулд Excel VBA засварлагчийг ажиллуулахын тулд "Alt + F11" товчийг дарна уу.
2. Дараа нь доорхи VBA кодыг модуль эсвэл төсөлд оруулна уу.

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. Дараа нь одоогийн макро дээр "F5" товчийг дарна уу.
4. Нэг дор шинэ имэйл гарч ирнэ.
5. Энд танд "Зөвшөөрөх" товчийг дарах анхааруулга ирж магадгүй юм.
6. Эцэст нь Excel-ийн тодорхой ажлын хуудсан дээрх бүх зургууд дараахь дэлгэцийн агшинг харуулсан шиг имэйлийн үндсэн хэсэгт байх болно.

Outlook-ийн эргэн тойрон дахь бүх эрсдлийг анхаарч үзээрэй

Outlook нь вирус, системийн доголдол, тоног төхөөрөмжийн доголдол, эрчим хүчний асуудал гэх мэт маш олон аюул заналхийлэлд автдаг тул авлигад өртөмтгий байдаг. Тиймээс эдгээр бүх аюултай хүчин зүйлийг анхааралтай ажиглаж байх хэрэгтэй. Юуны өмнө та үл мэдэгдэх илгээгчдээс ирсэн имэйлд хэзээ ч итгэх ёсгүй. Үүнээс гадна, та Outlook файлынхаа нөөцийг үе үе хадгалж байх нь дээр. Эцэст нь хэлэхэд хамгийн бага нь PST засах файлыг цаг тухайд нь бөглөж өгөх хэрэгтэй DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. авлига авсан кв програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com