0

让我解释一下我需要做什么：

问题：

我收到在线订单的电子邮件，这些电子邮件进入 Outlook 中的特定电子邮件收件箱，我想向发件人发送自动回复，让他们知道他们的订单已收到。问题是：发件人的电子邮件不在发件人字段中，而是在电子邮件的正文中 - 发件人字段填充了我们的网络管理员地址（电子邮件订单是通过我们学校网站的在线表格生成的，并从集中帐户。）因此，自动规则只需向网络管理员电子邮件帐户发送电子邮件响应，而不是实际订单。

电子邮件细节：

所有这些电子邮件都有相同的主题行。所有带有此主题行的电子邮件都被过滤到“在线订单 - 接收”文件夹中。所有电子邮件都需要在正文中包含发件人的电子邮件地址；这是一封实际的电子邮件（敏感信息已删除 - 电子邮件地址在末尾）：

==================================================== ================

打印请求：

打印职位名称：会计专业部门：
AccountNo：xxxx-xxxxxxx-xxxxxx-xxxx FileNo：

日期_In: 08-22-2013

Date_Needed: 08-24-2013

Num_Originals：2

Num_Copies: 40

Finished_Copy：正面和背面

纸张_颜色：绿色

Paper_Stock：无

Finished_Size: 8 1/2 x 11

无碳_选择：无

Bindery_Choice：无

墨水颜色：使用黑色墨水

特别说明：

谢谢， xxxxxx xxxxxx SENDERSREALEMAILADDRESS@xxx.edu

电话：分机。XXXX 传真：分机。XXXX

==================================================== =====================

我对 VB 很陌生，但我有能力学习，但入门时运气不佳。我想做的是向订单中嵌入的电子邮件地址生成一封电子邮件，并让电子邮件包含一条简单的消息，让我们的客户知道我们已收到他们的订单。

如果有人可以为此提供任何帮助，我将不胜感激。

4

1 回答 1

0

尝试将电子邮件正文（在空格上）拆分为一个数组，然后检查数组的每个元素是否有 @ 符号和句点。
像这样的东西：

For Each Sec in Strings.Split(Item.Body)
  If Sec.Contains("@") And Sec.Contains(".") Then
    ''At this point, Sec contains the email address. Do something here.

    Exit For
  End If
Next

要获取自定义文件夹中的电子邮件，请尝试以下操作：

Set Items = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Print Center").Items

或在自定义子文件夹中：

Set Items = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Print Center").Folders("Online Oredrs - Incoming").Items
于 2013-08-22T19:35:01.247 回答