مشكله عند ارسال ايميل

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

قمت بالاستفاده من احد البرامج التي قام بها احد الاعضاء وهو برنامج يقوم بارسال ايميل اما عن

طريق outlook او عن طريق server .

ولكن المشكله عند الارسال عن طريق Outlook يظهر لك البرنامج الرساله التاليه :

اقتباس

A program is trying to automatically send e-mail on your behalf.

do you want to allow this?

if this unexpected,it may be a virus and you should choose "No".

فهل هناك طريقه للارسال من دون ظهور هذه الرساله علما انني بحثت في خصائص برنامج Outlook security ولكن لم اتوصل الى الحل .

ملاحظه :

قمت باستخدام الكود التالي :

Private Sub Form_Load()
Set OLApp = CreateObject("Outlook.Application")
		Set MyItem = OLApp.CreateItem(olMailItem)

		txtInsertFile.Text = "c:\ReadMe.txt"
		MyItem.To = "xxx@gmail.com"

		MyItem.Subject = "Attach file"
		MyItem.Body = "read this file "
		Set MyAttachments = MyItem.Attachments
		MyAttachments.Add txtInsertFile.Text
		MyItem.Send
End Sub

ارجو ان يكون السؤال مفهوم .

شكرا لكم .