Sábháil an grianghraf de theagmhálaí amháin in Outlook

Sábháil gach grianghraf de gach teagmháil in Outlook

Chun grianghraf teagmhálaí áirithe a shábháil in Outlook, déan mar a leanas le do thoil:

1. Oscail an fillteán teagmhála ina bhfuil an teagmháil shonraithe, agus athraigh amharc an fhillteáin trí chliceáil Amharc > Athraigh Amharc > liosta. Féach an pictiúr:

2. Cliceáil faoi dhó chun an teagmhálaí sonraithe a shábháilfidh tú a ghrianghraf.

3. Sa fhuinneog teagmhála, cliceáil ar dheis ar an ngrianghraf teagmhála, agus roghnaigh Cóipeáil ón roghchlár cliceáil ar dheis. Féach an pictiúr:

4. Cuir an cúrsóir sa nótaí bosca, agus brúigh Ctrl + V eochracha chun an grianghraf a ghreamú isteach sa nótaí bosca.

5. Cliceáil ar dheis ar an ngrianghraf greamaithe sa nótaí bosca, agus roghnaigh Sábháil mar Pictiúr ón roghchlár cliceáil ar dheis. Féach an pictiúr:

6. Sa bhosca dialóige Sábháil Comhad popping amach, le do thoil (1) oscail an fillteán ceann scríbe a shábhálfaidh tú an grianghraf ann, (2) clóscríobh ainm don ghrianghraf nua sa Ainm comhaid bosca, (3) sonraigh cineál íomhá ón Ach amháin mar chineál liosta anuas, agus ar deireadh (4) cliceáil ar an Sábháil cnaipe. Féach an pictiúr:

7. Dún an fhuinneog Teagmhála gan athruithe a shábháil.

Go dtí seo, sábháladh an grianghraf de theagmháil shonraithe mar íomhá aonair cheana féin.

Más gá duit grianghraif na dteagmhálacha uile a shábháil i bhfillteán teagmhála in Outlook, bain triail as thíos VBA le do thoil.

1. Oscail an fillteán teagmhála sonraithe áit a sábhálfaidh tú gach grianghraf teagmhála, agus brúigh Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

2. Cliceáil Ionsáigh > Modúil, agus ansin greamaigh faoi bhun chód VBA isteach i bhfuinneog an mhodúil nua.

VBA: Baisc ach grianghraif de na teagmhálacha go léir in Outlook

Sub SaveAllContactsPhotos()
Dim xNameSpace As NameSpace
Dim xFdrContacts As MAPIFolder
Dim xItemContact As ContactItem
Dim xAttachments As Outlook.Attachments
Dim xAttach As Attachment
Dim xItems As Outlook.Items
Dim xName As String
Dim xPath, xFileName As String
Set xFdrContacts = Application.ActiveExplorer.CurrentFolder
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xFileName = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For I = 1 To xFdrContacts.Items.Count
Set xItemContact = xFdrContacts.Items(I)
Set xAttachments = xItemContact.Attachments
For Each xAttach In xAttachments
If xAttach.FileName = "ContactPicture.jpg" Then
xName = xItemContact.FirstName & xItemContact.LastName
xPath = xFileName & xName & ".jpg"
xAttach.SaveAsFile (xPath)
End If
Next
Next
Set xShell = Nothing
End Sub

nótaí: Sábhálfaidh an VBA seo gach grianghraf teagmhála mar íomhánna JPG. Chun a shábháil mar chineál íomhá eile, le do thoil athraigh an .jpg sa chód xPath = xFileName & xName & ".jpg" chun ainmneacha síntí eile, mar shampla .png, .gif, etc.

3. Brúigh an F5 eochair nó an Rith cnaipe chun an VBA seo a rith.

4. Sa bhosca dialóige Brabhsáil Chun Fillteán, roghnaigh an fillteán ceann scríbe a sábhálfaidh tú na grianghraif ann, agus cliceáil ar an OK cnaipe. Féach an pictiúr:

Anois sábhálfar gach grianghraf teagmhála san fhillteán teagmhála roghnaithe mar íomhánna aonair .jpg (nó cineál íomhá eile mar a shonraigh tú) ar an mórchóir.

Folaigh grianghraif teagmhála i ríomhphoist in Outlook

Cuir, athraigh nó bain pictiúr / grianghraf le haghaidh teagmhála in Outlook