【发布时间】：2018-08-29 04:54:58
【问题描述】：
当正在撰写电子邮件并在主题行中写入信息时。
在主题行外点击后，如何将部分主题行转移到邮件正文。
例如，一封新的电子邮件如下：
电子邮件标题
收件人：Joe Bloggs
抄送：
密送：
主题：NZD10000 REF:0000001 2018/08/18身体
参考号：0000001
日期：2018/08/18谢谢。
Public MItem As MailItem
Public MySubject As String
Sub NewSecureMail()
Set MItem = Application.CreateItem(olMailItem)
MySubject = MItem.Subject
MsgBox (MySubject)
End Sub
msgbox 产生空白结果。如果我可以将主题行中包含的文本存储到一个变量中，我就可以使用该变量。
【问题讨论】：
-
听起来更像是Subject信息来自其他地方，需要同时放入SubjectLine和Body中。 （或者打字员真的在键入那一长串字母/数字字符吗？）原始主题信息的来源是哪里？我们可以消除这两种类型吗？
-
向我们展示您的尝试？我们需要先看看你有一些你写的代码，大多数新人认为这是一个代码为我服务的网站
-
我已经附上了我到目前为止开始的内容。 msgbox 产生空白结果。本质上，如果我可以将主题行中包含的文本存储到一个变量中，那么我就可以使用该变量。
-
听起来像是 LostFocus/AfterUpdate 的事情。您是否设置了断点并查看它认为 MItem.Subject 的值是什么？我认为您希望在键入主题行的文本框的 LostFocus 或 AfterUpdate 事件中放置一些代码。然后，您可以获取该值，解析出您需要的内容并将其添加到正文中。