Question

我是新来的，所以首先简单介绍一下。我的名字叫汤姆·比尼杰斯（Tom Beentjes），今年22岁，刚完成我的商业IT学习。我目前正在为一家为荷兰的客户提供各种系统的公司的监控解决方案。

这些系统的一部分只能在出现问题时发送电子邮件，并且我的监视工具可以监视电子邮件收件箱。到目前为止一切都很好。

唯一的问题是我想使电子邮件收件箱自动化。

系统发送两种类型的电子邮件，主题为：错误+客户信息（下面代码中的错误邮件）或已解决错误+客户信息（下面代码中的Afstelmail）。

要自动删除与上一个错误已解决的电子邮件主题相同的所有电子邮件，我在Outlook VBA中创建了一个脚本。可以，但不是长期解决方案。

Option Explicit

Public Sub watcher()

  Dim mynamespace As Outlook.NameSpace
  Dim myitems As Outlook.items
  Dim myinbox As Outlook.Folder
  Dim afstelmail As Outlook.MailItem
  Dim errormail As Outlook.MailItem
  Dim onderwerp As String

  Set mynamespace = Application.GetNamespace("MAPI")
  Set myinbox = mynamespace.Folders("emailadress@example.com")
  Set myinbox = myinbox.Folders("Postvak In")

  Set myitems = myinbox.items

For Each afstelmail In myitems

If InStr(afstelmail.Subject, "Afstel:") > 0 Then
    onderwerp = Right(afstelmail.Subject, Len(afstelmail.Subject) - 8)
    Exit For
End If
Next afstelmail

If onderwerp = "" Then
Exit Sub
End If

For Each errormail In myitems

If errormail.Subject = onderwerp Then
    errormail.Delete
Else
    afstelmail.Delete
    Exit For
End If
Next errormail

Call watcher

End Sub

由于我要实现一个基于云的监视平台，因此要使计算机保持Outlook和当前脚本的运行状态是不切实际的。所以我正在寻找另一种可能性。我认为我可以使用Gmail中的Google Apps脚本来完成这项工作，但是我绝对没有使用这种编程语言的经验。

我发现了这个thread，看起来像一个很好的起点。我希望有人可以帮助我解决我的问题。

如果我忘记提及某件事或做错了什么，请告诉我！

谢谢

汤姆

Google Apps脚本会根据其他电子邮件自动删除Gmail

0 个答案: