|
| 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 
|
|
#2
May 19th 08, 06:46 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Strip illegal character from filename
e.g.: Sub ReplaceChars(Text$) Dim ar() Dim i& Dim ReplaceBy$ ReplaceBy = "" ar = Array(";", ":", ",") For i=0 To Ubound(ar) Text = Replace(1, Text, ar(i), ReplaceBy, vbTextCompare) Next End Sub -- Best regards Michael Bauer - MVP Outlook : Outlook Categories? Category Manager Is Your Tool: : http://www.vboffice.net/product.html?pub=6&lang=en Am Mon, 19 May 2008 01:10:23 -0700 (PDT) schrieb ExcelLars: 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
|
|
#3
May 19th 08, 11:35 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Strip illegal character from filename
looks very nice, but will not work for me.
....... Dim ar() Dim i& Dim ReplaceBy$ ReplaceBy = "_" ar = Array(";", ":", ",", "\", "/", "*", "[", "]", "?", "!", "'", "", "", "|", "$") For i = 0 To UBound(ar) Emne = Replace(1, Emne, ar(i), ReplaceBy, vbTextCompare) Next filnavn = Mdato & " " & Avsendernavn & " " & Emne & ".MSG" txtPath = TextBox1.Value myOlSel.Item(x).SaveAs txtPath & filnavn, olMSG 'export message
|
|
#4
May 20th 08, 04:36 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Strip illegal character from filename
What doesn't work, do you get an error? -- Best regards Michael Bauer - MVP Outlook : Outlook Categories? Category Manager Is Your Tool: : http://www.vboffice.net/product.html?pub=6&lang=en Am Mon, 19 May 2008 15:35:46 -0700 (PDT) schrieb ExcelLars: looks very nice, but will not work for me. ...... Dim ar() Dim i& Dim ReplaceBy$ ReplaceBy = "_" ar = Array(";", ":", ",", "\", "/", "*", "[", "]", "?", "!", "'", "", "", "|", "$") For i = 0 To UBound(ar) Emne = Replace(1, Emne, ar(i), ReplaceBy, vbTextCompare) Next filnavn = Mdato & " " & Avsendernavn & " " & Emne & ".MSG" txtPath = TextBox1.Value myOlSel.Item(x).SaveAs txtPath & filnavn, olMSG 'export message
|
|
#5
May 20th 08, 10:29 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Strip illegal character from filename
No error, but your code will not replace illegal text.
|
|
#6
May 21st 08, 08:20 AM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Strip illegal character from filename
If errors are expected and you doesn't get one, you might turn off the On Error Resume Next statement... I wrote the function wrong, instead it's: Text = Replace(Text, ar(i), ReplaceBy, , , vbTextCompare) -- Best regards Michael Bauer - MVP Outlook : Outlook Categories? Category Manager Is Your Tool: : http://www.vboffice.net/product.html?pub=6&lang=en Am Tue, 20 May 2008 14:29:44 -0700 (PDT) schrieb ExcelLars: No error, but your code will not replace illegal text.
|
| 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 |
Hybrid Mode
