Copiare mail outlook su cartella del pc

[johnatan69]

Grazie lo stesso.

[johnatan69]

Ciao Anthony.
Torno alla carica perché penso di aver capito cosa causa il problema.
Infatti si bloccano le mail che nell'oggetto hanno più spazi tra una parola e l'altra.
Cioè se per esempio l'oggetto è:
RICHIESTA PER MIO CONTO "funziona perfettamente"

se invece è:

RICHIESTA.......PER..........MIO.....CONTO" "si blocca" (al posto dei punti gli spazi chiaramente)

Pensi ci sia soluzione?
Grazie.

[Anthony47]

Non c'e' nessuna regola che impedisce l'uso di caratteri "spazio" nei nomi file, nemmeno come caratteri iniziale e finale; potrebbero essere altri caratteri non standard.
Tagliamo la testa al toro ed eliminiamo tutti i caratteri che non siano alfabetici o numerici o pochi altri simboli; per questo scopo inserisci in coda alla macro questa funzione:

Codice: Seleziona tutto

Function filtrD(txt As String) As String
'
With CreateObject("VBScript.RegExp")
'    .Pattern = "\d+(\.\d+)?"
    .Pattern = "[^A-Za-z0-9_-]"
    .Global = True
    filtrD = .Replace(txt, "")
End With
End Function


Poi all'interno della Function CreaFName sostituisci
noBB = "%|*\/:<>?"
For I = 1 To Len(noBB)
cFN = Replace(cFN, Mid(noBB, I, 1), "", , , vbTextCompare)
Next I

con

Codice: Seleziona tutto

cFN = filtrD(cFN)

Ciao

[johnatan69]

Grazie Anthony adesso sembra funzionare tutto perfettamente! Ho solo inserito uno spazio tra le "" nel replace in maniera che le parole non fossero tute unite.
Ancora grazie.

[Anthony47]

Grazie Anthony adesso sembra funzionare tutto perfettamente! Ho solo inserito uno spazio tra le "" nel replace in maniera che le parole non fossero tute unite.

Eh he, il che dimostra che non erano gli spazi tra una parola e l'altra a creare il problema...

Se vuoi un "nome file" piu' ordinato allora aggiungi in coda questa ulteriore function:

Codice: Seleziona tutto

Function TLim(ByVal myStr As String) As String
Dim L0 As Long
'
Do
    L0 = Len(myStr)
    myStr = Replace(myStr, "  ", " ", , , vbTextCompare)
    If Len(myStr) = L0 Or Len(myStr) < 10 Then Exit Do
Loop
TLim = Trim(myStr)
End Function


E poi dove abbiamo messo cFN = filtrD(cFN) usiamo invece

Codice: Seleziona tutto

cFN = Tlim(filtrD(cFN))


Ciao