用Outlook 11.0 object library发送邮件的问题

VB code

    Dim olApp As New Outlook.Application    Dim oMail As Outlook.MailItem        Set oMail = olApp.CreateItem(olMailItem)    With oMail        .Subject = "tester"        .To = "123456@qq.com"        .Body = "nothing"        .Send    End With    olApp.Quit    Set oMail = Nothing    Set olApp = Nothing

代码如上。
总弹出对话框，内容是：
“有一个程序试图以您的名义自动发送电子邮件。是否允许该操作？
如果对此意外，这可能是由于病毒导致，您应选择“否”。”
必须点是才能发送邮件，怎么直接发送邮件，不出这个提示？

[解决办法]
这是WINDOWS安全设置或者防火墙里的东西
发送邮件的软件太多了，还有必要再写么？
如果实在要写，可以用Winsock控件写
网上搜一下，代码一大把