|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
May 19th 08, 09:10 AM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
Strip illegal character from filename
Is it possible to do this with less code?
EmneRensket = Rensket(Emne, ":") EmneRensket = Rensket(Emne, ";") EmneRensket = Rensket(Emne, ".") EmneRensket = Rensket(Emne, ",") EmneRensket = Rensket(Emne, "\") EmneRensket = Rensket(Emne, "/") EmneRensket = Rensket(Emne, "*") EmneRensket = Rensket(Emne, "[") EmneRensket = Rensket(Emne, "]") EmneRensket = Rensket(Emne, "?") EmneRensket = Rensket(Emne, "!") EmneRensket = Rensket(Emne, "'") EmneRensket = Rensket(Emne, "") EmneRensket = Rensket(Emne, "") EmneRensket = Rensket(Emne, "|") Function Rensket(text As String, illegal As String) As String Dim Ch As String For i = 1 To Len(illegal) Ch = Mid(illegal, i, 1) While InStr(text, Ch) 0 text = Left(text, InStr(text, Ch) - 1) & Right(text, Len(text) - InStr(text, Ch)) Wend Next Rensket = text End Function 
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| incoming mail strip enclosures | ernst-NL[_2_] | Outlook - Calandaring | 1 | November 9th 07 02:38 AM |
| Change filename | Peter Marchert | Outlook and VBA | 17 | March 29th 07 09:24 PM |
| Strip Attachments AFTER sending | JustinHereForNow | Outlook and VBA | 1 | March 6th 07 10:42 PM |
| Any way to strip attachments from archived email? | ggull | Outlook Express | 4 | April 5th 06 04:40 PM |
| strip out leading text from a forwarded email. | anonymous | Outlook and VBA | 1 | March 17th 06 10:55 AM |
Threaded Mode