كيف أعرف عن وصول رسالة جديدة للبريد الالكتروني من برنامجي فور وصولها

السلام عليكم..

وجدت الحل ولله الحمد؛ بعد إضافة البريد المطلوب معرفة رسائله الجديدة للoutlook نستخدم في البرنامج هذا الكود لمعرفة عدد الرسائل بشكل دوري وبه نستطيع معرفة وصول رسالة جديدة للبريد:

		Dim Outlook As New Microsoft.Office.Interop.Outlook.Application
		Dim NS As Microsoft.Office.Interop.Outlook.NameSpace = Outlook.GetNamespace("MAPI")
		Dim Inbox As Microsoft.Office.Interop.Outlook.MAPIFolder = NS.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderInbox)
			 msgscount = Inbox.Items.Count

السلام عليكم