viele Bilder mit Kontakten verknpfen
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!
AW: viele Bilder mit Kontakten verknpfen
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.