อีเมลของคุณเป็นที่ชัดเจน แต่ขาดรายละเอียดเช่นที่อีเมล ใช่ในร่างกาย แต่นั่นก็ไม่ได้ช่วยได้จริงเช่นนี้ฉันได้สร้างตัวอย่างจำลองซึ่งน่าจะง่ายพอที่จะทำตาม:
สมมติว่าอีเมลที่ฉันได้รับอยู่ในรูปแบบต่อไปนี้:
ท่านที่รัก
เราได้รับรายละเอียดดังต่อไปนี้
อีเมล: myEmail @ domain โทรศัพท์: 12345
เราจะติดต่อกลับไป
ลงชื่อแล้ว
รหัส VBa ต่อไปนี้จะค้นหาที่อยู่อีเมลและเปิดอีเมลใหม่ด้วยที่อยู่นี้ในฟิลด์ถึง
Sub MailItemContent2()
Dim olItem As Outlook.MailItem
Dim sText As String
Dim sEmail As String
Dim emailWords() As String
Set olItem = ActiveExplorer.Selection.Item(1)
sText = Replace(olItem.Body, vbCrLf, " ")
emailWords = Split(sText, " ")
Dim i As Integer
Dim emailIndex As Integer
emailIndex = -99
isNext = False
For i = 0 To UBound(emailWords)
If (emailIndex = i) Then
sEmail = Split(emailWords(i), Chr(34))(2)
Exit For
End If
If emailWords(i) = "Email:" Then
emailIndex = i + 2
End If
Next i
Set objMsg = Application.CreateItem(olMailItem)
With objMsg
.To = sEmail
'.CC = "name@domain.com"
'.BCC = "name@domain.com"
'.Subject = "The subject"
'.Categories = "Test"
'.VotingOptions = "Yes;No;Maybe;"
'.BodyFormat = olFormatPlain
'.Importance = olImportanceHigh
'.Sensitivity = olConfidential
.Display
End With
Set objMsg = Nothing
End Sub