0

特定のメールから受信したメッセージを別のメール アドレスにリダイレクトしたいと考えています。メッセージのリダイレクト先の電子メール アドレスが同じになることはありません。

これを実現するためにスクリプトを使用することを考えました。ここでは、電子メールのリダイレクト先の電子メール アドレスを電子メールの件名に指定します。元のメッセージの件名の形式は次のとおりです。

件名/redirectAddress@email.com

次のスクリプトを作成しましたが、ルールがスクリプトを実行しても何も起こりません。私が犯した間違いと、このスクリプトが何もしないように見える理由を教えてください。

Sub CodeSubjectForward(Item As Outlook.MailItem)
  Dim txt As String
  Dim EAddress As String
  Dim Temp As String
  Dim pos

  txt = Item.Subject
  pos = InStr(txt, "/")
  Temp = Left(txt, pos - 1)
  EAddress = Right(txt, Len(txt) - pos - 1)

  Dim objMsg As MailItem
  Set objMsg = Application.CreateItem(olMailItem)

  objMsg.body = Item.body
  objMsg.Subject = Temp
  objMsg.Recipients.Add EAddress

  objMsg.Display
End Sub
4

1 に答える 1

1

ルール条件に適合するメールアイテムを開き、これをステップ実行します。

Option Explicit

Private Sub CodeSubjectForward_Test()
    Dim currItem As MailItem
    Set currItem = ActiveInspector.currentItem
    CodeSubjectForward currItem
End Sub

CodeSubjectForward に到達した場合は、ルール条件が正しくありません。

于 2014-11-23T14:51:32.997 に答える