viele Bilder mit Kontakten verknpfen viele Bilder mit Kontakten verknpfen
Danke Danke:  0
Ergebnis 1 bis 2 von 2
  1. Hallo,
    ich habe etwa 600 Kontakte und dazu etwa 400 Fotos (Nachname Vorname.jpg). Leider nicht (mehr) verknüpft.
    Ich synchronisiere meine Adressen so:
    Excel(Basis)->Outlook->MPE->Redmi Note 4
    Gibt es irgendein Tool (Windows oder MIUI), dass die Fotos zumindest halbautomatisch mit den Kontakten verküpft?

    Google-Dienste möcht ich nicht nutzen.

    Danke und LG!
    0
     

  2. ohje. warum sind die bilder denn nicht in outlook eingebunden in die kontakte?
    aber du kannst es in Outlook per VBA erledigen:
    speichere die Fotos alle in einen Ordner namens Fotos direkt unter C:\ im Format "Vorname Nachname.jpg"

    Dann gehe im Menü auf Datei, Optionen, Trust Center, Einstellungen für das Trust Center, Makroeinstellungen und wähle dort "Benachrichtungen für alle Makros"
    Nun schliess Outlook und öffne es erneut, damit die Einstellungen sicher greifen. Drücke Alt und F11 für den Makroeditor.
    Füge den folgenden Code ein und drücke dann F6 zum Ausführen.
    Code:
    Public Sub UpdateContactPhoto()
        Dim meinOutlook As Outlook.Application
        Dim meinNamespace As Outlook.NameSpace
        Dim meineKontakte As Outlook.Items
        Dim meineItems As Outlook.Items
        Dim meineItems As Object
        Set meinOutlook = CreateObject("Outlook.Application")
        Set meinNamespace = meinOutlook.GetNamespace("MAPI")
        Set meineKontakte = meinNamespace.GetDefaultFolder(olFolderContacts).Items
    
        Dim fs As Object
        Set fs = CreateObject("Scripting.FileSystemObject")
        For Each meineItems In meineKontakte
            If (meineItems.Class = olContact) Then
                Dim myContact As Outlook.ContactItem
                Set myContact = meineItems
                Dim strFoto As String            
                strFoto = "C:\Fotos\" & myContact.FullName & ".jpg"
                If fs.FileExists(strFoto) Then
                    myContact.AddPicture strFoto
                    myContact.Save
                End If
            End If
        Next
    End Sub
    Für jeden Kontakt, der so heisst, wie eine jpg-Datei unter C:\Fotos, wird diese als Kontaktbild gespeichert.
    0
     

Ähnliche Themen

  1. Bilder in meinen Kontakten
    Von Dominik H im Forum Windows Phone 8 Allgemein
    Antworten: 2
    Letzter Beitrag: 17.12.2012, 18:29
  2. Whats App Bilder von Kontakten
    Von dawncrasher im Forum Android Apps
    Antworten: 2
    Letzter Beitrag: 10.06.2012, 14:16
  3. Antworten: 6
    Letzter Beitrag: 12.09.2011, 13:40
  4. Bilder unscharf bei Kontakten
    Von Bazzo im Forum HTC Touch Diamond
    Antworten: 6
    Letzter Beitrag: 21.04.2009, 20:20

Stichworte