Uso de Outlook

[edgarrik]

Dim m_OutLook As Outlook.Application

Try
'Creamos un Objeto tipo Mail
Dim objMail As Outlook.MailItem

'Inicializamos nuestra apliación OutLook
m_OutLook = New Outlook.Application

'Creamos una instancia de un objeto tipo MailItem
objMail = m_OutLook.CreateItem(Outlook.OlItemType.olMailItem )

'Asignamos las propiedades a nuestra Instancial del objeto
objMail.To = StrEmail
objMail.Subject = StrAsunto
objMail.Body = StrBody

'Enviamos nuestro Mail y listo!
objMail.Send()

Catch ex As Exception
Exit Sub
'Destruyendo el Objeto
m_OutLook = Nothing
Finally
m_OutLook = Nothing
End Try

Este es el codigo.... pero no es que me de error, simplemente que al enviar el correo, me sale un cuadro de mensaje con el texto que dice : " Un programa esta intentando enviar un correo electronico automaticamente en su nombre ¿Desea Permitirlo?"

Y si no le doy Click en si, no lo envia.... y yo quiero que sea automaticamente, sin ese cuadro....

Gracias a todos...... por favor... si alguien sabe que hacer, le agradezco infinitamente la ayuda......