VB 4/6- und VBA-Forum - Beitragsübersicht -
ThemaVBS: Mailablage - Dateiname zu lang
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:
Von Detlev Schubert
E-Mail ds@vb-fun.de
Datum 20. Oktober 2015 um 11:19:46
Antwort Hallo,

vielleicht hilft Dir der Tipp Lange Verzeichnispfade verkürzen [Tipp 0235] ja weiter. Die Methode kannst du quasi auf alles anwenden, musst Du halt nur entsprechend auf Deine Bedürfnisse anpassen, und es sollte eigentlich auch unter VBS gehen.

Gruß
Detlev
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ]
Antworten
VBS: Mailablage - Dateiname zu lang - klauus 15. Oktober 2015 um 06:54:55
Re: Mailablage - Dateiname zu lang - Detlev Schubert 20. Oktober 2015 um 11:19:46
Re: Mailablage - Dateiname zu lang - klauus 26. Oktober 2015 um 12:34:44

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  VB Script (*.vbs)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015