Можно ли запустить гиперссылку в теле письма от определенного отправителя?
Цель: Моя цель состоит в том, чтобы OUTLOOK фильтровал входящее сообщение по ключевым словам (что можно сделать с помощью правил), но мне нужно запустить скрипт, который автоматически откроет ссылку в письме.
Конфигурация: в нашей серверной системе есть кнопка с надписью "Need Attention", которая отправляет электронное письмо следующим образом. Outlook 2013 Хотите открыть на текущей странице (chrome) новую вкладку или новое окно, пока оно открывается
ССЫЛКИ ИЗМЕНЕНЫ ДЛЯ БЕЗОПАСНОСТИ
" HTTP: " удален для требований публикации
ПРЕДМЕТ: (всегда содержит одни и те же слова, кроме номера клиента)
Attn - нужна поддержка: LOC-12345 / ID представителя: mike / Tech: jacob / Статус: новые запросы / Сервис: Стандартный сервис
BODY (всегда содержит одни и те же слова, за исключением номера клиента в теле и гиперссылке)
Attn - нужна поддержка: LOC-12345(номер клиента)
Чтобы просмотреть аккаунт, нажмите на ссылку ниже: //support.bo.ca/login.aspx?url=view_rfq.aspx?rfq_ID=12345
Резюме: Может показаться, что я просто ленивый и не хочу нажимать на ссылку. Но ситуация такова, что у нас более 20 действий с 20 различными темами электронной почты, у меня есть код для установки напоминаний и перемещения в определенные папки, но это было бы здорово, потому что как только представитель учетной записи нажимает кнопку "Нужно внимание", он отправляет письмо в назначенную группу поддержки и всплывающее окно на их экране. Мы уже установили это в нашей телефонной системе, распознав идентификатор вызывающего абонента и сопоставив нашу базу данных с этим номером, если будет достигнут хит, он автоматически откроет страницу клиентов.
Это код, который я нашел, но я не понимаю, как заставить его работать, и я подумал о том, чтобы иметь, возможно, код, который автоматически генерирует частичную гиперссылку, извлекает идентификатор клиента, вводит его в частичную гиперссылку и открывает страница? Например, используя запись SplitWord, чтобы заменить определенное количество символов в начале частичной ссылкой и выполнить ее?
(частичная ссылка) //support.bo.ca/login.aspx?url=view_rfq.aspx? rfq_ID= (идентификатор клиента) 12345 (полная ссылка) //support.bo.ca/login.aspx?url=view_rfq.aspx? rfq_ID = 12345
Private WithEvents myOlItems As Outlook.Items
Private Sub Application_Startup () Dim olApp As Outlook.Application Dim objNS As Outlook.NameSpace Set olApp = Outlook.Application Set objNS = olApp.GetNamespace ("MAPI") Установите myOlItems = objNS.GetDefaultFolder(olFolderInbox).
Private Sub myOlItems_ItemAdd(элемент ByVal как объект)
При ошибке Перейти к ErrorHandler
Dim Msg As Outlook.MailItem
If TypeName(item) = "MailItem" Then
Set Msg = item
LaunchURL (item)
For Each SplitLine In bodyStringSplitLine
If InStr(SplitLine, "http://") > 0 Then
If InStr(SplitLine, "SomeSite") > 0 Then
bodyStringSplitWord = Split(SplitLine, " ")
For Each SplitWord In bodyStringSplitWord
If Left(SplitWord, 7) = "http://" Then
Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE" & " " & SplitWord)
End If
Next
End If
End If
Next
End If
ProgramExit:
Exit Sub
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ProgramExit
End Sub
Спасибо за любые отзывы Джейкоб