Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i allforio gwybodaeth 'gysylltiadau â lluniau yn Outlook?

Pan fyddwch yn allforio cysylltiadau o Outlook i ffeil, dim ond gwybodaeth testun y cysylltiadau all gael ei allforio. Ond, weithiau, mae angen i'r lluniau gael eu hallforio yn ogystal â gwybodaeth testun y cysylltiadau, sut allech chi ddelio â'r dasg hon yn Outlook?

Cysylltiadau Allforio 'â lluniau cymharol trwy ddefnyddio cod VBA


Cysylltiadau Allforio 'â lluniau cymharol trwy ddefnyddio cod VBA

Gall y cod VBA isod eich helpu i allforio pob cyswllt mewn ffolder cyswllt penodol i wahanu ffeiliau testun gyda lluniau. Gwnewch fel hyn:

1. Dewiswch ffolder cyswllt yr ydych am allforio'r cysylltiadau â lluniau.

2. Ac yna, dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Yna, cliciwch Mewnosod > Modiwlau, copïwch a gludwch y cod isod i'r modiwl gwag a agorwyd, gweler y sgrin:

Cod VBA: cysylltiadau allforio 'â lluniau:

Sub BatchExportContactPhotosandInformation()
Dim xContactItems As Outlook.Items
Dim xItem As Object
Dim xContactItem As ContactItem
Dim xContactInfo As String
Dim xShell As Object
Dim xFSO As Scripting.FileSystemObject
Dim xTextFile As Scripting.TextStream
Dim xAttachments As Attachments
Dim xAttachment As Attachment
Dim xSavePath, xEmailAddress As String
Dim xFolder As Outlook.Folder
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xShell = CreateObject("Shell.application").BrowseforFolder(0, "Select a Folder", 0, 16)
If xShell Is Nothing Then Exit Sub
xSavePath = xShell.Items.Item.Path & "\"
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
    Set xFolder = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
Else
    Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
End If
Set xContactItems = xFolder.Items
For i = xContactItems.Count To 1 Step -1
    Set xItem = xContactItems.Item(i)
    If xItem.Class = olContact Then
        Set xContactItem = xItem
        With xContactItem
            xEmailAddress = .Email1Address
            If Len(Trim(.Email2Address)) <> 0 Then
                xEmailAddress = xEmailAddress & ";" & .Email2Address
            End If
            If Len(Trim(.Email3Address)) <> 0 Then
                xEmailAddress = xEmailAddress & ";" & .Email3Address
            End If
            xContactInfo = "Name: " & .FullName & vbCrLf & "Email: " & _
                           xEmailAddress & vbCrLf & "Company: " & .CompanyName & _
                           vbCrLf & "Department: " & .Department & _
                           vbCrLf & "Job Title: " & .JobTitle & _
                           vbCrLf & "IM: " & .IMAddress & _
                           vbCrLf & "Business Phone: " & .BusinessTelephoneNumber & _
                           vbCrLf & "Home Phone: " & .HomeTelephoneNumber & _
                           vbCrLf & "BusinessFax Phone: " & .BusinessFaxNumber & _
                           vbCrLf & "Mobile Phone: " & .MobileTelephoneNumber & _
                           vbCrLf & "Business Address: " & .BusinessAddress
            Set xTextFile = xFSO.CreateTextFile(xSavePath & .FullName & ".txt", True)
            xTextFile.WriteLine xContactInfo
            If .Attachments.Count > 0 Then
                Set xAttachments = .Attachments
                For Each xAttachment In xAttachments
                    If InStr(LCase(xAttachment.FileName), "contactpicture.jpg") > 0 Then
                        xAttachment.SaveAsFile (xSavePath & .FullName & ".jpg")
                    End If
                Next
            End If
        End With
    End If
Next i
End Sub

cysylltiadau allforio doc gyda lluniau 1

4. Ar ôl pasio'r cod yn y modiwl, ewch ar glicio offer > cyfeiriadau yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, yn y popped allan Cyfeiriadau-Project1 blwch deialog, siec Microsoft Scripting Runtime opsiwn gan y Cyfeiriadau ar gael rhestrwch y blwch, gweler y sgrin:

cysylltiadau allforio doc gyda lluniau 2

5. Cliciwch OK i gau'r dialog, ac yna pwyswch F5 allwedd i redeg y cod hwn, yn y popped allan Pori Por Ffolder blwch deialog, pennwch ffolder lle rydych am allbwn y cysylltiadau allforio, gweler y sgrin:

cysylltiadau allforio doc gyda lluniau 3

6. Yna cliciwch OK, mae'r holl wybodaeth gyda lluniau'r cysylltiadau wedi'u hallforio i'ch ffolder penodol ar wahân, gweler y sgrin:

cysylltiadau allforio doc gyda lluniau 4



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    John Doe · 1 months ago
    Do you know that many (every ?) OpenSource alternative to Outlook are able to export contacts in vcard format, with all details and photos ?
    Just with one click, no need to write any code...
    Incredible, isn't it ?
    • To post as a guest, your comment is unpublished.
      some · 1 months ago
      It's because Oulook / Exchange are not free, you need to pay for everything ! :-)