小编can*_*dyA的帖子

任何人都可以告诉我为什么我在下面的函数中收到"运行时错误'91'"消息？它发生在这条线上:

Set olMailItem = olApp.CreateItem(olMailItem)

此外,每当我在调试并将光标放在此行上时,Access会给我这样的消息:"Outlook.Application = <Object variable或With block variable not set>":

Dim olApp As New Outlook.Application 

我正在尝试创建一个按钮,该按钮将打开Outlook电子邮件消息,并允许数据输入员在发送之前编辑该消息.我检查了我的引用,并检查了Microsoft Outlook 14.0对象库.

另外,如果您对提高我的代码效率有任何建议,请分享.我是Access编程的新手.

Private Sub EmailButton_Click()
    Dim EmailThis As String

    EmailThis = CreateEmailWithOutlook("myname@company.com", "Testing e-mail Access database", "This is a test")
    DoCmd.SendObject acSendForm, "SubmitNewIdeaForm", , "My Name", , "Test", , True
    On Error GoTo CreateEmail_Exit

CreateEmail_Exit:
    Exit Sub

End Sub

Public Function CreateEmailWithOutlook(MessageTo As String, Subject As String, MessageBody As String)

    ' Define app variable and get Outlook using the "New" …

我专门寻找一张天气雷达图，类似于在 Wordpress 网站上显示的这张地图：http://www.vantilburgfarms.com/weather_local_radar.htm

上面的雷达是动画的，放大了美国印第安纳州、俄亥俄州部分地区，这正是我所需要的。我不想从网站上窃取这张地图。

我用谷歌搜索过，唯一能找到的是 5 天的天气预报。有什么建议么？