Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
If CreateObject---strfullpath exist aufsteigend nummerieren.
zurück: wirkliche Anhänge finden und etwas tun weiter: Outlook 2003 Emails per VBA Script automatisch weiterleiten Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
strfullPath
Gast


Verfasst am:
04. Apr 2014, 16:31
Rufname:

If CreateObject---strfullpath exist aufsteigend nummerieren. - If CreateObject---strfullpath exist aufsteigend nummerieren.

Nach oben
       Version: Office 2010

Hallo,

habe hier ein Problem beim Speichern von E-Mails via VBA auf der Festplatte.

Wenn der E-Mail Subject identisch ist wie eine bereits gespeicherte dann führt er folgenden Befehl aus:

If CreateObject("Scripting.FileSystemObject").FileExists(strFullPath) = True Then
strFullPath = strFinalFileName & "(2)" & ".msg"

Leider habe ich xfache Email wo dieses zutrifft.

Wie kann ich den Befehl ändern, dass er im Fall True aufsteigend nummeriert anstelle von von (2) ....hmmmmmm

strFullPath = strFinalFileName & "(2)" & ".msg"

Danke, vorab!
Michael Bauer
MVP Outlook


Verfasst am:
06. Apr 2014, 21:38
Rufname:
Wohnort: Vollersode


AW: If CreateObject---strfullpath exist aufsteigend nummerie - AW: If CreateObject---strfullpath exist aufsteigend nummerie

Nach oben
       Version: Office 2010

Hallo,

Du mußt in einer Schleife jeden Namen abfragen, bis Du einen findest, den es noch nicht gibt.

_________________
Michael Bauer
Tools für Microsoft Outlook
strfullPath
Gast


Verfasst am:
07. Apr 2014, 08:07
Rufname:

AW: If CreateObject---strfullpath exist aufsteigend nummerie - AW: If CreateObject---strfullpath exist aufsteigend nummerie

Nach oben
       Version: Office 2010

Guten Morgen Micheal,

vielen Dank!

Wie könnte ich diese schleife denn Einbauen ?
Sorry bin da leider nicht so gut drinne.
strfullpath
Gast


Verfasst am:
07. Apr 2014, 08:37
Rufname:

AW: If CreateObject---strfullpath exist aufsteigend nummerie - AW: If CreateObject---strfullpath exist aufsteigend nummerie

Nach oben
       Version: Office 2010

ich habs hiermit versucht aber funktioniert wie leider nicht: Sad

Do While CreateObject("Scripting.FileSystemObject").FileExists(strFullPath) = True
strFullPath = strFinalFileName += 1
Loop Until CreateObject("Scripting.FileSystemObject").FileExists(strFullPath) = False

Kann mir hier jemand helfen ?
strfullpath
Gast


Verfasst am:
07. Apr 2014, 10:44
Rufname:


AW: If CreateObject---strfullpath exist aufsteigend nummerie - AW: If CreateObject---strfullpath exist aufsteigend nummerie

Nach oben
       Version: Office 2010

Hier die Lösung, falls jemand mal das selbe problem haben sollte:


strFinalFileName = Left(strFullPath, InStrRev(strFullPath, ".") - 1)
intI = 0
Do While CreateObject("Scripting.FileSystemObject").FileExists(strFullPath) = True
intI = intI + 1
strFullPath = strFinalFileName & "(" & Format(intI, "0") & ")" & ".msg"
Loop

Very Happy Very Happy Very Happy
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Outlook Kalender: Serientermine nummerieren 0 Elalein 254 29. Nov 2012, 17:26
Elalein Serientermine nummerieren
Keine neuen Beiträge Outlook VBA und Formulare: Outlook 2003 Aufgaben fortlaufend nummerieren? 1 Neu 2577 29. Nov 2005, 10:53
Michael Bauer Outlook 2003 Aufgaben fortlaufend nummerieren?
Keine neuen Beiträge Outlook Kalender: woechentliche Serie nummerieren 1 Michael123456 1685 09. Sep 2005, 00:17
kraemer woechentliche Serie nummerieren
Keine neuen Beiträge Outlook Kontakte: Outlook Kontakte automatisch nummerieren 1 Endrik 1774 25. Aug 2005, 11:52
Endrik Outlook Kontakte automatisch nummerieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe