Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Outlook Adressbuch - Import per vbs

Frage Entwicklung

Mitglied: copro

copro (Level 1) - Jetzt verbinden

06.05.2010, aktualisiert 07.05.2010, 4323 Aufrufe

Hallo zusammen

Folgendes Script macht nichts weiter als ein PST mounten bestimmten inhalt kopieren und wieder trennen.
Grund: Wir haben keinen Exchange und ich will ein globales adressbuch...

Bisher scheint das auch ganz gut zu klappen... nur bei einem user werden die adressbücher nicht sauber deaktivert... Wenn Sie gelöscht werden bleiben Sie
anschliessen als leichen in der adressbuchübersicht.

Kennt jemand ne möglichkeit alle aktiven adressbücher per vbs zu deaktivieren?

Bin für jeden tipp zu dem script dankbar... Outlook Steuerung per vbs ist nicht meine Welt...
Nehme also auch gerne bessere ideen entgegen ;)

01.
Set oWSHNetwork = CreateObject("WScript.Network") 
02.
sUser = oWSHNetwork.UserName 
03.
 
04.
If sUser = "test" Then 
05.
 
06.
 
07.
'Deklarationen 
08.
'------------------------------------------------------------------------------------------------- 
09.
Set oOutlook = CreateObject("Outlook.Application") 
10.
Set oNameSpace = oOutlook.GetNamespace("MAPI") 
11.
Set oFolderpath = oOutlook.GetNamespace("MAPI") 
12.
Set oListFolder = oNameSpace.Folders("Persönliche Ordner") 
13.
 
14.
Dim arrbooks(1) 
15.
arrbooks(0) = ("Adressbuch") 
16.
 
17.
 
18.
pstpath = "X:\adressbook.pst" 
19.
 
20.
lcount = 0 
21.
 
22.
'Funktion zum erstellen des Pfades in dem das Adressbuch liegt. 
23.
'------------------------------------------------------------------------------------------------- 
24.
Function cpath(itemname, pathname) 
25.
 
26.
For Each item In oListFolder.Folders 
27.
    pos=Instr(item, itemname) 
28.
    if pos > 0 Then 
29.
    fpath = (item.folderpath) 
30.
    Exit for 
31.
    end If 
32.
Next 
33.
 
34.
If fpath = "" Then 
35.
exit Function 
36.
End If 
37.
 
38.
fpath = Right(fpath, Len(fpath) - 2) 
39.
parray = Split(fpath, "\") 
40.
 
41.
For Each item In parray 
42.
Set oFolderpath = oFolderpath.folders(item) 
43.
Next 
44.
 
45.
Set pathname = oFolderpath 
46.
 
47.
Set oFolderpath = oOutlook.GetNamespace("MAPI") 
48.
Set parray = Nothing 
49.
 
50.
End Function 
51.
 
52.
Do Until lcount = 1 
53.
Set fs = CreateObject("Scripting.FileSystemObject") 
54.
If fs.DriveExists("P:") Then 
55.
lcount = 1 
56.
End If 
57.
Set fs = Nothing 
58.
loop 
59.
 
60.
'Bestehende Adressbücher deaktivieren & löschen 
61.
'------------------------------------------------------------------------------------------------- 
62.
cpath "Adressbuch", bbgab 
63.
 
64.
If Not bbgab = "" Then 
65.
 
66.
bookcount = bbgab.folders.count 
67.
If bookcount < 12 Then 
68.
MsgBox ("Die Struktur des Adressbuches wurde verändert. Melden Sie sich beim Support!") 
69.
WScript.Quit 
70.
End if 
71.
 
72.
bbgab.showasoutlookab = False 
73.
 
74.
For count = 1 To UBound(arrbooks,1) -1 
75.
bbgab.folders(arrbooks(count)).showasoutlookab = False 
76.
Next 
77.
 
78.
bbgab.delete() 
79.
oNameSpace.Folders("Persönliche Ordner").Folders("Gelöschte Objekte").Folders("Adressbuch").delete() 
80.
 
81.
End if 
82.
 
83.
'Import von Adressbuch aus PST 
84.
'------------------------------------------------------------------------------------------------- 
85.
oNameSpace.AddStore(pstpath) 
86.
 
87.
Set oKontaktordner = oNameSpace.Folders("Adressbuch").Folders("Adressbuch") 
88.
Set oDestination = oNameSpace.Folders("Persönliche Ordner") 
89.
oKontaktordner.CopyTo(oDestination) 
90.
 
91.
oNameSpace.RemoveStore oNameSpace.Folders("Adressbuch") 
92.
 
93.
'Aktivieren der Adressbücher 
94.
'------------------------------------------------------------------------------------------------- 
95.
cpath "Adressbuch", bbgab 
96.
bbgab.showasoutlookab = True 
97.
For count = 1 To UBound(arrbooks,1) -1 
98.
bbgab.folders(arrbooks(count)).showasoutlookab = True 
99.
Next 
100.
 
101.
End if 
102.
 
Ähnliche Inhalte
Outlook & Mail
Outlook Adressbuch Benutzerübergreifend??? (1)

Frage von achklein zum Thema Outlook & Mail ...

Outlook & Mail
Outlook 2013,2016 Adressbücher (4)

Frage von Greyson zum Thema Outlook & Mail ...

Outlook & Mail
Outlook Export und Import zwischen Windows und Mac

Frage von VoDa81 zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(8)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Datenschutz

Gefährdeter Datenschutz: Firefox löscht lokale Datenbanken nicht

Information von BassFishFox zum Thema Datenschutz ...

Firewall

PfSense OpenVPN beschleunigen

Tipp von Dobby zum Thema Firewall ...

Utilities

CCleaner 5.33 mit Malware infiziert

(27)

Information von SeaStorm zum Thema Utilities ...

Heiß diskutierte Inhalte
Utilities
CCleaner 5.33 mit Malware infiziert (27)

Information von SeaStorm zum Thema Utilities ...

Festplatten, SSD, Raid
gelöst Problem mit DELL 815R Server und Windows Bluescreen (24)

Frage von Leo-le zum Thema Festplatten, SSD, Raid ...

Windows Systemdateien
Windows bootet nicht mehr Fehlermeldung 0xc0000098 (19)

Frage von franzgoerlich zum Thema Windows Systemdateien ...

Windows Netzwerk
Dateien mit Intelligenz per GPO ins Programmverzeichnis (14)

Frage von erwin.t zum Thema Windows Netzwerk ...