كيفية حفظ صور جهات الاتصال في 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