来自Access

Question

我正在为我的学校建立一个系统，该系统每次需要打印工作表时都会向资源部门发送电子邮件。

表的字段是：

• ID（自动编号）
• 在线文件的网址（超链接）
• 密钥（用户键入参数查询然后将相应数据通过电子邮件发送到资源（文本字符串）
• 工作表（备忘录）
的说明

要发送电子邮件，用户会填写一组参数查询。应该发送电子邮件而不是查询结果。查询应包含以下字段：

• 工作表的键（文本字符串）
• 需要打印多少张工作表（一个数字）
• 任何笔记（备忘录） 然后他们点击“确定”并发送电子邮件。

电子邮件应包含此信息，该信息对应于在查询中输入的数据：

• 指向工作表的超链接
• 用户表示需要打印多少张工作表
• 用户提交的备注和表格中已有的备注

到目前为止下载我的数据库click here。

我想在VBA代码中执行此操作。你能指导我做正确的工作吗？任何代码建议都会有所帮助，因为我是VBA的新手。 感谢

Answer 1

首先，通过单击“工具”，然后单击“引用”，将“Microsoft Outlook 14.0对象库”添加到引用（您的编号可能不同于14.0）。我有以下代码比你要求的更多，但它会工作。签名参数是文本正文作为字符串。创建字符串时，使用“vbCrLf”创建新行，例如签名=“你好，你好吗？” + vbCrLf +“我很好。”将把句子分成两行。

class AlbumArtist < ActiveRecord::Base
  belongs_to :album
  belongs_to :artist

  validates_presence_of :album, :artist

  validate :ensure_unique, on: :create

  private

  def ensure_unique
    if self.artist.albums.where(name: self.album.name).any?
      errors[:base] << 'Artist already has an album by this name'
    end
  end
end