É possível lançar um hiperlink dentro do corpo do email de um remetente específico?

2

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

    
por user2345320 07.05.2013 / 03:59

0 respostas

Tags