Dim aa = Tables("工作日志").Current("部门")
Dim bb = Tables("工作日志").Current("姓名")
Dim cc = Tables("工作日志").Current("日期")
Dim dd = Tables("工作日志").Current("工作内容")
m.Title = "工作日志"
m.Content = "厂长:" & "您好!"
m.Content = m.Content & "以下是" & aa & " " & bb & " " & cc & " " & "的工作日志,请查阅!"
m.Content = m.Content & dd
m.SendAsync()