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

[7757]

[Un1]

试一下IPWorks等控件。

[Tony_Yuan]

可以生成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

[qianqian]

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

[7757]

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

[qianqian]

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