Outlook VBA, вырезать адрес электронной почты из темы и поместить его в качестве получателя, а затем переслать сообщение

Question

Я пытаюсь найти почтовый перенаправитель Outlook с кодом VBA, который будет захватывать (и удалять) адрес электронной почты из поля «Тема».Затем добавьте адрес электронной почты в качестве получателя и перешлите сообщение с вложениями.

Я попытаюсь продемонстрировать и привести пример:

---

Прибытие электронной почты:

От: alias@domain.com

Тема: xyz@domain.com Расчет LHV ... 0001

(Обратите внимание, что«... 0001» является переменной, поэтому все после «LHV ...» должно оставаться неизменным)

---

Переадресованный адрес электронной почты:

Кому: xyz@domain.com

Тема: Расчет LHV ... 0001

---

Ничто другое не должно быть изменено в заголовке илиТело сообщения.(конечный получатель письма не может видеть, что оно было переадресовано из другой почты).

Я очень плохо знаком с кодированием VBA и надеюсь, что кто-то может мне помочь.

Answer 1

Существует множество примеров пересылки электронной почты на t'interweb;например, VBA для пересылки электронной почты

Существует также множество примеров манипулирования строками.Если формат темы соответствует, тогда поиск первого пробела в строке даст вам длину адреса электронной почты.

oSubj = ActiveInspector.CurrentItem.Subject
'Take the forward-an-email example and adjust to your needs
objForward.Recipients.Add = Left(oSubj, InStr(1, oSubj, " "))

будет работать только с открытым сообщением, плюс вам понадобятся дополнительные проверки, если тема начинается с RE: или FWD: и т. Д.