Top-Themen

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

Verteilerliste mit ca. externen eMail Adressen

Mitglied: Michaeldon

Michaeldon (Level 1) - Jetzt verbinden

02.12.2007, aktualisiert 17.01.2008, 11456 Aufrufe, 15 Kommentare

Hallo

ich habe einen Exchange 2007 Server und mußt eine Verteilergruppe anlegen, die ca 600 externe eMails enthält.

Kann man in eine Verteilerliste auch eMail Adressen eintragen, die nicht als User oder Kontakt im AD hinterlegt sind?

Ich hab nämlich keine Lust, 600 Kontakte anzulegen....

Hat jemand eine Idee?


Michael
Mitglied: schregi82
02.12.2007 um 10:37 Uhr
Ja, ja die Kontaktdatenpflege

Du hast jetzt genau 2 Möglichkeiten:

Das "billigste" und schnellste Lösung:
- Die schreibst deine Mail und schickst sie an dich selber, allerdings solltest du nicht mehr als 50 Empfänger (aus Erfahrung) gleichzeitig in BCC anführen.

Beim nächsten mal kopierst du die Mail(s), dann hast du die Empfänger auch wieder & darfst hoffen das Sie noch alle korrekt sind, sonst wünsche ich dir viel Spass beim Adressensuchen & korregieren.

Die sauberste und aus verschiedensten Gründen, langfristig beste: (auch wenn du sie jetzt nicht hören willst)
- Die Kontakte einzeln und das gleich komplett (Postadresse, Tel, Fax) in der globalen Adressliste anlegen und in eine Verteilerliste od. noch besser in mehrere nach Kriterien (PLZ, Alphabetisch od. ähnlich) zusammenführen.

Ausser bei "Einmalaktionen", bei dauerhaften Kundenkontakten empfiehlt sich dieser einmalige Aufwand definitiv.

Ist noch gar nicht solange aus, haben wir ~4000 Kontakte so eingepflegt, mit ein wenig Arbeitsteilung innerhalb des Büros ist das schneller erledigt als du glaubst.

Vielleicht kannst du uns ja noch verraten in welchem Format dir die Adressen jetzt vorliegen, als txt od. xls kannst du sie ja importieren.

lg,
Bitte warten ..
Mitglied: Dani
02.12.2007 um 10:52 Uhr
Moin zusammen,
also wir pflegen auch einige zehntausend Stück in das ADS als glob. externer Kotakt ein. Wir haben dazu einfach auf einem Netzlaufwerk verschiedene Exceltabellen (einfach nach Produkt oder aber Firmen) liegen.
Auf dem Cluster werden dann die Exceltabellen per VBScript ausgewertet und die entsprechende Kontakte angelegt, abgeändert oder gelöscht. Damit das funktioniert gibt es eine Spalte "Art" und je nachdem was dort steht, reagiert das Script anders.

Muss sagen, mich hat es überrascht das es so gut mit unseren MA funktioniert. Klar, das Script ist ein bisschen länger...und viele Sicherheitsabfragen drin, aber alle sind zufrieden.
Es hat aber auch ein bisschen genauert, bis meine Kollegen das Script fertig hatten und einige logische Fehler gefixt waren.


Grüße
Dani
Bitte warten ..
Mitglied: schregi82
02.12.2007 um 11:02 Uhr
@Dani

Ein tolle Sache wenn ich das so höre, weisst du zufällig mehr über den Import, würd mich interessieren.

Meine Überlegung:
Wenn man die Daten in der Excel-Tabelle über eine Abfrage am SQL-Server laufen lässt, bräuchte man sich um die Synchronität von Daten in CRM und Exchange keine sorgen mehr machen.

lg,
Bitte warten ..
Mitglied: Michaeldon
02.12.2007 um 11:52 Uhr
Guten Tag

also ich habe die 600 Adressen als txt bzw als csv Datei. Hab es auch schon versucht, per Script zu importieren, aber irgendwie schaffe ich das nicht.

Kann mir vielleicht jemand einen Tip geben, wie ich die Kontakte ins AD importieren kann und auch gleich in Exchange 2007 als eMailkontakt aktivieren kann??

Am besten wäre, die Kontakte in eine eigene OU zu importieren oder?
Bitte warten ..
Mitglied: Dani
07.12.2007 um 20:33 Uhr
Abend Michi,
Sry...das es lange gedauert hat, aber ich musste erstmal mein Archiv nach einem einfachen Beispiel durchsuchen. *g*

So sieht die Exceltabelle (Name: Globale Kontakte) aus:
adf4a7196062af866bc6a98234a8bbe5-excel - Klicke auf das Bild, um es zu vergrößern

Also ganz schlicht gehalten. Du kannst das gerne (so wie wir) entsprechend erweitern. Nun brauchst du noch das VBScript dazu:
01.
'Variablen
02.
'##########################################################################
03.
Dim objobjExcel, objOU, objContact, objRecip
04.
Dim strVorname, strNachname, strEmail, strDesc, strKat
05.
 
06.
 
07.
'Die entsprechende Datei wird geöffent
08.
'##########################################################################
09.
'Pfad zur Exceldatei
10.
Set objExcel = WScript.CreateObject("Excel.Application")
11.
objExcel.Workbooks.Open "A:\dasdadsa\dsadsada\Globale Kontakte.xls"
12.
 
13.
'Zeilennummer der ersten Datenzeile
14.
i = 2 
15.
Do While objExcel.Worksheets(1).Cells(i,3).Value <> ""
16.
    strVorname 	= objExcel.Worksheets(1).Cells(i,1).Value
17.
    strNachname = objExcel.Worksheets(1).Cells(i,2).Value
18.
    strEmail 	= objExcel.Worksheets(1).Cells(i,3).Value
19.
    strDesc 	= objExcel.Worksheets(1).Cells(i,4).Value
20.
	strKat		= objExcel.Worksheets(1).Cells(i,5).Value
21.
	
22.
	'WScript.echo "Kontakt - "& strNachname &", "& strVorname &"!"
23.
	
24.
	' Organisationseinheit, in der ide Kontake erzeugt werden sollen
25.
	Set objOu = GetObject("LDAP://ou=Kontakte,ou=exchange, ou=suedwest,ou=vm,ou=de,dc=labor,dc=wan")
26.
	
27.
	'**************************************************************************************************
28.
	'Hinzufügen von Kontakten
29.
	'**************************************************************************************************
30.
	If LCase(CStr(strKat)) = LCase(Cstr("A")) Then
31.
		'Überprüfen, ob eine Kontakt schon vorhanden ist und setzt dem entsprechend die Variable
32.
		' True - E-Mailadresse existiert bereits
33.
		' False - E-Mailadresse nicht vorhanden
34.
		emailExists = False
35.
	
36.
		For Each adcontact In objOu
37.
			If LCase(CStr(adcontact.sn)) = LCase(CStr(strNachname)) Then
38.
				emailExists = True
39.
				Exit For
40.
			End If
41.
		Next
42.
 
43.
		'Erzeugt die einzelnen Kontakte
44.
		If Not emailExists Then
45.
			
46.
			'Erzeugt die einzelnen Kontakte
47.
			Set objContact = objOu.Create("contact", "cn="& strVorname &" "& strNachname)
48.
			
49.
			objContact.mailNickName = strVorname &"."& strNachname
50.
			objContact.displayName = strNachname &", "& strVorname
51.
			objContact.targetAddress = strEmail
52.
			objContact.givenName = strVorname 
53.
			objContact.sn = strNachname 
54.
	
55.
			'Setzt nur die Beschreibung, wenn das Excelfeld nicht leer ist
56.
			If strDesc <> "" Then
57.
				objContact.description= strDesc
58.
			End If
59.
	
60.
			' Hinterlegt im Reiter "E-Mail Adressen" der Benutzereigenschaften die E-Mailadresse
61.
			Set objRecip = objContact
62.
			objRecip.MailEnable "SMTP:" & strEmail
63.
			objContact.SetInfo
64.
		End If
65.
	End If
66.
	
67.
	'**************************************************************************************************
68.
	'Updaten von Kontakten
69.
	'**************************************************************************************************
70.
	If LCase(CStr(strKat)) = LCase(Cstr("U")) Then
71.
	
72.
	End If
73.
	'**************************************************************************************************
74.
	'Löschen von Kontakten
75.
	'**************************************************************************************************
76.
	If LCase(CStr(strKat)) = LCase(Cstr("D")) Then
77.
		objOU.Delete "contact", "cn="& strVorname &" "& strNachname
78.
		objExcel.ActiveSheet.Cells(3,5).Value = "test"
79.
		objExcel.ActiveWorkbook.Saved = True
80.
 
81.
	End If
82.
	'**************************************************************************************************
83.
 
84.
	' Nächste Excelzeile
85.
	i = i + 1
86.
	
87.
Loop
88.
 
89.
' Setzt das "gespeichert" - Flag. Somit entfällt die Abfrage beim Beenden
90.
objExcel.ActiveWorkbook.Saved = True
91.
 
92.
' Exceltabelle schließen / beenden
93.
objExcel.Application.Quit
94.
 
95.
 
96.
'Script beenden
97.
'##########################################################################
98.
'WScript.Echo "Kontakte erfolgreich angelegt!"
99.
WScript.Quit
Natürlich nicht vergessen, den Pfad und die OU anzupassen!

Bei uns läuft das VBScript per "Geplante Task" alle 60 Minuten. Somit können Teamleiter < Kontakte einpflegen.
Mit der Kategorie, haben wir Verteilergruppen, die auf den Inhalt der Zelle prüfen und somit die einzelnen Kontakte im Verteiler Mitglied sind.


Grüße
Dani
Bitte warten ..
Mitglied: Michaeldon
14.01.2008 um 09:19 Uhr
Hi

so, jetzt wird das akut und ich muß das machen!

Was muß bei der Excel Tabelle in die Spalte Typ eingetragen wird?

In kategorie trage ich z.b. "Internet-Mailing" ein oder? Nach diesen Begriff kann ich dann eine dymnamischen Verteiler erstellen
Bitte warten ..
Mitglied: Dani
14.01.2008 um 10:27 Uhr
Moin,
Typ ist dafür gedacht, z.B. dem Script zusagen ob es sich um einen neuen Eintrag handelt oder aber ein Updates eines vorhandenden Kontakt oder Löschen eines Kontakts. Aber das spielt in deinem Falle noch keine große Rolle.

Die Kategorie gibt dann an, in welchen Verteilern der Kontakt sein soll. Sprich du kannst einfach mit Leerzeichen die Verteiler eingeben.


Grüße
Dani
Bitte warten ..
Mitglied: Michaeldon
14.01.2008 um 12:59 Uhr
Hi

so jetzt hab ich das mal probiert...

Das Script läuft ohne Fehlermeldung durch, aber im AD sind in der entsprechenden OU keine Kontakte da

Kann man irgendwie überprüfen, ob es irgendwo hakt?

gruß
Bitte warten ..
Mitglied: Dani
14.01.2008 um 13:04 Uhr
Hi,
du hast diese Zeile:
01.
Set objOu = GetObject("LDAP://ou=Kontakte,ou=exchange, ou=suedwest,ou=vm,ou=de,dc=labor,dc=wan")
Diese Zeile solltest du an deine Domäne anpassen und die OU's sollten vorhanden sein, ggf. anpassen.


Grüße
Dani
Bitte warten ..
Mitglied: Michaeldon
14.01.2008 um 13:11 Uhr
Hab ich angepasst und es kommt Kein Fehler!

Hab dann versuchsweise mal als ou=aaa eingegeben und es kam sofort ein Fehler

Echt blöd die ganze Sache!
Bitte warten ..
Mitglied: Dani
14.01.2008 um 13:17 Uhr
Setz mal beim Typ bei allen "A". Dann dürfte es gehen...denn so wie ich das sehe, ist dasScript schon eine Weiterentwicklung vom Kollegen.


Grüße
Dani
Bitte warten ..
Mitglied: Michaeldon
14.01.2008 um 14:19 Uhr
ok, jetzt läuft es schon mal besser

jetzt bleibt er bei

objRecip.MailEnable "SMTP:" & strEmail

stehen...

In der Beschreibung steht ja, dass er jetzt versucht im Reiter "eMail" die Adresse zu schreiben, aber die gibts ja unter Exchange 2007 nicht mehr...
Bitte warten ..
Mitglied: Dani
14.01.2008 um 14:23 Uhr
Ok....dann hast du nur die letzte Hürde zunehmen. Jedoch kann ich dir da nicht mehr weiterhelfen. Da bei uns Exchange 2007 nicht mal im Labor installiert worden ist. Daher kann es noch 2 Jahre dauern. Sry...



Grüße
Dani
Bitte warten ..
Mitglied: Micholos
17.01.2008 um 10:15 Uhr
Hallo zusammen,

vielen Dank für die tolle Vorarbeit von Dani, habe das selbe Problem wie Michael!don und hänge auch exakt am .MailEnable "SMTP:.....

Allerdings hab ich keinen Exchange 2007 sondern 2003 im Einsatz und da würde es den Reiter "eMail" schon noch geben.

Hat wer eine Idee was hier Faul sein könnte? Wenn ich den "MailEnable"-Teil auskommentiere läuft das Script ohne Fehler durch nur hab ich eben dann die lokale Domain bei den SMTP-Adressen.


Vielen dank nochmal an Dani
Bitte warten ..
Mitglied: Micholos
17.01.2008 um 10:51 Uhr
Hab´s gerade selber gebacken gekriegt, hier mein Ergebnis für ähnlich verzweifelte:

Erzeugen der Kontakte folgende Zeile abändern:

objContact.targetAddress = strEmail
ändern in
objContact.targetAddress = "SMTP:" & strEmail

dann wird gleich die richtige SMTP-Adresse als Standard-Gesetzt, bei mir funktionierts wenigstens so.

Gruß

Michl
Bitte warten ..
Ähnliche Inhalte
Exchange Server

Exchange 2010 Keine Email von Extern für ein Postfach

Frage von DoktorAerztExchange Server

Hallo Zusammen, ich habe gestern unseren Exchange 2010 neu gestartet. Wir haben keine Farm oder ähnliches sondern alle Dienste ...

LAN, WAN, Wireless

MAC Adress Finder bzw. Scanner (legal)

gelöst Frage von SchwarzerRieseLAN, WAN, Wireless9 Kommentare

Hallo zusammen, ich habe in meinem Heimnetzwerk (mit einer FritzBox als Modem & Router) folgendes "Problem": Irgendein Nachbar besitzt ...

Windows Tools

Cobra Adress Plus und Outlook

gelöst Frage von hartmann0Windows Tools8 Kommentare

Hallo, da ich durch Googlen leider einfach nichts finde, habe ich mich entschlossen, mich einfach mal hier an das ...

Sonstige Systeme

Cobra Adress Plus - im Terminalbetrieb

gelöst Frage von 118080Sonstige Systeme7 Kommentare

Ist hier zufälligerweise jemand im Forum der die Software Cobra Adress Plus kennt?? Hätte nämlich eine Frage und falls ...

Neue Wissensbeiträge
Erkennung und -Abwehr
OpenSSH-Backdoor Malware erkennen
Tipp von Frank vor 14 StundenErkennung und -Abwehr

Sicherheitsforscher von Eset haben 21 Malware-Familien untersucht. Die Malware soll Hintertüren via OpenSSH bereitstellen, so dass Angreifer Fernzugriff auf ...

iOS
WatchChat für Whatsapp
Tipp von Criemo vor 3 TageniOS3 Kommentare

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor!
Tipp von Criemo vor 4 TageniOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Off Topic
Avengers 4: Endgame - Erster Trailer
Information von Frank vor 6 TagenOff Topic2 Kommentare

Ich weiß es ist Off Topic, aber ich freue mich auf diesen Film und vielleicht geht es anderen hier ...

Heiß diskutierte Inhalte
Windows Server
Einziger Domänencontroller ersetzen - Windows Server 2012R2 - Hostname
Frage von DeRo93Windows Server26 Kommentare

Guten Tag, Leider haben wir einen Domänencontroller dessen Komponentenspeicher defekt ist. Alle Maßnahmen sind da leider fehlgeschlagen. Nun wurde ...

Server-Hardware
WS 2016 Essentials Hardware
Frage von ChefknechtServer-Hardware20 Kommentare

Moin welche Hardware würdet ihr empfehlen? Dell Poweredge HP Proliant Fujitsu Ich bin total konfus was nun nötig ist, ...

Windows Server
Welche Option fürs Windows Server Installations besser
Frage von backitWindows Server18 Kommentare

Hi Zusammen, ich werde unserer AD (SBS 2011) und Exchange 2010 Servern auf neuen physikalischen Server umziehen. ich habe ...

Windows Update
Fehler bei Updates über WSUS
Frage von Hendrik2586Windows Update15 Kommentare

Guten Tag liebe Kolleginen und Kollegen, lang lang ist meine letzte Anfrage her. Hier etwas das mich nun schon ...