Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.


Kann man auch irgendwie von Outlook nach Adressbuch die Daten bekommen ?
Bei Outlook kann man ja keine VCards exportieren...
Kann man auch irgendwie von Outlook nach Adressbuch die Daten bekommen ?
Bei Outlook kann man ja keine VCards exportieren...
 )
)' ***************** 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 FunctionTja, bislang kein Fortschritt - ich bekomme die 981 Kontakte nicht in einem Schwung aus dem Adressbuch.. und die Gruppen-vCard liest Outlook nicht. Hat niemand eine Idee?!?!
klar, steht in meiner Antwort weiter oben (#7)
 .. Hat das was mit dem Terminal zu tun??
.. Hat das was mit dem Terminal zu tun??(...) Ich hab mal ein paar einzeln rausgezogen und ins Büro gemailt. Das waren aber immer welche mit .vcf als Endung. Diejenigen, die .vcff hatten, ließen sich nicht öffnen. Aber wo kommen diese unterschiedlichen Endungen her, und wie kann man das vereinheitlichen? (...)

Die Lösung ist wie so oft bei Apple ganz einfach:Hm.. also, ich hab nun eine Datei namens vCards bekommen. 180kb, nicht allzu viel für knapp 1000 Daten. Die sind gerade per Mail ins Büro, morgen werd ich vor Ort dann mal sehen, obs klappt...
