vb如何自动发送电子邮件？

Question

可以生成outlook对象发邮件
      Dim olapp As Object
      Dim oitem As Object
      
      Set olapp = CreateObject("Outlook.Application")
      Set oitem = olapp.CreateItem(0)
      With oitem
            .Subject = "Test Email Using VB and Outlook Object"
            .To = "addres;"
            .Body = "This message was sent from VB"
            .Send
      End With
      Set olapp = Nothing
      Set oitem = Nothing

Answer 1

用shellexecute("mailto:somebody ....)最方便，mailto的语法可以查看相关文件。它将调用系统模认的邮件程序发送邮件。shellexecute是api函数

Answer 2

用shellexecute("mailto:somebody ....)可以调出系统默认的邮件程序,
但它能自动将邮件发出吗?

Answer 3

to 7757:
好像...不行，除非用个笨苯笨的办法，1.你调用mailto以后肯定会激活邮件窗口 2.你的那个邮件程序肯定有个按钮或菜单用来发送邮件。3.用sendkeys把你的操作按键发过去吧！
不过不建议使用。的确不好。我的主页上写了一个邮件发送mailto的语法介绍，不过很遗憾，也不是百发百中，因为有的邮件程序不支持全部的命令参数。http://qianqian.533.net