Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 4253 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.
 
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(5)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (17)

Frage von Unwichtig zum Thema Netzwerkmanagement ...