Цель: Моя цель - настроить OUTLOOK на фильтрацию входящего сообщения на основе ключевых слов (что можно сделать с помощью правил), но мне нужно запустить сценарий, который автоматически откроет ссылку в электронном письме.
Конфигурация: в нашей внутренней системе есть кнопка с надписью «Требуется внимание». При этом отправляется электронное письмо следующего содержания. Outlook 2013 Хотите открывать на текущей странице (хром) как новую вкладку или в новом окне, пока оно открывается
ССЫЛКИ ИЗМЕНЕНЫ ДЛЯ БЕЗОПАСНОСТИ
"HTTP:" удален в соответствии с требованиями к публикации.
ТЕМА: (всегда содержит одни и те же слова, кроме номера клиента)
Attn - Требуется поддержка для: LOC-12345 / Rep ID: mike / Tech: jacob / Status: новые запросы / Service: Standard Service
ТЕЛО (всегда содержит одни и те же слова, кроме номера клиента в теле и гиперссылке)
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 Установить olApp = Outlook.Application Установить objNS = olApp.GetNamespace ("MAPI") Установить myOlItems = objNS.GetDefaultFolder (olFolderInbox) .Items EndItems End
Частная подпрограмма 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
Спасибо за любой отзыв Джейкоб