منع ارسال رسالة بدون موضوع في اوتلووك 2007
السلام عليكم ورحمة الله
أخواني عندي موضوع جداً مهم ...
وهوا عندما تستخدم برنامج البريد اوتلووك 2007 وتريد ان ترسل رسالة وانت مستعجل
تنسى ان تكتب عنوان الموضوع وترسل الرسالة ... الرسالة بدون عنوان موضوع تكون مبهمة لمستقبلها ... لذلك هناك طريقة تذكرك عندما تنسى كتابة عنوان الموضوع ...
وهي كتالي :
1- تحت واجهة البرنامج الرئيسية اظغط Alt+F11
سوف يفتح واجهة برمجة الفيجول بيسك ...
2- على اليمين أو اليسار ( على حسب واجهة البرنامج عربي أو أنجليزي )
تجد الأسم Project1 اظغط علامة الزائد تجد تحته Microsoft Outlook Objects ، اظغط علامة الزائد
تجد تحته ThisOutLookSession.
3 - دبل كلك على ThisOutLookSession راح يفتح نافذة ... قم بنسخ ولصق التالي في داخل النافذة :
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
strSubject = Item.Subject
If Len(Trim(strSubject)) = 0 Then
Prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"
If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then
Cancel = True
End If
End If
End Sub
4 - ومن ثم حفظ ...
الآن جرب ترسل رسالة عنون الموضوع فيها فارغ ... راح تطلع لك رسالة أنك راح ترسل رسالة بدون موضوع .. موافق ولا لا ...
أرجو أن اكون قد وفقت في الشرح ...
ودمتم سالمين ....
lku hvshg vshgm f],k l,q,u td h,jg,,; 2007