Objetivo: Meu objetivo é fazer com que o OUTLOOK filtre uma mensagem recebida com base em palavras-chave (o que pode ser feito com regras), mas eu preciso executar um script que abrirá automaticamente o link dentro do email.
Configuração: Nosso sistema de back-end tem um botão que diz "Atenção Necessária" envia um e-mail como segue Outlook 2013 Deseja abrir na página atual (chrome) como uma nova guia ou em nova janela, desde que seja aberta
LINKS TIVERAM MUDADO PARA SEGURANÇA
"HTTP:" removido por requisitos de postagem
ASSUNTO: (sempre contendo as mesmas palavras, exceto o número do cliente)
Attn - Precisa de suporte para: LOC-12345 / ID do representante: mike / Tech: jacob / Status: novas solicitações / serviço: serviço padrão
BODY (sempre contendo as mesmas palavras, exceto o número do cliente no corpo e no hiperlink)
Attn - Need Support for: LOC-12345 (número do cliente)
Para ver a conta, clique no link abaixo: //support.bo.ca/login.aspx?url=view_rfq.aspx?rfq_ID=12345
Resumo: pode parecer que sou apenas preguiçoso e não quero clicar em um link. Mas a situação é que temos mais de 20 ações com 20 assuntos de email diferentes, eu tenho código para definir lembretes e mudar para pastas específicas, mas isso seria ótimo, porque assim que um representante de conta clica no botão "Precisar de atenção" ele irá enviar um e-mail para o grupo de suporte atribuído e pop-up na tela. Nós já temos isso em prática com o nosso sistema de telefonia, reconhecendo o identificador de chamadas e correspondendo ao nosso banco de dados para esse número, se houver um hit, ele abrirá automaticamente a página de clientes.
Este é o código que eu encontrei, mas eu não entendo como fazê-lo funcionar e também o pensamento de ter um código que irá gerar automaticamente um hyperlink parcial, puxar o ID do cliente e inseri-lo no hyperlink parcial e abra a página? Por exemplo, usando a entrada do SplitWord para substituir uma certa quantidade de caracteres do começo pelo link parcial e executá-lo?
(link parcial) //support.bo.ca/login.aspx?url=view_rfq.aspx? rfq_ID = (ID do cliente) 12345 (link completo) //support.bo.ca/login.aspx?url=view_rfq.aspx? rfq_ID = 12345
Private WithEvents myOlItems As Outlook.Items
Private Sub Application_Startup () Dim olApp como Outlook.Application Dim objNS As Outlook.NameSpace Definir olApp = Outlook.Application Definir objNS = olApp.GetNamespace ("MAPI") Defina myOlItems = objNS.GetDefaultFolder (olFolderInbox) .Items End Sub
Private Sub myOlItems_ItemAdd (item ByVal como objeto)
On Error GoTo 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
Obrigado por qualquer feedback Jacob
Tags vbscript