David210

ninguém

Boa Tarde a todos bom minha duvida é; tenho um macro que manda e-mails personalizados ela funciona perfeitamente , consigo fazer o form com as variareis tudo correto,porem tenho um planilha nesse mesmo arquivo com varios e-mails de clientes quando eu clico no hiperlink abre o outlook certo. ate ai tudo bem. gostaria de saber como eu faço para clicar nesse hiperlink e ao invés de abrir meu outlook direto ele subir meu form de e-mail e enviar meu e-mail para o destino do hiperlink que eu cliquei ? tem como eu associar a minha variável de e-mail a esse clique do hiperlink de e-mail ? meu codico: Sub PROFESSIONAL() Dim OutApp As Object Dim OutMail As Object Casenumber = (LAPRO.Casenumber.Text) caseseverity = (LAPRO.caseseverity.Text) product = (LAPRO.product.Text) Problem = UCase(LAPRO.Problem.Text) With Application .EnableEvents = False .ScreenUpdating = False End With Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .to = "FLCTSLA@microsoft.com" .CC = "casemail@microsoft.com" .BCC = "" .Subject = "LAPRO \ " & product & " \ " & Problem .Body = "Customer is waiting for a callback ," & vbNewLine & _ vbNewLine & "Case Number: " & Casenumber & vbNewLine & _ "Case severity:" & caseseverity & vbNewLine & _ "Product:" & product & vbNewLine & _ "Problem:" & Problem & vbNewLine & _ vbNewLine & _ "thanks," .Display End With On Error GoTo 0 With Application .EnableEvents = True .ScreenUpdating = True End With Set OutMail = Nothing Set OutApp = Nothing End Sub