كيف يمكن حفظ صور جهات الاتصال في Outlook؟

احفظ صورة جهة اتصال واحدة في Outlook

احفظ جميع صور جهات الاتصال في Outlook

لحفظ صورة جهة اتصال معيّنة في Outlook، يُرجى اتباع الخطوات التالية:

1. افتح مجلد جهات الاتصال الذي يحتوي على جهة الاتصال المحددة، ثم غيّر طريقة عرض المجلد بالنقر علىعرض > تغيير العرض > قائمة. انظر لقطة الشاشة:

2. انقر نقرًا مزدوجًا لفتح جهة الاتصال المحددة التي تريد حفظ صورتها.

3. في نافذة جهة الاتصال، انقر بزر الماوس الأيمن على صورة جهة الاتصال، ثم اخترنسخمن قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

4. ضع المؤشر في مربعالملاحظات، ثم اضغط على مفاتيحCtrl+V للصق الصورة في مربعالملاحظات.

5. انقر بزر الماوس الأيمن على الصورة المُلصَقة في مربعالملاحظات، ثم اخترحفظ كصورةمن قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

6. في مربع حوار حفظ الملف المنبثق، يُرجى: (1) فتح المجلد الوجهة الذي تريد حفظ الصورة فيه، (2) كتابة اسم للصورة الجديدة في مربعاسم الملف، (3) تحديد نوع الصورة من قائمةتحديد تنسيق الحفظالمنسدلة، وأخيرًا (4) النقر على زرحفظ. انظر لقطة الشاشة:

7. أغلق نافذة جهة الاتصال دون حفظ التغييرات.

حتى الآن، تم بالفعل حفظ صورة جهة الاتصال المحددة كصورة مستقلة.

إذا كنت ترغب في حفظ صور جميع جهات الاتصال في مجلد جهات اتصال Outlook، جرّب كود VBA أدناه.

1. افتح مجلد جهات الاتصال المحدد الذي تريد حفظ جميع صور جهات الاتصال فيه، ثم اضغط على مفاتيحAlt+F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر علىإدراج > وحدة، ثم الصق كود VBA أدناه في نافذة الوحدة الجديدة.

VBA: حفظ دفعة من صور جميع جهات الاتصال في 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

ملاحظة: سيقوم كود VBA هذا بحفظ جميع صور جهات الاتصال بصيغة JPG. ولحفظها بصيغة أخرى، يُرجى تغيير الامتداد «.jpg» في السطرxPath = xFileName & xName & ".jpg"إلى امتداد آخر، مثل «.png» أو «.gif»، إلخ.

3. اضغط على مفتاحF5 أو زرتشغيللتشغيل هذا الكود VBA.

4. في مربع الحوار المنبثق «استعراض المجلدات»، حدد المجلد الذي تريد حفظ الصور فيه، ثم انقر على زرموافق. انظر لقطة الشاشة:

الآن تم حفظ جميع صور جهات الاتصال في مجلد جهات الاتصال المحدد كصور فردية بصيغة .jpg (أو بأي صيغة أخرى حسب اختيارك) دفعةً واحدة.

إخفاء صور جهات الاتصال في رسائل البريد الإلكتروني في Outlook

إضافة صورة/صورة لجهة اتصال أو تغييرها أو إزالتها في Outlook