![Outlook 规则,回复电子邮件正文而不是发件人](https://linux22.com/image/1449057/Outlook%20%E8%A7%84%E5%88%99%EF%BC%8C%E5%9B%9E%E5%A4%8D%E7%94%B5%E5%AD%90%E9%82%AE%E4%BB%B6%E6%AD%A3%E6%96%87%E8%80%8C%E4%B8%8D%E6%98%AF%E5%8F%91%E4%BB%B6%E4%BA%BA.png)
我想知道是否可以在 Outlook 中设置一条规则,回复正文中的电子邮件而不是回复实际的发件人。
我们通过网站接收想要注册我们数据库的人的电子邮件,但所有电子邮件都来自同一个电子邮件地址 - 自动回复(负责网站的公司)和请求注册的人的详细信息,包括他们的电子邮件都在正文中。
我想知道是否可以选择将回复发送到哪个电子邮件?
我正在使用 Outlook 2010
谢谢你的帮助,莎拉
答案1
您的电子邮件内容清晰,但缺乏细节,例如在哪里电子邮件是。是的,在正文中,但这并没有真正帮助,因此我创建了一个演示模型,应该很容易理解:
假设我收到的电子邮件格式如下:
尊敬的先生,
我们收到了以下详细信息
电子邮件: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 = "[email protected]"
'.BCC = "[email protected]"
'.Subject = "The subject"
'.Categories = "Test"
'.VotingOptions = "Yes;No;Maybe;"
'.BodyFormat = olFormatPlain
'.Importance = olImportanceHigh
'.Sensitivity = olConfidential
.Display
End With
Set objMsg = Nothing
End Sub