title image


Smiley Re: Email-Adresse automatisch eintragen
Hier ist ein Beispiel, wie du an die Kontakt-Information von Outlook herankommst:Public Function DumpOutlookContactInfo()' On Error GoTo Er Dim myOlApp As Object, Tmp, I As Long, j As Long, cItm As ContactItem, myNameSpace As Object Dim myFolder As Object, UProp As Outlook.UserProperty Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts) ' Durch alle Kontakte gehen For I = 1 To myFolder.Items.Count Set cItm = myFolder.Items.Item(I) With cItm Debug.Print .LastName, .FirstName '.Save End With Next IEx: On Error Resume Next Set myFolder = Nothing Set myNameSpace = Nothing Set myOlApp = Nothing Exit FunctionEr: MsgBox "Error: " & Err & " " & Err.Description GoTo ExEnd Function(Du musst die Outlook-OLB in deine Verweise einbinden!)Reinhard


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: