بسم الله
السلام عليكم
استخدمت الكود التالي لارسال ايميل بواسطة ال outlock
بس المشكلة انه يطلع تحذير قبلها يطلب نعم او لا
هل من طريقة للتخلص من هذه الرسالة التحذيرية و إرسال الايميل بدون ان تظهر؟
الكود:
Sub sendmail()
File_Name = "any name"
Dim oApp As Outlook.Application
oApp = New Outlook.Application()
Dim oMsg As Outlook._MailItem
oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem)
oMsg.Subject = File_Name
oMsg.Body = "text"
oMsg.Attachments.Add("C:\")
oMsg.To = "mail address"
oMsg.Send()
oApp = Nothing
oMsg = Nothing
End Sub
تحياتي
