Eine Person aus bestehenden Daten in Outlook heraussuchen

[JOTHA]

Hier ist der (abgeänderte) Code:

'------------------------------------------------------
' Eine Person aus  bestehenden Daten in Outlook heraussuchen
'------------------------------------------------------
Sub ButtonAusOutlookHeraussuchen_Click
    Sip (False)
    WaitCursor (True)
'    ErrorLabel(ErrorLabelZweimalSuchenGehtNicht)
    KontaktPersonA.New1
    PimCollectionPersonA.New1("Contacts")
    PimCollectionPersonA.SortItems("LastName",False)
    KontaktSucheTabelle.AddCol(cString, "Nachname", 80)
    KontaktSucheTabelle.AddCol(cString, "Vorname", 70)
    KontaktSucheTabelle.AddCol(cString, "Geburtstag", 75)
    KontaktSucheTabelle.AddCol(cString, "Notizen", 230)
    KontaktSucheTabelle.AddCol(cString, "Telefon", 70)
    KontaktSucheTabelle.Clear
    pos = PimCollectionPersonA.FindItem("LastName", Nachname.Text)
    If pos = -1 Then
        Msgbox("Dieser Kunde ist in Pocket-Outlook noch nicht vorhanden.", " Suchergebnis", cMsgboxOK, cMsgboxHand)
        WaitCursor (False)
        Return
    End If    
    KontaktPersonA.Value = PimCollectionPersonA.GetItem(pos)    
    Do While (pos < PimCollectionPersonA.Count)    AND (KontaktPersonA.LastName = Nachname.Text)
        If  KontaktPersonA.FirstName = Vorname.Text Then
            KontaktSucheTabelle.AddRow(KontaktPersonA.LastName, KontaktPersonA.FirstName, KontaktPersonA.Birthday, KontaktPersonA.Body, KontaktPersonA.HomeTelephoneNumber)
        'die Daten aus der "KontaktSucheTabelle" in die Felder �bernehmen:
        mPersonA.Anrede.Text = KontaktPersonA.Title
'        mPersonA.Geburtstag.Text = KontaktPersonA.Birthday
        mAdresseTelefon.Stra�e.Text = KontaktPersonA.HomeAddressStreet
        mAdresseTelefon.PLZ.Text = KontaktPersonA.HomeAddressPostalCode
        mAdresseTelefon.Ort.Text = KontaktPersonA.HomeAddressCity
        mAdresseTelefon.Telefon.Text = KontaktPersonA.HomeTelephoneNumber
        mAdresseTelefon.Handy.Text = KontaktPersonA.MobileTelephoneNumber
        mAdresseTelefon.EMail.Text = KontaktPersonA.Email1Address
        'w�hlt automatisch aus "Die Person ist bekannt."
        mPersonA.AusweisArt.SelectedIndex = 1
        'Focus: Geht dann automatisch mit dem Cursor zum Feld "Geburtsort"
        mPersonA.Geburtsort.Focus
        End If
        pos = pos + 1
        If pos < PimCollectionPersonA.Count Then
            KontaktPersonA.Value = PimCollectionPersonA.GetItem(pos)
        End If
    Loop
    If KontaktSucheTabelle.RowCount = 0 Then
        Msgbox("Dieser Kunde ist in Pocket-Outlook noch nicht vorhanden.", " Suchergebnis", cMsgboxOK, cMsgboxHand)
    End If
    WaitCursor (False)
'    ErrorLabelZweimalSuchenGehtNicht:
'    Msgbox("Mehr als einmal SUCHEN geht NICHT. F�r eine neue Suche mu� das Programm neu gestartet werden.", " Hinweis", cMsgboxOK, cMsgboxHand)
End Sub

Nach der zweiten Suche erscheint die angehängte Fehlermeldung, wobei die betreffende "Zeile 170" diese ist:

    KontaktSucheTabelle.AddCol(cString, "Nachname", 80)

P.S.: Bei dieser Gelegenheit - ich habe ein Problem bei der Datenübernahme des Geburtstages (Birthday), deshalb ist ist diese Zeile deaktiviert.

[JOTHA]

Hallo specci48,

ich habe (glaube ich) den Fehler gefunden.

Diese Zeilen waren in der selben Sub zusammen, während Du diese Zeilen in "App_Start" hattest:

KontaktPersonA.New1
PimCollectionPersonA.New1("Contacts")
    PimCollectionPersonA.SortItems("LastName",False)
    KontaktSucheTabelle.AddCol(cString, "Nachname", 80)
    KontaktSucheTabelle.AddCol(cString, "Vorname", 70)
    KontaktSucheTabelle.AddCol(cString, "Geburtstag", 75)
    KontaktSucheTabelle.AddCol(cString, "Notizen", 230)
    KontaktSucheTabelle.AddCol(cString, "Telefon", 70)

Das Ganze habe ich jetzt in einen anderen Bereich (beim Anzeigen des Modules mit XXX_Show) geschoben, und schon funktioniert es wieder (zumindest auf dem Desktop)!

Ich melde mich, wenn es auch auf dem PPC klappt.

[JOTHA]

Originally Posted by JOTHA

... ich habe (glaube ich) den Fehler gefunden.

Ergänzung: Diese Zeilen haben auch bei der Sub "XXX_Show" eine Fehlermeldung verursacht.

Jetzt habe ich es in die "Globals" verschoben und es scheint jetzt 100% zu funktionieren (auf dem Desktop).

[JOTHA]

Ich melde mich, wenn es auch auf dem PPC klappt.

Also, es klappt jetzt auch auf dem Pocket-PC.

Danke nochmals für den Code, specci48!

[specci48]

Originally Posted by JOTHA

Danke nochmals für den Code, specci48!

Gern geschehen...

[JOTHA]

Hallo specci48,

wenn die Suche dann 2 Ergebnisse liefert, weil z.B. zweimal ein "Hans Maier" vorkommt, dann kann es zwei Gründe geben, warum das so ist:

a) Die Person ist irrtümlich 2 x in Outlook eingetragen.
b) Die Person gibt es tatsächlich 2 mal, es handelt sich aber um 2 verschiedene Personen (in der Regel mit verschiedenen Geburtstagen.

Die Frage daraus:

Wie kann ich eine Person durch "anklicken" in der Tabelle auswählen?

Brauche ich dazu die "ListView" von Filippo (mit CheckBoxen in der Tabelle) oder reicht da die "normale Tabelle" und dazu etwas Code?

[specci48]

Originally Posted by JOTHA

...oder reicht da die "normale Tabelle" und dazu etwas Code?

Letzteres reicht! Im Anhang findest Du hierzu ein erweitertes Beispiel.

Die Tabelle hat eine zusätzliche (erste) Spalte bekommen, welche durch die Breite 0 aber unsichtbar bleibt. Hier merkt sich das Programm die tatsächliche Kontaktposition in der PimCollection.
Die Auswahl wird über das SelectionChanged Event der Tabelle abgefangen. Je nach Auswahl wird dann über die tatsächliche (gemerkte) Position zum Tabelleneintrag der zugehörige Kontakt bestimmt. Anschließend kann man dazu dann wie gewohnt beliebige Daten zu diesem Kontakt anzeigen oder ggf. auch ändern.


Gruß
specci48

[JOTHA]

Hallo specci48,

vielen Dank für deine Hilfe.

Der Code funktioniert hervorragend !!!