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 回答