ACCESS能否打开OUTLOOK邮件模板问题

[u013264791]

请教各位,我能用VBA创建一封以填充主题,地址,以及附件的邮件,但我怎样用VBA的CODE打开一封已经填充好内容的邮件模板,求答案

[ACMAIN_CHM]

参考一下OUTLOOK VBA的帮助文档，其中有发MAIL的例子。

引用

通过 Visual Basic 应用程序使 Outlook 自动化 参阅参阅因为 Microsoft Outlook 支持自动化，所以可以从任何用 Microsoft Visual Basic 编写的程序控制 Outlook。自动化为一个应用程序访问支持自动化的另一个应用程序的对象、方法、属性和事件提供了标准方法。 Outlook 对象模型提供了管理 Outlook 文件夹中存储的数据所需的所有功能，还提供了控制 Outlook 用户界面外观的功能。 若要启动 Outlook 自动化会话，可以用早绑定或晚绑定。晚绑定使用 GetObject 或 CreateObject 函数初始化 Outlook。例如，以下代码将对象变量设置为 Outlook Application 对象，该对象为 Outlook 对象模型中的最高层对象。所有自动化代码都必须首先定义 Outlook Application 对象，才能够访问其他 Outlook 对象。 Dim objOL as Object Set objOL = CreateObject("Outlook.Application") 若要使用早绑定，首先要设置到 Outlook 对象库的引用。然后就可用以下语法启动 Outlook 会话。 Dim objOL as Outlook.Application Set objOL = New Outlook.Application 大部分编程解决方案都与 Outlook 中存储的数据进行交互。Outlook 在邮件应用程序编程接口 (MAPI) 文件夹中存储其全部信息。在将对象变量设置为 Outlook Application 对象后，通常要设置一个 Namespace 对象来引用 MAPI，如以下示例所示。 Set objOL = New Outlook.Application Set objNS = objOL.GetNameSpace("MAPI") Set objFolder = objNS.GetDefaultFolder(olFolderContacts) 将对象变量设置为引用包括要使用的项目的文件夹后，就可以用适当的代码完成任务，如以下示例所示。 Sub CreateNewDefaultOutlookTask() Dim objOLApp As Outlook.Application Dim NewTask As Outlook.TaskItem ' Set the Application object Set objOLApp = New Outlook.Application ' You can only use CreateItem for default items Set NewTask = objOLApp.CreateItem(olTaskItem) ' Display the new task form so the user can fill it out NewTask.Display End Sub

引用

Send 方法 参阅参阅参阅参阅发送约会、会议项目、电子邮件或任务。 expression.Send expression 必选。该表达式返回 AppointmentItem、MeetingItem、MailItem 或 TaskItem 对象。 说明 当运行使用 Microsoft Outlook 对象模型调用 Send 方法的程序时，将收到一条警告消息。此警告消息指示程序正以您的身份试图发送邮件，并询问是否可以允许发送此邮件。警告消息包含“是”和“否”按钮。但是，“是”按钮自警告消息显示五秒后才可用。如果单击“否”，则立即解除警告消息。 示例 以下 Visual Basic for Applications (VBA) 示例将使用 CreateItem 创建一个简单任务，并将其作为任务要求委托给其他用户。在运行该示例之前，请用有效的收件人姓名替换“Dan Wilson”。 Sub AssignTask() Dim myOlApp As New Outlook.Application Dim myItem As Outlook.TaskItem Dim myDelegate As Outlook.Recipient Set MyItem = myOlApp.CreateItem(olTaskItem) MyItem.Assign Set myDelegate = MyItem.Recipients.Add("Dan Wilson") myDelegate.Resolve If myDelegate.Resolved Then myItem.Subject = "Prepare Agenda for Meeting" myItem.DueDate = Now + 30 myItem.Display myItem.Send End If End Sub 如果在 Outlook 窗体中使用 Microsoft Visual Basic Scripting Edition (VBScript)，您不必创建 Application 对象，而且也不能使用命名常量。本示例说明如何使用 VBScript 代码转发邮件项目。 Sub CommandButton1_Click() Set myNameSpace = Application.GetNameSpace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) Set myForward = myFolder.Items(1).Forward myForward.Recipients.Add "Laura Jennings" myForward.Send End Sub

[u013264791]

谢谢指导,已经解决,用CreateItemFromTemplate()其实就可以了