Foto'scontactpersonen exporteren

Status
Niet open voor verdere reacties.
R

RonWeb1

Gebruiker
Lid geworden
2 mei 2004
Berichten
111
Hallo allen,

ik ben een aantal foto's van contactpersonen kwijtgeraakt uit mijn albums op mijn Pc. Ze staan nog wel in OUTLOOK 2010. Ik wil deze foto's graag weer opslaan in mijn albums.
Hoek an ik dit doen?

Alvast dank voor jullie hulp,

mer vriendelijke groet,

Ron Weber :rolleyes:
 
Is rechtsklik op de foto -> kopiëren -> plakken hier geen optie ?
 
Je kunt er, als je veel cp's hebt, een macro op los laten. Deze bijvoorbeeld:
Code: 
Sub SaveContactPhotos()
Dim item As Outlook.ContactItem
Dim atm As Outlook.Attachment
Dim NS As Outlook.NameSpace
Dim Contacts As MAPIFolder
Dim Folder As MAPIFolder
Dim FileName As String
Dim i As Integer
    Set NS = GetNamespace("MAPI")
    Set Contacts = NS.GetDefaultFolder(olFolderContacts)
''    Set Contacts = NS.PickFolder

    For Each item In Contacts.Items
        On Error Resume Next
        i = 1
        If item.HasPicture = True Then
            For Each atm In item.Attachments
                FileName = "H:\Mijn afbeeldingen\test\" & item.FullName & "_" & Right("00" & i, 2) & ".jpg"
                atm.SaveAsFile FileName
                i = i + 1
            Next atm
        End If
    Next item
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan