Sql 读取传递失败电子邮件ID

我有一个用于读取电子邮件正文的宏，它是由MS Outlook规则触发的

除“Microsoft Outlook”发送的电子邮件外，所有电子邮件都会被读取，这是由MS exchange server发送的传递失败电子邮件

我需要阅读此项以获取导致反弹的电子邮件ID

Sub VBS_GetEmailFromBodyText(anItem AsOutlook.MailItem)

'Email parameters
fromID = anItem.SenderName
toList = anItem.To
emailsubject = anItem.Subject
emailBody = Left(anItem.Body, 10)
receiveTime = anItem.ReceivedTime

'create query String
sqlQuery = "INSERT INTO [myDB].[dbo].[VBStestTable](fromID,toList,emailsubject,emailBody,receiveTime) Values('"& fromID & "','"& toList & "','"& emailsubject & "','"& emailBody & "','"& receiveTime & "')"


'SQL connection code
'------------------------

ConstadOpenStatic = 3

ConstadLockOptimistic = 3

objConnection = CreateObject("ADODB.Connection")

objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open( _

"Provider = SQLOLEDB; "& _

"Data Source=MyServer;"& _

"Trusted_Connection=Yes;"& _

"InitialCatalog=MyDB;"& _

"User ID=myUser;Password=myPassword;")

'-------------------------

'ended SQL Connection code

　

'RUN SQL Query --Insert records into DB

objRecordSet.Open(sqlQuery, _

objConnection, adOpenStatic, adLockOptimistic)

' Close the DB Connection

objConnection.Close()   　

EndSub

---

您现在使用什么代码来读取和解析消息体

Outlook对象模型提供了三种处理项目主体的主要方法：

-表示Outlook项目的明文正文的字符串

-表示指定项的HTML正文的字符串

-正在显示的邮件的Microsoft Word文档对象模型。Inspector类的WordEditor属性从Word对象模型返回文档类的实例，您可以使用该实例设置消息体

您可以在中阅读更多关于所有这些方法的信息。选择哪种方式阅读邮件正文取决于您