Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Copiare mail outlook su cartella del pc

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Copiare mail outlook su cartella del pc

Postdi johnatan69 » 23/03/18 08:28

Grazie lo stesso.
johnatan69
Utente Junior
 
Post: 30
Iscritto il: 21/02/18 15:32

Sponsor
 

Re: Copiare mail outlook su cartella del pc

Postdi johnatan69 » 09/04/18 15:29

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.
johnatan69
Utente Junior
 
Post: 30
Iscritto il: 21/02/18 15:32

Re: Copiare mail outlook su cartella del pc

Postdi Anthony47 » 09/04/18 23:58

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
Avatar utente
Anthony47
Moderatore
 
Post: 17648
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Copiare mail outlook su cartella del pc

Postdi johnatan69 » 12/04/18 08:55

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.
johnatan69
Utente Junior
 
Post: 30
Iscritto il: 21/02/18 15:32

Re: Copiare mail outlook su cartella del pc

Postdi Anthony47 » 14/04/18 00:31

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
Avatar utente
Anthony47
Moderatore
 
Post: 17648
Iscritto il: 21/03/06 16:03
Località: Ivrea

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Copiare mail outlook su cartella del pc":


Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti