Italian languace very often use special accent characters (à, è, é, ì, ò, ù). This characters may generate errors with some programs like "EML to MSG" (see this post).
A simply understandable solution is to use a few VBA command to substitute these characters with others (non-accented). The code is: (remember to substitute the RED "mypath" variable with your preferred path!
Sub removeaccents()
Dim FileName As String
Dim Letter(1000) As String
mypath = "C:\test\root\"
FileName = Dir(mypath & "*.*")
Do While FileName <> ""
lung = Len(FileName)
OldPathName = mypath & FileName
For Count = 1 To lung
Letter(Count) = Mid$(FileName, Count, 1)
Select Case Letter(Count)
Case Is = "à"
Letter(Count) = "a"
Case Is = "è"
Letter(Count) = "e"
Case Is = "é"
Letter(Count) = "e"
Case Is = "ì"
Letter(Count) = "i"
Case Is = "ò"
Letter(Count) = "o"
Case Is = "ù"
Letter(Count) = "u"
End Select
Next Count
FileName = ""
For Count = 1 To lung
FileName = FileName & Letter(Count)
Next Count
NewPathName = mypath & FileName
Name OldPathName As NewPathName
FileName = Dir()
Loop
MsgBox "renaming complete!", vbOKOnly
End Sub
A simply understandable solution is to use a few VBA command to substitute these characters with others (non-accented). The code is: (remember to substitute the RED "mypath" variable with your preferred path!
Sub removeaccents()
Dim FileName As String
Dim Letter(1000) As String
mypath = "C:\test\root\"
FileName = Dir(mypath & "*.*")
Do While FileName <> ""
lung = Len(FileName)
OldPathName = mypath & FileName
For Count = 1 To lung
Letter(Count) = Mid$(FileName, Count, 1)
Select Case Letter(Count)
Case Is = "à"
Letter(Count) = "a"
Case Is = "è"
Letter(Count) = "e"
Case Is = "é"
Letter(Count) = "e"
Case Is = "ì"
Letter(Count) = "i"
Case Is = "ò"
Letter(Count) = "o"
Case Is = "ù"
Letter(Count) = "u"
End Select
Next Count
FileName = ""
For Count = 1 To lung
FileName = FileName & Letter(Count)
Next Count
NewPathName = mypath & FileName
Name OldPathName As NewPathName
FileName = Dir()
Loop
MsgBox "renaming complete!", vbOKOnly
End Sub