Ha az üzenettörzsbe ágyazott összes képet gyorsan e-mail mellékletekre szeretné módosítani, nem kell manuálisan eltávolítania és újra csatolnia. Használhatja az ebben a cikkben bemutatott VBA-kódrészletet.
Néha előfordulhat, hogy az összes beágyazott képet köteggel szeretné csatolmányokká alakítani. Például, ha túl sok kép van az üzenettörzsben, az megzavarja a szövegek olvasását. Ezért szeretné eltávolítani őket az e-mail törzséből, és inkább mellékletként felvenni őket. Természetesen ezt manuálisan is megteheti. De kéznél foghatóbbnak kell lennie, ha bármilyen eszköz vagy VBA kód képes ezt egy mozdulattal megszerezni. Itt egy ilyen VBA-kódot mutatunk be Önnek.
Gyorsan konvertálja az összes beágyazott képet mellékletekké
- Először is indítsd el az Outlook programot.
- Ezután válthat a „Fejlesztő” fülre, és nyomja meg a „Visual Basic” gombot.
- Ezután megjelenik az Outlook VBA szerkesztő ablaka.
- Ezt követően be kell másolnia a következő VBA-kódot egy üres modulba.
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
- Ezt követően meg kell erősítenie, hogy az Outlook be van állítva a makrók engedélyezésére.
- Opcionálisan, ha erre gyakran szüksége van, jobb, ha hozzáadja az új makrót a Gyorselérési eszköztárhoz a későbbi kényelmes ellenőrzés érdekében.
- Végül megpróbálhatod. Válasszon vagy nyisson meg egy e-mailt, majd futtassa a makrót a Gyorselérési eszköztár új makró gombjára kattintva.
- Azonnal az összes beágyazott képet csatolmányokká változtatjuk, mint a következő képernyőkép:
Trükkök értékes Outlook-adatai védelméhez
Mint mindannyian tudjuk, az Outlook PST-fájl ugyanolyan sebezhető, mint az általános fájlok, például a Word-dokumentumok vagy az Excel-táblázatok. Ezért továbbra is ügyeljen a PST-fájl körüli kockázatokra, például a vírusokra vagy a nem megfelelő kezelésekre. Ezért rendszeres biztonsági másolatot kell készítenie a PST-fájlról. Továbbá, ha megengedheti magának, bölcs dolog robusztusat tartani Outlook javítás kézre álló eszköz, pl DataNumen Outlook Repair.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com