vCard-Datei importieren *.vcf

3 Antworten

1. Antwort 1 Unbekannt schrieb am 27. Juli 2005 um 09:04

   Hi,
   und schon ne Lösung?
   Habe das gleiche Problem.
   Werd mich mal nach einem Splitter umsehen, der die Datei in mehrer zerlegt.

   Grüße Eisbaer

2. Antwort 2 Unbekannt schrieb am 11. August 2005 um 01:44

   \‘ ***************** Bitte den Path zu den VCF Dateien anpassen !!!! ****************

   \‘ Dieses Script liest alle Groupwise VCF Dateien im \“VCFFolder\“ ein und legt gleichnahmige Unterverz.
   \‘ an und exportiert darin die einzelnen VCF Dateien

   Const ForReading = 1
   DIM VCSFile , objNewVCSFile
   Dim Line , NewFile, path
   Dim fso1, f, f1, fc, s
   DIM OK , MSGpath

   OK=False
   Zaehler=0

   \’______________________________

   VCFFolder=\“d:\\temp\\\“

   \’________________________________

   Set fso1 = CreateObject(\“Scripting.FileSystemObject\“)
   Set f = fso1.GetFolder(VCFFolder)
   Set fc = f.Files
   For Each f1 in fc

   If instr(lcase(f1.name),\“.vcf\“) then
   Filename=f1.name
   Start
   end if

   Next

   If OK=True then

   call MsgBox(\“Die *.VCF Dateien liegen in den Verzeichnissen : \“+ chr(13) + Left(MSGpath,LEN(MSGPATH)-5) + chr(13) + \“und können mit Outlook importiert werden\“,65,\“Mitteilung\“)

   end if

   Sub start()
   path=Left(Filename,Len(Filename)-4)

   VCSFile = VCSArray()

   Set Verz = CreateObject(\“Scripting.FileSystemObject\“)

   If Not Verz.FolderExists(vcffolder+Path) then
   Set ts = Verz.CreateFolder(VCFFolder+Path)
   MSGpath=MSGpath + Path + \“ und \“
   For Each Line in VCSFile

   If InStr(Line,\“BEGIN:VCARD\“) then
   NewFile=True
   Zaehler=zaehler+1
   Set objFSO = CreateObject(\“Scripting.FileSystemObject\“)
   File=vcffolder+Path+\“\\\“+Path+CStr(zaehler)+\“.vcf\“
   Set objNewVCSFile = objFSO.CreateTextFile(File, True, False)
   end if

   if InStr(Line,\“END:VCARD\“) then
   NewFile=False
   objNewVCSFile.Writeline(line)
   objNewVCSFile.close
   end if

   If NewFile=True then
   objNewVCSFile.Writeline(line)
   OK=true
   END IF

   Next
   else
   call MsgBox(\“Das Verzeichniss : \“+Path + \“ ist schon vorhanden. Bitte dieses vorher löschen\“,65,\“Fehler\“)

   end if

   end sub

   Function VCSArray()
   Dim fso, ts, s, lines, FileArray
   Const ForReading = 1

   Set fso = CreateObject(\“Scripting.FileSystemObject\“)
   Set ts = fso.OpenTextFile(Filename, ForReading)
   s = ts.ReadAll
   ts.Close

   VCSArray=split(s, vbNewLine, -1,1)
   End Function

3. Antwort 3 Unbekannt schrieb am 2. Februar 2006 um 19:57

   Ich habe dasselbe PRoblem, weiss jetzt aber nichts mit dem Script anzufangen. In Outlook VBA und dann ein neues Modul anlegen, das Script dort reinkopieren geht nicht. :exclam: Kann mir jemand auf die Sprünge helfen, bitte? Wäre soo super!
   Jörn