那你就看它在哪报错，就改哪就好了啊，你重要的是先要看明白他用了什么，为什么用那些就能发邮件，如果你看明白了，自己再写一个就没有问题啦。
看别人的代码是要消化他的技术，不是要你直接用他的东西去运行。

不是吧。这你都不肯？？！！

那总要拿个对的来学习对吧，你们也可以一起学习啊

想学编程重要的是学习怎样去写一个程序而不是去运行别人的程序。

我当然知道这个，可是我只是希望你们能修改一下，我就可以学习到了

你得明白一件事情,不是所有的人都愿意这样帮助你的!
如果你认为会有这样的人,那你慢慢等吧.

较好的学习方法是自己去看代码，然后跟着做一做，不是让别人写给写好了自己用一用，那能学到什么呢？如果在学习过程中出现的不懂的东西再提出来。而不是让别人给你做好。

难道说你们不肯帮我啊？？
这对你们来说不是很难对吧
应该助人为了乐，对吗

[此贴子已经被作者于2007-6-17 9:44:49编辑过]

不是不肯帮你，而是我用你说的网页上的代码直接就运行成功了。你还要我怎么改？

Private Sub SubSendMail(StrDZ As String, StrUserName As String, StrPWD As String, StrSubject As String, StrText As String)
MAPISession1.UserName = StrUserName
MAPISession1.Password = StrPWD
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = StrDZ '注意这里就是了
MAPIMessages1.MsgSubject = StrSubject
MAPIMessages1.MsgNoteText = StrText
MAPIMessages1.ResolveName
MAPIMessages1.Send
MAPISession1.SignOff
End Sub

Private Sub Form_Load()
SubSendMail "Joforn", "Joforn", "", "Test", "Text the Email"
End Sub

[此贴子已经被作者于2007-6-17 9:53:34编辑过]

非常感谢你
可能我的vb有问题，你传上来好吗
我用的是精简版

[此贴子已经被作者于2007-6-17 9:57:09编辑过]