[求助]再次请求发送邮件问题（按照上次指点还是有问题啊，急）

frownies

上次咨询过，按照指点修改了，还是有问题，错误停留在“Send”

恳请高手给我修改一下，最好用此程序将修改结果发给我，如果成功发送了，我的手机就响了，谢谢

我的系统环境xp+office2000（我不想用2003）



Option Compare Database

Private Sub 命令0_Click()
test2
End Sub


Function test2()

Dim olApp As Outlook.Application
Dim myMail As MailItem

    Set olApp = Outlook.Application
    Set myMail = olApp.CreateItem(olMailItem)
    With myMail
        .Recipients.Add ("frownies@e172.com")    '就是我的实际地址，如果成功发送了，我的手机就响了
        .subject = "主题"
        .Body = "正文"
        .Save
        .Send                                                         '这是错误停留的地方,报“运行时错误，无法打开该项目”
    End With
End Function

[此贴子已经被作者于2006-7-4 21:24:34编辑过]

frownies

麻烦高手指点一二