هل يمكن تعطيل تحذير أوتلوك عند الإرسال

اختي الفاضلة لمياء

السلام عليكم ورحمة الله وبركاته

هذه الرسالة التي تظهر هي عبارة عن ميزة الأمان في برنامج Outlook حيث يتم تثبيتها افتراضيا مع Outlook 2002 و Outlook 2003 حيث تساعد هذه الميزه في التصدي لمعظم الفيروسات المنتشرة عن طريق مرفقات البريد الألكتروني وايضا تحمي من فيروسات الدوده .

لهذا عندما نقوم بإرسال اي رساله بها مرفقات من الـ Outlook فإن رسالة الأمان تظهر لنا ومن ثم نختار ما هو مناسب لنا سواء ( السماح او عدم السماح ) .

اذا رغبتي في ايقاف هذا التنبيه نهائيا فعليك بإختيار احد الخطوات التالية سواء اليدويه ( وهي الأسهل لك - او البرمجيه )

الطريقة اليدويه :

1. فتح برنامج الأوتلوك ( Outlook )

2. الذهاب الى ادوات ( Tools )

3. الذهاب الى خيارات ( Options )

4. اختيار تبويب الأمان ( Security tab )

5. نقوم بإزالة علامة الصح من اول مربع ( Warn me when other applications try to send mail as me )

6. اغلاق برنامج الـ Outlook ثم اعادة تشغيله لتأخذ الخيارات مجراها في الريجستري ثم اغلاق البرنامج

7. الآن نستطيع ارسال ما نريد من الرسائل بدون ان تظهر لنا اي رساله او تنبيه من برنامج الآوتلوك .

==============

الطريقة البرمجية وهي عن طريق وضع كود خاص يقوم بالنيابة عنك بإزالة علامة الصح من مربع ( Warn me when other applications try to send mail as me ) من تبويب الأمان برمجيا بهذه الطريقة :

Private Declare Function RegisterWindowMessage _
        Lib "user32" Alias "RegisterWindowMessageA" _
        (ByVal lpString As String) As Long

Private Declare Function FindWindow Lib "user32" _
        Alias "FindWindowA" (ByVal lpClassName As Any, _
        ByVal lpWindowName As Any) As Long

Private Declare Function SendMessage Lib "user32" _
        Alias "SendMessageA" (ByVal hwnd As Long, _
        ByVal wMsg As Long, ByVal wParam As Long, _
        lParam As Any) As Long

Private Sub SendEmail_Click()
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long

uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")

wnd = FindWindow("EXCLICKYES_WND", 0&)

Res = SendMessage(wnd, uClickYes, 0, 0)

DoCmd.SendObject acReport, "rptUsers", acFormatPDF, "lamyaa1@msn.com", "", "", "السلام عليكم ورحمة الله وبركاته .. تجدون التقرير في المرفقات ", "عنوان الرسالة", False, ""

End Sub

بالتوفيق

يا الله

أختي زهره تعود

والله فرحتي بعوتك لا توصف

كل الشكر والتقدير لك

أُخيه .. كثيراً ما استفدت من موضوعاتك وردودك وأمثلتك

أنت مصداق للقول خير الناس أنفعهم للناس

دعواتي لك بالحفظ والتوفيق

zahrah كتب:

اختي الفاضلة لمياء

السلام عليكم ورحمة الله وبركاته

هذه الرسالة التي تظهر هي عبارة عن ميزة الأمان في برنامج Outlook حيث يتم تثبيتها افتراضيا مع Outlook 2002 و Outlook 2003 حيث تساعد هذه الميزه في التصدي لمعظم الفيروسات المنتشرة عن طريق مرفقات البريد الألكتروني وايضا تحمي من فيروسات الدوده .

لهذا عندما نقوم بإرسال اي رساله بها مرفقات من الـ Outlook فإن رسالة الأمان تظهر لنا ومن ثم نختار ما هو مناسب لنا سواء ( السماح او عدم السماح ) .

اذا رغبتي في ايقاف هذا التنبيه نهائيا فعليك بإختيار احد الخطوات التالية سواء اليدويه ( وهي الأسهل لك - او البرمجيه )

الطريقة اليدويه :

1. فتح برنامج الأوتلوك ( Outlook )

2. الذهاب الى ادوات ( Tools )

3. الذهاب الى خيارات ( Options )

4. اختيار تبويب الأمان ( Security tab )

5. نقوم بإزالة علامة الصح من اول مربع ( Warn me when other applications try to send mail as me )

6. اغلاق برنامج الـ Outlook ثم اعادة تشغيله لتأخذ الخيارات مجراها في الريجستري ثم اغلاق البرنامج

7. الآن نستطيع ارسال ما نريد من الرسائل بدون ان تظهر لنا اي رساله او تنبيه من برنامج الآوتلوك .

==============

الطريقة البرمجية وهي عن طريق وضع كود خاص يقوم بالنيابة عنك بإزالة علامة الصح من مربع ( Warn me when other applications try to send mail as me ) من تبويب الأمان برمجيا بهذه الطريقة :

Private Declare Function RegisterWindowMessage _
        Lib "user32" Alias "RegisterWindowMessageA" _
        (ByVal lpString As String) As Long

Private Declare Function FindWindow Lib "user32" _
        Alias "FindWindowA" (ByVal lpClassName As Any, _
        ByVal lpWindowName As Any) As Long

Private Declare Function SendMessage Lib "user32" _
        Alias "SendMessageA" (ByVal hwnd As Long, _
        ByVal wMsg As Long, ByVal wParam As Long, _
        lParam As Any) As Long

Private Sub SendEmail_Click()
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long

uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")

wnd = FindWindow("EXCLICKYES_WND", 0&)

Res = SendMessage(wnd, uClickYes, 0, 0)

DoCmd.SendObject acReport, "rptUsers", acFormatPDF, "lamyaa1@msn.com", "", "", "السلام عليكم ورحمة الله وبركاته .. تجدون التقرير في المرفقات ", "عنوان الرسالة", False, ""

End Sub

بالتوفيق

أختاه

كما تعلمين ويندوز 7 لا يوجد بها Outlook Express وبالتالي فأنا استخدم Microsoft Outlook 2007 ولا يوجد خيار لتعطيل التحذير

جربت الكود ولكن لا زالت تظهر رسالة التحذير المشؤمة