3

我正在构建一个 Access 表单，它将部署在没有 Office 的 Windows 机器上。要运行 Access db，将安装Office 2010 运行时例程。由于这个方便的免费下载，用户无需安装 Access 即可打开表单并运行自定义代码。

这是完美的，只有一个例外。输入他们的数据后，我需要一些自定义代码来打开并在 MS Exchange 帐户中保存草稿电子邮件。通常，这对我使用 Outlook 来说非常容易。但是，我之前提到的 Office 运行时不包括该库。

如何在未安装 Outlook 的机器上合法使用 MS Outlook 14.0 对象库 (MSOUTL.OLB)？到目前为止的想法：

  1. Outlook Express 的桌面版本是否安装此库？我只能在 3rd 方网站上找到它，所以它不是我的首选。

  2. 我探索了将库复制到共享驱动器的想法，但这似乎不是一个好主意。

  3. 那是我的全部了。如果根本不可能，我需要为其他人创建一个新的界面和管理系统来生成电子邮件。

请问有什么建议吗？

（另外，对于那些喜欢看代码的人，这就是我通常会做的事情。除了我会修改它以登录到特定帐户：）

Function MakeEmail()
    Dim OlApp As Outlook.Application
    Dim ObjMail As Outlook.MailItem
    Set OlApp = CreateObject("Outlook.Application")
    Set ObjMail = OlApp.CreateItem(olMailItem)
    'Add To,CC,Subject,Body,etc here
    ObjMail.Save
End Function
4

2 回答 2

0

下载SendEmail命令行实用程序。然后修改您的 VBA 以执行它。

Sub SendEmail(fromAddress As String, _
                   toAddress As String, _
                   subject As String, _
                   message As String, _
                   server As String, _
                   userID As String, _
                   userPass As String _
                   )
    Shell "sendemail.exe -f " & fromAddress & _
        " -t " & toAddress & _
        " -u " & subject & _
        " -m " & message & _
        " -s " & server & _
        " -xu " & userID & _
        " -xp " & userPass & _
        , vbNormalFocus
End Sub
于 2013-09-10T23:40:05.453 回答
0

根据正在使用的 Exchange Server 版本，您可以尝试使用 CDO。我相信它应该能够创建一个 Exchange 会话，创建一个消息对象，然后将其放置在特定文件夹（即草稿）中。

有关更多信息，请在此处查看有关 CDO 的 MSDN 文章，并在此处查找您可能需要的任何下载。

于 2013-11-18T15:45:19.280 回答