verwijderen vreemde tekens in titel e-mails

Status
Niet open voor verdere reacties.
M

mariannevanh

Terugkerende gebruiker
Lid geworden
14 dec 2004
Berichten
2.085
Ik heb mijn e-mails gedownload i.v.m. een aanstaande verandering van hostingprovider.
Veel e-mails kunnen door Dropbox niet geïndexeerd worden omdat er vreemde tekens in het onderwerp (=bestandsnaam) staan.
is er een manier om niet-standaard tekens (pizzapunt, feestmuts, enz.) uit bestandsnamen te filteren?

Vriendelijke groet,
Marianne
 
Voorbeeld of screenshot van een dergelijke naam?
 
Bij de eerste en de vierde naam kun je de gekke tekens zien.
Er zijn echter honderden mails met vreemde tekens...
 

Bijlagen

  • dropbox_20210216.JPG
    dropbox_20210216.JPG
    21,4 KB · Weergaven: 43
Zijn die "tekens" selecteer- en kopieerbaar? Dan kun je het proberen met Advanced Renamer. Kies Vervangen en breng teken in. Ik kan het niet testen. Er staat wel tekst, dus het is de vraag...
 
Laatst bewerkt:
Maak voor de test even een kopie van die map en laat dan dit VB Script er op los.
Toegestane tekens staan in de variabele VLD.
Die kan je dus ook naar wens aanpassen.
Code: 
VLD = " .-@#$%^&(){}[]!01234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ€"

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
sFolder = WshShell.CurrentDirectory

For Each oFile In oFSO.GetFolder(sFolder).Files
    If LCase(oFSO.GetExtensionName(oFile.Name)) = "eml" Then
        For i = 1 to Len(oFile.name)-4
	    Teken = Mid(oFile.Name, i, 1)
	    if Instr(1, VLD, Teken) = 0 Then Teken = " "
            Naam = Naam & Teken
        Next
        oFso.MoveFile oFile, Naam & ".eml"
    End if
Next

Maak in die kopiemap een bestandje met kladblok en geef deze de naam Hernoemer.vbs
Open deze dan met kladblok en plak bovenstaande code er in.
Dubbelklik er vervolgens op om hem uit te voeren.
 
Laatst bewerkt:
Of gewoon alle email in Thunderbird of Outlook binnenhalen en daarna bij de nieuwe provider weer uploaden. Scheelt een heleboel gedoe met losse emails.
 
Verplaatst naar internet sectie
 
Dankjewel @edmoor, ik denk dat ik deze ga gebruiken, maar....
ik krijg een foutmelding
Regel: 14
Teken: 9
Fout: kan het pad niet vinden
Code: 800A004C
Bron: Runtimefout Microsoft VBScript

Ik meende de fout te zien in het gebruik van kapitalen en veranderde
oFso.MoveFile oFile, Naam & ".eml"
in
oFSO.MoveFile oFile, Naam & ".eml"

maar de fout bleef.

Een willekeurige bestandsnaam:
20190101-Een nieuwjaarscadeautje voor jou, Marianne-2673.eml
 
Hij doet het hier prima op een bestand met die naam, het cadeautje is er dan uit.
Wat is het complete pad van je map met die bestanden?

Of zet dit: msgbox oFile
Tussen de regels Next en Ofso.MoveFile

Laat mij dan weten wat er in de MessageBox staat.

N.B:
Objectnamen in de code zijn niet hoofdletter gevoelig.
Dus oFSO is hetzelfde als oFso.
 
Laatst bewerkt:
Werkt hier ook. Ik heb getest in map E:\Mijn-afbeeldingen\Screenshots\test 12345. Geen foutmelding en cadeautje is weg.
 
De map waarin de documenten staan heet C:\Users\Marianne van Hxxxxx\Dropbox\Mijn pc (DESKTOP-DDS600T)\Downloads\mail\Postvak IN_20210216-2205\berichten

Als ik de door @edmoor gesuggereerde regel toevoeg en het script uitvoer, krijg ik twee keer een bestandsnaam te zien waarna ik op Enter druk, daarna verschijnt dezelfde foutmelding (alleen Regelnummer is nu uiteraard 15).
 
Kopiëer die de brichten map naar C:\ en probeer het dan daar nog eens.
 
Dezelfde fout?
Kan het pad niet vinden?
Wat is de bestandsnaam op dat moment?
 
Laatst bewerkt:
En m'n laatste vraag in #14?
 
Probleem is de tekencodering. Als in een tekst emoticons gebruikt kunnen worden dan is het een UTF-8 codering. Als dit niet mogelijk is dan is het een ANSI codering. Hierdoor ontstaat een tweede probleem. Gewone letters/cijfers/leestekens zijn bij beide coderingen identiek maar letters als é ó ä en andere accenten kunnen problemen geven (net als de emoticons). Bijvoorbeeld een accent in het woord "Eén" (UTF-8) wordt omgezet naar "Eén" (ANSI).
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan