مطلوب كود لفتح اوت لوك مباشره

الكود لفتح برنامج outlook :

قم بإنشاء زر أمر وضمنه الكود التالي :

On Error Resume Next

Set objOL = CreateObject("Outlook.Application")
Set objNS = objOL.GetNameSpace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olFolderContacts)

الكود لإغلاق برنامج outlook :

Dim objOLook As Object
Set objOLook = CreateObject("Outlook.Application")
objOLook.Application.Quit

أتمنى لك التوفيق

اهلا بك اخي

للتشغيل

Shell "outlook.exe"

للإغلاق

Set obj = GetObject(, "Outlook.Application")
obj.Application.Quit

وبالنسبة للاغلاق بعد فترة معينة أتوقع انها مش صعبة عليك اخي سلمان . نفس الكود السابق للاغلاق تضعه داخل تايمر بالنموذج ثم اغلاق التايمر . وكذلك يمكنك عمل تحسينات مثل التأكد من ان البرنامج شغال قبل اغلاقه

بالتوفيق

اخ

اخ

الف الف شكر لكم

والله يعطيكم الف عافيه ولا يحرمنا

اي نعم معروفه طريقه التايمر وراح اسويه بس اهم شي عندي الكود

اكرر شكري لكم

تستاهلون كثر من +1