Барлық ендірілген кескіндерді Outlook электрондық поштаңыздағы тіркемелерге қалай жылдам түрлендіруге болады

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Хабардың негізгі бөлігіне енгізілген барлық суреттерді электрондық пошта тіркемелеріне жылдам өзгерткіңіз келсе, қолмен алып тастау және қайта тіркеу қажет емес. Сіз жай ғана осы мақалада көрсетілген VBA кодының бөлігін пайдалана аласыз.

Кейде барлық ендірілген кескіндерді тіркемелерге топтамаға айналдырғыңыз келуі мүмкін. Мысалы, хабарлама мәтініндегі суреттердің тым көп болуы мәтіндегі мәтіндерді оқуыңызды тоқтатады. Сондықтан оларды электрондық поштаның негізгі мәтінінен алып тастап, орнына тіркеме ретінде қосқыңыз келеді. Әрине, мұны қолмен жасауға болады. Бірақ кез келген құралдар немесе VBA кодтары мұны бір уақытта ала алатын болса, бұл ыңғайлы болуы керек. Мұнда біз сізге осындай VBA кодын ашамыз.

Барлық ендірілген кескіндерді Outlook электрондық поштаңыздағы тіркемелерге жылдам түрлендіру

Барлық ендірілген кескіндерді тіркемелерге жылдам түрлендіру

  1. Ең алдымен, Outlook бағдарламаңызды іске қосыңыз.
  2. Содан кейін «Әзірлеуші» қойындысына ауысып, «Visual Basic» түймесін басуға болады.
  3. Содан кейін сіз Outlook VBA редакторының терезесіне кіресіз.
  4. Одан кейін келесі VBA кодын бос модульге көшіру керек.
Sub TurnEmebeddedImagestoAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim strFile As String
    Dim i As Long
 
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = Application.ActiveExplorer.Selection.Item(1)
    End Select

    Set objAttachments = objMail.attachments
 
    'Create a temp folder
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "YYYY-MM-DD hh-mm-ss")
    MkDir (strTempFolder)
 
    'Save all embedded images to temp folder
    For i = objAttachments.Count To 1 Step -1
        Set objAttachment = objAttachments.Item(i)
        If IsEmbedded(objAttachment) = True Then
           objAttachment.SaveAsFile strTempFolder & "\" & objAttachment.FileName
        End If
    Next
 
    'Add extracted images as attachments
    strTempFolder = strTempFolder & "\"
    strFile = Dir(strTempFolder)
 
    While Len(strFile) > 0
          objMail.attachments.Add (strTempFolder & strFile)
          strFile = Dir
    Wend
 
    'Remove embedded images from message body
    With objMail
        .BodyFormat = olFormatPlain
    End With
End Sub

Function IsEmbedded(objCurAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.PropertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurAttachment.PropertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbedded = True
    Else
       IsEmbedded = False
    End If
End Function

VBA коды - барлық ендірілген кескіндерді қосымшаларға түрлендіру

  1. Осыдан кейін Outlook бағдарламасының макростарға рұқсат беретінін растау керек.
  2. Қосымша, егер сіз мұны жиі қажет етсеңіз, болашақта ыңғайлы тексеру үшін жаңа макросты Жылдам кіру құралдар тақтасына қосқаныңыз жөн.
  3. Ақыр соңында сіз көріңіз. Электрондық поштаны таңдаңыз немесе ашыңыз, содан кейін Жылдам кіру құралдар тақтасындағы жаңа макрос түймесін басу арқылы макросты іске қосыңыз.
  4. Бірден барлық ендірілген кескіндер келесі скриншот ретінде тіркемеге өзгертіледі:Әсерлер: Тіркемеге енгізілген кескіндер

Құнды Outlook деректеріңізді қорғауға арналған амалдар

Барлығымыз білетіндей, Outlook PST файлы Word құжаттары немесе Excel электрондық кестелері сияқты қарапайым файлдар сияқты осал. Сондықтан, PST файлыңыздың айналасындағы вирустар немесе дұрыс емес өңдеулер сияқты барлық қауіптерге назар аударуыңыз керек. Сондықтан сіз PST файлыңыз үшін деректердің тұрақты сақтық көшірмесін жасауыңыз керек. Сондай-ақ, егер сіз оған қол жеткізе алсаңыз, сенімді ұстағаныңыз дұрыс Перспективаны жөндеу сияқты ыңғайлы құрал DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.