Als u snel alle afbeeldingen in de berichttekst wilt wijzigen in e-mailbijlagen, hoeft u deze niet handmatig te verwijderen en opnieuw toe te voegen. U kunt gewoon het stuk VBA-code gebruiken dat in dit artikel wordt weergegeven.
Soms wilt u misschien alle ingesloten afbeeldingen batchgewijs omzetten in bijlagen. Te veel afbeeldingen in de berichttekst zullen bijvoorbeeld het lezen van de teksten in de hoofdtekst onderbreken. Daarom wilt u ze uit de e-mailtekst verwijderen en ze in plaats daarvan als bijlage toevoegen. U kunt dit natuurlijk handmatig doen. Maar het moet handiger zijn als tools of VBA-codes dit in één keer kunnen krijgen. Hier zullen we zo'n VBA-code aan u onthullen.
Converteer snel alle ingesloten afbeeldingen naar bijlagen
- Start allereerst uw Outlook-programma.
- Vervolgens kunt u overschakelen naar het tabblad "Ontwikkelaar" en op de knop "Visual Basic" klikken.
- Vervolgens komt u in het Outlook VBA-editorvenster.
- Vervolgens moet u de volgende VBA-code naar een lege module kopiëren.
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
- Daarna moet u bevestigen dat uw Outlook is ingesteld om macro's toe te staan.
- Optioneel, als u dit vaak nodig heeft, kunt u de nieuwe macro beter toevoegen aan de werkbalk Snelle toegang voor toekomstige controle.
- Uiteindelijk kun je het proberen. Selecteer of open een e-mail en voer de macro uit door op de nieuwe macroknop in de werkbalk Snelle toegang te klikken.
- Alle ingesloten afbeeldingen worden onmiddellijk gewijzigd in bijlagen als de volgende schermafbeelding:
Trucs voor het beschermen van uw waardevolle Outlook-gegevens
Zoals we allemaal weten, is Outlook PST-bestand hetzelfde kwetsbaar als gewone bestanden, zoals Word-documenten of Excel-spreadsheets. Daarom moet u op alle risico's rond uw PST-bestand letten, zoals virussen of onjuiste afhandeling. U moet dus regelmatig gegevensback-ups maken voor uw PST-bestand. En als u het zich kunt veroorloven, is het verstandig om een robuust te houden Outlook-reparatie tool handig, zoals DataNumen Outlook Repair.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com