0

我有一个用户在 MS ACCESS 拆分数据库中收到错误消息。消息是“命令或操作“发送对象”现在不可用。” 用户在单击命令按钮时收到此消息,该命令按钮假定打开 GroupWise 电子邮件并从 MSACCESS 表单复制文本并自动填充 TO: FROM: 和 SUBJECT: 行。
我查看了 USER 的 Internet Explorer 设置。我检查了用户是否拥有最新的 MS JET 4.0 我提供了另一个前端副本以保存到桌面 所有其他用户都没有遇到此问题。我还必须补充一点,这个特定用户最近升级到 MS OFFICE 2010,就像我们其他人一样......有什么建议吗?谢谢

4

1 回答 1

0

对于任何通过 Google 路过的人来说,这对我有用。受影响的用户最近升级到带有 32 位 Office 2010 的 Windows 7(尽管有些用户升级没有问题)。它也适用于我的本地计算机(带有 64 位 Office 2010 的 Windows 7)。

而不是使用DoCmd.SendObject(....)

Sub SendMail()

Dim myOb As Object
Dim AutoSend as boolean

Set myOb = CreateObject("Outlook.Application")
Set oMail = myOb.CreateItem(olMailItem)

//Set whether to send email automatically or make user press Send
AutoSend = False

With oMail
    .Body = "Message text"
    .Subject = "Subject line"
    .To = To@example.com
    .cc = cc@example.com

    If AutoSend Then
        .send
    Else
        .display
    End If
End With

    Set oMail = Nothing
    Set oApp = Nothing

End Sub
于 2015-01-26T12:23:21.577 回答