MAPI

rachelchen407 2010-07-30 10:30:24

我想把单据里面Txh_SNO，txhReg_no，dtpDate，txtBringName等字段内容传到邮件里面
我写的代码：问题点：传到邮件里只有日期的值，请高手指教，错误哪里？？？？
Private Sub cmdSend_Click()

MAPISession1.SignOn

With MAPIMessages1

.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text
.MsgNoteText = Txh_SNO.Text
.MsgNoteText = txhReg_no.Text
.MsgNoteText = dtpDate.value
.SessionID = MAPISession1.SessionID
.Send

End With
MAPISession1.SignOff

MsgBox "邮件发送完毕！", , "发送邮件"
End Sub

...全文

64 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

rachelchen407 2010-07-30

打赏
举报

[Quote=引用 1 楼 patrickkong 的回复:]
.MsgNoteText = Txh_SNO.Text & vbnewline & _
txhReg_no.Text & vbnewline & _
dtpDate.value
[/Quote]

太感谢了！
顺便再请教下，如果我想顺便把Txh_SNO.Text 这些对应的lable name带过去，怎么做？

帝企鹅已被占用 2010-07-30

打赏
举报

.MsgNoteText = Txh_SNO.Text & vbnewline & _
txhReg_no.Text & vbnewline & _
dtpDate.value

帝企鹅已被占用 2010-07-30

打赏
举报

像
“日期：　” &　dtpDate & _
就是个string么

rachelchen407 2010-07-30

打赏
举报

[Quote=引用 3 楼 patrickkong 的回复:]
哪里的label name？
&　vbnewline & _
lable.name?
你要是加内容，就赋值给.MsgNoteText
[/Quote]

谢谢

rachelchen407 2010-07-30

打赏
举报

[Quote=引用 3 楼 patrickkong 的回复:]
哪里的label name？
&　vbnewline & _
lable.name?
你要是加内容，就赋值给.MsgNoteText
[/Quote]
比如 Txh_SNO.Text 对应的table name名 S/N
txhReg_no N/O
dtpDate 日期