来坐坐吧（ 请教outlook 发邮件）

Question

Dim out As New Outlook.Application
    Dim obj As Outlook.MailItem  'xMail
            
    Set obj = out.CreateItem(olMailItem)
    With obj
        .Subject = "hello"
        .To = "[email protected]" 
        .Body = " Thanks for your tephone!"
        .Importance = olImportanceHigh
        .Send
    End With
   
以上代码完成 调用   outlook 发邮件,
不好的地方是发时总是弹出outlook 的询问窗口：
     有一个程序正试图以您的名义自动发送电子邮件，
   是否允许该操作？
      ...
         是            否          帮助
   
请问如何把该窗口去掉？有什么函数或方法？
不胜感激，谢谢！

Answer 1

呵呵，我倒是做过这方面的事情，是用VC做个HOOK程序,把outlook的警告信息去掉
不过这是我们公司的版权，不敢发布出来
网上有这样的例子,你可以借鉴一下

Answer 2

我知道了“工具”－>“选项”中，不要选中“当别的程序试图用我的名义发送电子邮件时警告我(W)”

Answer 3

“工具”－>“选项”－>“安全”标签中，不要选中“当别的程序试图用我的名义发送电子邮件时警告我(W)”

Answer 4

以上操作是在Outlook Express中

Answer 5

感谢 zmgcj(真的名贵) ！
    我想你的观点是对的，我一直在找这样的设置， Outlook里没找到；
不过我机器里好想没有Outlook Express，还没法试验，Outlook Express与 Outlook  啥关系，有什么不同啊？有点傻的问题，呵

Answer 6

Windows自带的呀，程序菜单里面的Outlook ExpressOutlook是Office里面带的，我没用过。

Answer 7

outlook express不是对其做VBA编程,只能对office那个outlook做VBA编程
outlook express好象没提供对象和方法