Office中国论坛/Access中国论坛

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

作者: frownies 时间: 2006-7-2 00:35
标题: [求助]再次请求发送邮件问题（按照上次指点还是有问题啊，急）
上次咨询过，按照指点修改了，还是有问题，错误停留在“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

[attach]18823[/attach]

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

作者: frownies 时间: 2006-7-5 05:29
麻烦高手指点一二

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)