كيفية إرفاق بطاقة عمل لجميع الرسائل الصادرة تلقائيًا في Outlook؟

في بعض الحالات ، قد ترغب في إرسال vCard الخاص بك لجميع الرسائل الصادرة ، حتى يتمكن المستلمون من حفظ معلوماتك في دفتر العناوين الخاص بهم بسرعة وسهولة. في Outlook ، يمكنك حل هذه المهمة بالطرق التالية في أسرع وقت ممكن.

إرفاق بطاقة عمل لجميع الرسائل الصادرة تلقائيًا عن طريق إنشاء التوقيع

قم بإرفاق بطاقة عمل لكافة الرسائل الصادرة تلقائيًا باستخدام رمز VBA

إرفاق بطاقة عمل لجميع الرسائل الصادرة تلقائيًا عن طريق إنشاء التوقيع

عادةً ، يمكنك إنشاء توقيع لـ vCard الخاص بك ، ثم تشغيل التوقيع دائمًا. يرجى القيام بذلك على النحو التالي:

1. إنشاء بريد إلكتروني جديد ، في نافذة الرسالة الجديدة ، انقر فوق إدراج > سيغنيتشر، انظر لقطة الشاشة:

2. في المنبثقة التوقيع وقرطاسية مربع الحوار ، تحت توقيع البريد الإلكتروني ، انقر فوق جديد ، وأدخل اسمًا لهذا التوقيع الجديد ، انظر لقطة الشاشة:

3. ثم اضغط OK لإغلاق التوقيع الجديد في مربع الحوار ، حدد اسم التوقيع الجديد هذا من ملف حدد التوقيع لتحريره مربع القائمة ، ثم انقر فوق نعم عمل بطاقة، انظر لقطة الشاشة:

4. في أدخل بطاقة العمل في مربع الحوار ، حدد مجلد جهات الاتصال من ملف إنظر في القائمة المنسدلة ، ثم حدد بطاقة العمل المحددة في مربع القائمة أدناه ، انظر الصورة:

5. ثم اضغط OK لإغلاق مربع الحوار هذا والعودة إلى التوقيع وقرطاسية في مربع الحوار ، استمر في تحديد اسم التوقيع الجديد ، ثم حدد حساب البريد الإلكتروني الذي تريد إضافة هذا التوقيع إليه تلقائيًا من حساب البريد الإلكتروني قائمة منسدلة. ثم اختر اسم التوقيع الذي تم إنشاؤه حديثًا من ملف رسائل جديدة قائمة منسدلة.

تنويهات: إذا كنت تريد إضافة vCard في كل الردود وإعادة التوجيه ، فالرجاء اختيار اسم التوقيع الجديد باستخدام vCard في الردود / إعادة التوجيه قائمة.

6. بعد الانتهاء من الإعدادات ، الرجاء الضغط OK زر. من الآن فصاعدًا ، عند إنشاء رسالة جديدة ، سيتم إدراج بطاقة العمل المحددة في نص الرسالة وإضافتها كمرفق في وقت واحد ، انظر لقطة الشاشة:

قم بإرفاق بطاقة عمل لكافة الرسائل الصادرة تلقائيًا باستخدام رمز VBA

لإرفاق بطاقة عمل لجميع الرسائل الصادرة ، يمكنك حفظ بطاقة العمل كملف vcf ، ثم تطبيق رمز VBA لإرفاقه كمرفق تلقائيًا. يرجى اتباع الخطوات التالية:

1. انتقل إلى مجتمع ، حدد جهة الاتصال التي تريد إرسالها كبطاقة عمل.

2. ثم اضغط قم بتقديم > حفظ باسم، في نافذة حفظ باسم ، حدد مكانًا لوضع هذه البطاقة ، ثم اكتب اسمًا في ملف اسم الملف مربع النص ، واختر ملفات vCard من حفظ ك اكتب القائمة المنسدلة ، انظر لقطة الشاشة:

3. ثم اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

4. ثم ، انقر نقرًا مزدوجًا هذه الجلسة من مشروع- مشروع 1 جزء ، ثم انسخ الكود أدناه والصقه في نافذة الكود الفارغة:

كود فبا: أرفق بطاقة عمل لجميع الرسائل الصادرة تلقائيًا

Public WithEvents GInpectors As Inspectors
Private Sub Application_Startup()
  Set GInpectors = Application.Inspectors
End Sub
Private Sub GInpectors_NewInspector(ByVal Inspector As Inspector)
'Updateby ExtendOffice
Dim xMail As MailItem
Dim xSubject As String
On Error Resume Next
If Inspector.CurrentItem.Class <> olMail Then Exit Sub
Set xMail = Inspector.CurrentItem
xSubject = VBA.UCase$(xMail.Subject)
If (VBA.InStr(xSubject, "RE: ") = 1) Or (VBA.InStr(xSubject, "FW: ") = 1) Then Exit Sub
With xMail
  .Attachments.Add "C:\Users\Desktop\Leonel Davis.vcf"
End With
End Sub

ملاحظات: في الكود أعلاه ، C: \ Users \ Desktop \ Leonel Davis.vcf هو مسار ملف بطاقة عملك الذي قمت بحفظه ، يرجى تغييره حسب حاجتك.