Mesajın mətninə daxil edilmiş bütün şəkilləri tez bir zamanda e-poçt qoşmalarına dəyişmək istəyirsinizsə, əl ilə silib yenidən əlavə etməyinizə ehtiyac yoxdur. Siz sadəcə bu məqalədə açıqlanan VBA kodundan istifadə edə bilərsiniz.
Bəzən siz bütün daxil edilmiş şəkilləri toplu olaraq qoşmalara çevirmək istəyə bilərsiniz. Məsələn, mesajın gövdəsində çoxlu şəkil bədəndəki mətnləri oxumağınıza mane olacaq. Buna görə də, onları e-poçtun əsas hissəsindən silmək və əvəzinə qoşma kimi əlavə etmək istəyirsiniz. Əlbəttə ki, bunu əl ilə edə bilərsiniz. Ancaq hər hansı bir alət və ya VBA kodu bunu bir anda əldə edə bilsə, daha əlçatan olmalıdır. Burada sizə belə bir VBA kodunu təqdim edəcəyik.
Bütün daxil edilmiş şəkilləri tez bir zamanda əlavələrə çevirin
- Əvvəlcə Outlook proqramınızı başladın.
- Sonra "Developer" sekmesine keçə və "Visual Basic" düyməsini vura bilərsiniz.
- Sonra Outlook VBA redaktoru pəncərəsinə daxil olacaqsınız.
- Sonradan aşağıdakı VBA kodunu boş modula köçürməlisiniz.
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
- Bundan sonra, Outlook-un makrolara icazə vermək üçün qurulduğunu təsdiqləməlisiniz.
- İstəyə görə, tez-tez bunu tələb edirsinizsə, gələcək rahat yoxlama üçün yeni makronu Tez Giriş Alətlər Panelinə əlavə etmək daha yaxşıdır.
- Nəhayət, bir cəhd edə bilərsiniz. E-poçtu seçin və ya açın və sonra Tez Giriş Alətlər Panelində yeni makro düyməsini klikləməklə makronu işə salın.
- Dərhal bütün daxil edilmiş şəkillər aşağıdakı ekran görüntüsü kimi qoşmalara dəyişdiriləcək:
Dəyərli Outlook məlumatlarınızı qorumaq üçün fəndlər
Hamımızın bildiyimiz kimi, Outlook PST faylı Word sənədləri və ya Excel cədvəlləri kimi ümumi fayllarla eyni həssasdır. Buna görə də, viruslar və ya düzgün olmayan işləmələr kimi PST faylınız ətrafındakı bütün risklərə diqqət yetirməlisiniz. Beləliklə, PST faylınız üçün müntəzəm məlumat ehtiyat nüsxələrini çıxarmalısınız. Həmçinin, əgər onu ödəyə bilirsinizsə, möhkəm saxlamaq müdrikdir Outlook təmiri alət rahat, kimi DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com