Access VBA教程:SendObject方法

在 Visual Basic 中,SendObject方法执行SendObject 操作。

expression.SendObject(ObjectType, ObjectName, OutputFormat, To, Cc, Bcc, Subject, MessageText, EditMessage, TemplateFile)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

ObjectType  可选AcSendObjectType。

AcSendObjectType 可以是下列 AcSendObjectType 常量之一:
acSendDataAccessPage
acSendForm
acSendModule
acSendNoObject 默认
acSendQuery
acSendReport
acSendTable

ObjectName  可选 Variant 型。字符串表达式,表示 objecttype参数所选类型对象的有效名称。如果要在邮件消息中包含活动的对象,请使用 objecttype参数指定对象的类型,并将该参数留空。如果将 objecttype 和 objectname参数都留空(对于 objecttype,留空时将采用默认常量 acSendNoObject),Microsoft Access 将向电子邮件应用程序发送消息,但不包含数据库对象。如果在某类库数据库中执行包含 SendObject方法的 Visual Basic 代码,则 Microsoft Access 将先在该类库数据库中查找具有此名称的对象,然后再在当前数据库中查找。

OutputFormat  可选 Variant 型。

OutputFormat  可选AcFormatType。

XlSendObjectOutputFormat 可以是下列 XlSendObjectOutputFormat 常量之一:
acFormatDAP
acFormatHTML

acFormatRTF

acFormatTXT

acFormatXLS

如果将该参数留空,Microsoft Access 将显示输出格式的提示。

To  可选 Variant 型。字符串表达式,该表达式列出了放在邮件消息的“收件人”行中的名称。用分号 (;) 或列表分隔符(在 Windows“控制面板”“区域设置属性”对话框中的“数字”选项卡中设置)分隔该参数及 cc 和 bcc 参数中指定的收件人名称。如果收件人名称不能被电子邮件应用程序识别,那么不会发送该消息并将产生错误。如果将该参数留空,Microsoft Access 会提示输入收件人。

Cc  可选 Variant 型。字符串表达式,该表达式列出了放在邮件消息“抄送”行中的收件人名称。如果将该参数留空,则邮件消息中的“抄送”行也将为空。

Bcc  可选 Variant 型。字符串表达式,该表达式列出了放在邮件消息“密件抄送”行中的收件人名称。如果将该参数留空,则邮件消息中“密件抄送”行也将为空。

Subject  可选 Variant 型。字符串表达式,该表达式包含放在邮件消息“主题”行中的文本。如果将该参数留空,则邮件消息中的“主题”行也将为空。

MessageText  可选 Variant 型。字符串表达式,该表达式包含放在邮件消息正文中的文本。如果将该参数留空,则对象是包含在邮件消息正文中的所有内容。

EditMessage  可选 Variant 型。使用 True (-1) 可以用加载的消息立即打开电子邮件应用程序,这样就可以编辑消息;而使用 False (0) 则可以不进行编辑就发送消息。如果将该参数留空,将采用默认值 (True)。

TemplateFile  可选 Variant 型。字符串表达式,表示用作HTML 文件的模板文件的完整名称(包括路径)。

说明

有关该操作及其参数如何使用的详细信息,请参阅该操作的主题。

模块只能以“MS-DOS 文本”格式发送,所以如果将 objecttype参数指定为 acSendModule,则必须将 outputformat参数指定为 acFormatTXT。

语法中的可选参数允许留空,但是必须包含参数的逗号。如果将位于末端的参数留空,则在指定的最后一个参数后面不必使用逗号。

VBA示例

下面的示例在邮件消息中包含一个 Microsoft Excel 格式的“雇员”表,并在邮件消息中指定了“收件人”、“抄送”和“主题”行。邮件信息会不进行编辑就立即发送。


DoCmd.SendObject acSendTable, "Employees", acFormatXLS, _
    "Nancy Davolio; Andrew Fuller", "Joan Weber", , _
    "Current Spreadsheet of Employees", , False

上页:Access VBA教程:SelectObject方法 下页:Access VBA教程:SetMenuItem方法

Access VBA教程:SendObject方法

Access VBA教程:SetMenuItem方法 Access VBA教程:SetWarnings方法
Access VBA教程:ShowAllRecords方法 Access VBA教程:ShowToolbar方法
Access VBA教程:TransferDatabase方法 Access VBA教程:TransferSpreadsheet方法
Access VBA教程:TransferText方法 Access VBA教程:Add方法
Access VBA教程:AddFromString方法 Access VBA教程:AddItem方法
Access VBA教程:AddToFavorites方法 Access VBA教程:ApplyTheme方法
Access VBA教程:BuildCriteria方法 Access VBA教程:Circle方法
Access VBA教程:CloseConnection方法 Access VBA教程:CloseCurrentDatabase方法
Access VBA教程:CodeDb方法 Access VBA教程:CompactRepair方法
Access VBA教程:ConvertAccessProject方法 Access VBA教程:CopyDatabaseFile方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号