|
VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
Von |
klauus |
Datum |
15. Oktober 2015 um 06:54:55 |
Frage |
Guten Tag, ich speichere Mails aus Outlook in eine Ablage. Wenn der Betreff zu lang ist, wird die u.a. Warnmeldung ausgegeben. Ich möchte aber, dass der Dateiname oder der Betreff gekürzt wird und die Datei anschließend gespeichert wird. Bin für jeden Tip dankbar.
VBS-Schnipsel:i = 1 For Each Item In ofChosenFolder.Items Set myItem = ofChosenFolder.Items(i) strReceived = ArrangedDate(myitem.ReceivedTime) strSubject = myItem.Subject strName = StripIllegalChar(strSubject) strFile = strSavePath & strReceived & "_" & strName & ".msg" If Len(strFile) > 256 Then wscript.echo strFile & vbcrlf & "Dokumentname ist viel zu lang, bitte den Betreff der Mail kürzen." Else myItem.SaveAs strFile, 3 End If i = i + 1 Next |
|
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|