Thema Datum  Von Nutzer Rating
Antwort
Rot Suchen im Business Contact Manager
 08.10.2011 19:09:22 Ronald
NotSolved

Ansicht des Beitrags:
Von:
Ronald		 Datum:
08.10.2011 19:09:22		 Views:
1735		 Rating:
     
Antwort:
  Ja
Thema:
Suchen im Business Contact Manager

Hallo User, an sich bin ich in VBA nicht ganz unerfahren. Dennoch habe ich ein Problem, dem ich nicht auf die Schliche komme. Im BCM möchte ich einen bestimmten Kontakt finden, um ihn danach zu bearbeiten. Wenn ich den Datensatz suche, dann findet er ihn -aber nur einmal!! Wenn ich die Prozedur ein zweites Mal laufen lasse findet er den definitiv vorhandenen Kontakt nicht mehr. Wenn ich Outlook schließe und wieder öffne und die Prozedur erneut starte, dann findet er den Kontakt …aber wieder nur einmal!

Hat einer 'ne Idee?

Grüße, Ronald

Folgender Code:

Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim bcmRootFolder As Outlook.Folder
Dim olFolders As Outlook.Folders
Dim bcmContactsFldr As Outlook.Folder
Dim newContact As Outlook.contactItem
Set olApp = CreateObject("Outlook.Application")
Set objNS = olApp.GetNamespace("MAPI")
Set olFolders = objNS.Session.Folders
Set bcmRootFolder = olFolders("Business Contact Manager")
Set bcmContactsFldr = bcmRootFolder.Folders("Geschäftsdatensätze").Folders("Geschäftskontakte")

Set objContact = objContacts.Items.Find("[FileAs] = ""Smith, Jeff"" and [FirstName] = ""Jeff""")

    If Not TypeName(objContact) = "Nothing" Then

        MsgBox "Gefunden!"

        End If

    Else

        MsgBox "Wieder nicht gefunden!"

    End If

Set newContact = Nothing
Set bcmContactsFldr = Nothing
Set bcmRootFolder = Nothing
Set olFolders = Nothing
Set objNS = Nothing
Set olApp = Nothing

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Suchen im Business Contact Manager
 08.10.2011 19:09:22 Ronald
NotSolved