Hallo zusammen,
ich habe ein kleines Problem bei einem VB Skript, mittels diesem Script wird die Contact Datenbank von Outlook aus einer Oracle Datenbank herraus gefüllt. Das klappt auch schon ganz gut ... leider nur einmal. Beim zweiten mal füllt mir das Skript (natürlich) die Kontakte wieder mit den selben Daten.
Das ist natürlich nicht so schön und auch nicht im Sinne des Erfinders, leider fehlt mir eine Möglichkeit die Kontakte vorher auszulesen um dir Einträge vor dem Einfügen vergelichen zu können. Ich habe jetzt schon Stunden damit verbracht zu suchen finde aber immer nur Hinweise auf Bösartigen Code ... wenn ich nur nen Wurm hätte um analysieren zu können wie er das macht ;-) nein war nur Spass. Aber im Grunde trifft es mein Problem.
Hat einer von euch evtl. eine Idee?
Anbei mein Skript um klar zu machen wo das Problem liegt.
-----SNIP-------------------------------------------------------
DIM DBConnection, SQLString, Ergebnismenge
Const Verbindung = "Provider=MSDAORA.1;Password=****;User ID=****;Data Source=DB;Persist Security Info=True"
Set Outlook = CreateObject("Outlook.Application")
If Outlook Is Nothing THEN
Set Outlook = New Outlook.Application
END If
Set DBConnection = CreateObject("ADODB.Connection")
DBConnection.Open Verbindung
SQLString = "Select Distinct Name.Vorname, Name.Name, Wohn.WOHN_STR, WOHN.WOHN_PLZ, ort.ORT_NAME, ansch.ANSCH_NR From M1.M1Patnt Name, M1.M1Adrss ADReSS, M1.M1WOHN WOHN, M1.M1ORT ort, M1.M1ANSCH ansch, M1.M1TELNR telnr where adress.entty_ID = Name.Entty_id AND adress.wohn_id = wohn.wohn_id AND wohn.ORT_ID = ort.ORT_ID AND adress.ADRSS_ID = telnr.ADRSS_ID AND ansch.ansch_id= telnr.ansch_id"
Set Ergebnismenge = DBConnection.Execute(SQLString)
Ergebnismenge.MoveFirst
Do while Not Ergebnismenge.eof
Set objKontakt = Outlook.CreateItem(2)
objKontakt.FirstName = Ergebnismenge("Vorname")
objKontakt.LastName = Ergebnismenge("Name")
objKontakt.MailingAddressStreet = Ergebnismenge("WOHN_STR")
objKontakt.MailingAddressPostalCode = Ergebnismenge("WOHN_PLZ")
objKontakt.MailingAddressCity = Ergebnismenge("ORT_NAME")
objKontakt.HomeTelephoneNumber = Ergebnismenge("ANSCH_NR")
objKontakt.Save
Ergebnismenge.MoveNext
Loop
Ergebnismenge.Close
DBConnection.Close
ich habe ein kleines Problem bei einem VB Skript, mittels diesem Script wird die Contact Datenbank von Outlook aus einer Oracle Datenbank herraus gefüllt. Das klappt auch schon ganz gut ... leider nur einmal. Beim zweiten mal füllt mir das Skript (natürlich) die Kontakte wieder mit den selben Daten.
Das ist natürlich nicht so schön und auch nicht im Sinne des Erfinders, leider fehlt mir eine Möglichkeit die Kontakte vorher auszulesen um dir Einträge vor dem Einfügen vergelichen zu können. Ich habe jetzt schon Stunden damit verbracht zu suchen finde aber immer nur Hinweise auf Bösartigen Code ... wenn ich nur nen Wurm hätte um analysieren zu können wie er das macht ;-) nein war nur Spass. Aber im Grunde trifft es mein Problem.
Hat einer von euch evtl. eine Idee?
Anbei mein Skript um klar zu machen wo das Problem liegt.
-----SNIP-------------------------------------------------------
DIM DBConnection, SQLString, Ergebnismenge
Const Verbindung = "Provider=MSDAORA.1;Password=****;User ID=****;Data Source=DB;Persist Security Info=True"
Set Outlook = CreateObject("Outlook.Application")
If Outlook Is Nothing THEN
Set Outlook = New Outlook.Application
END If
Set DBConnection = CreateObject("ADODB.Connection")
DBConnection.Open Verbindung
SQLString = "Select Distinct Name.Vorname, Name.Name, Wohn.WOHN_STR, WOHN.WOHN_PLZ, ort.ORT_NAME, ansch.ANSCH_NR From M1.M1Patnt Name, M1.M1Adrss ADReSS, M1.M1WOHN WOHN, M1.M1ORT ort, M1.M1ANSCH ansch, M1.M1TELNR telnr where adress.entty_ID = Name.Entty_id AND adress.wohn_id = wohn.wohn_id AND wohn.ORT_ID = ort.ORT_ID AND adress.ADRSS_ID = telnr.ADRSS_ID AND ansch.ansch_id= telnr.ansch_id"
Set Ergebnismenge = DBConnection.Execute(SQLString)
Ergebnismenge.MoveFirst
Do while Not Ergebnismenge.eof
Set objKontakt = Outlook.CreateItem(2)
objKontakt.FirstName = Ergebnismenge("Vorname")
objKontakt.LastName = Ergebnismenge("Name")
objKontakt.MailingAddressStreet = Ergebnismenge("WOHN_STR")
objKontakt.MailingAddressPostalCode = Ergebnismenge("WOHN_PLZ")
objKontakt.MailingAddressCity = Ergebnismenge("ORT_NAME")
objKontakt.HomeTelephoneNumber = Ergebnismenge("ANSCH_NR")
objKontakt.Save
Ergebnismenge.MoveNext
Loop
Ergebnismenge.Close
DBConnection.Close
