获取电子邮件正文中的特定行 vba Outlook

Question

Every time the mail is received, I want to print out a specific word in a body of email:

---------------------------------Body of email-------------------------------------

Sender Name: John

Sender's Address: john@sample-mail.com

Subject: Mail Subject from John <----- the line that I want to get

--------------------------------------End------------------------------------------

My Code:

Private WithEvents olItems As Outlook.Items


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub

Private Sub Application_Startup()

  Dim olApp As Outlook.Application
  Dim olNS As Outlook.NameSpace

  Set olApp = Outlook.Application
  Set olNS = olApp.GetNamespace("MAPI")
  Set olItems = olNS.GetDefaultFolder(olFolderInbox).Folders("Watchlisted").Items

End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
  Dim BodySubjLine As String, BodySubj As Variant
  
  Dim olMail As Outlook.MailItem
  Dim olAtt As Outlook.Attachment
  
  Set olMail = Item
  
  BodySubj = Split(olMail.Body, vbNewLine)
  BodySubjLine = Trim(BodySubj(2))
  
  Debug.Print BodySubjLine 
  
  Set olMail = Nothing

End Sub

Expected output:

Subject: Mail Subject from John

The output I get gives nothing at all

Answer 1

You could use breakpoints to debug the code.

Instead of

BodySubj = Split(olMail.Body, vbNewLine)

Use

BodySubj = Split(olMail.Body, Chr(10) & Chr(13))

Answer 2

Instead of relying on message body lines you can use regular expressions to extract the exact substrings, read more about that:

• RegEx in Outlook VBA to get text from Email Body
• Use RegEx to extract text from an Outlook email message