السماح بارسال البريد من حساب واحد فقط

[ابو يحيى1]

لدى اكثر من حساب على الاوت لوك .

لكنى اريد ارسال اى رسائل من خلال حساب واحد فقط وعدم السماح بالارسال من خلال أى حساب من الحسابات الاخرى .

هل يمكن ذلك ؟

[محمد طاهر عرفه]

لا يمكن بطريقة افتراضية

يمكن عن طريق الكود

هذا الكود يقوم بالارسال مباشرة اذا كان المرسل هو admin@officena.net

 و بعطيك رسالة تحذير اذا كان الارسال من حساب اخر ، و يمكنك الالغاء

 

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    
    
 If Not LCase(Item.SendUsingAccount) = "admin@officena.net" Then
 
      Prompt$ = "You are sending this From " & Item.SendUsingAccount & ". Are you sure you want to send the Mail?"
       If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check Address") = vbNo Then
         Cancel = True
         End If
 End If
    

    
End Sub

 و يجب اضافة الكود فى Thisoutlooksession

اضغط

ALT+F11

ثم انقرنقر مزدوج علي

Thisoutlooksession

 و الصق الكود ، و قم بتغيير البريد المرتبط يالحساب

 

[ابو يحيى1]

حل جميل أستاذنا محمد طاهر

تم استخدامه وهو قمة فى الروعة

شكراً جزيلا لك وجزاك الله خيراً

[Ali Mohamed Ali]

بارك الله فيك

[terretayshaun]

On 1/29/2018 at 10:46 AM, ابو يحيى1 said:

حل جميل أستاذنا محمد طاهر

تم استخدامه وهو قمة فى الروعة  invest in turkey

شكراً جزيلا لك وجزاك الله خيراً

بارك الله فيك