Preciso colocar a variavel objEmail.AddAttachment corretamente.

[Paula1]

vAnexo1: Vendas

Gostaria de acertar esta parte do código

objEmail.AddAttachment "C:\Geral\tmp\&vNome1&.pdf"

O nome está saindo "C:\Geral\tmp\&vNome1&.pdf

'vNome = GetVariable("vAnexo1")'

preciso que o nome fique C:\Geral\tmp\ Vendas2.pdf

Alguma dica, segue planilha excel com as variáveis, qvw, 

Alguém pode me ajudar.

obrigada.

subPrintReport

Definir WSHShell = CreateObject("WScript.Shell")

fln = "C:\Geral\tmp\meureport.pdf"

RegKey = "HKEY_CURRENT_USER\Software\QlikViewPDF\"

WSHShell.RegWrite RegKey & "BypassSaveAs", 1

WSHShell.RegWrite RegKey & "OutputFile", fln

ActiveDocument.GetApplication.Sleep 2000

WSHShell.RegWrite RegKey & "BypassSaveAs", 0

WSHShell.RegWrite RegKey & "OutputFile", ""

Definir WSHShell = nada

final sub

função GetVariable(varNome)

        Escurecer v

        definir v = ActiveDocument.Variables(varName)

        GetVariable = v.GetContent.String

função final

SubexecutorMacro()

       ActiveDocument.Recarregar        

        Envio()

        ActiveDocument.Save

       'ActiveDocument.GetApplication.Quit

       ' ActiveDocument.GetApplication.Close        

Finalizar sub

Subenvio()

'Set TabelaEmails = ActiveDocument.Fields("Gerente").GetPossibleValues(1000)

'For contEmail = 0 to TabelaEmails.Count - 1 ' Aqui faz um Laco com o campo "Gerente"......

'ActiveDocument.Fields("Gerente").Selecione TabelaEmails.Item(contEmail).Text

        '================================================ =========================================

        'Aqui apaga se tiver os arquivos.....

        Definir arquivosys = CreateObject("Scripting.FileSystemObject")

Se filesys.FileExists("C:\Geral\tmp\&vName1&.pdf") então

filesys.DeleteFile "C:\Geral\tmp\&vNome1&.pdf"

Fim se

        '================================================ =========================================

        ' Aqui roda o relatorio ID RP01

ActiveDocument.GetApplication.Sleep 2000

Definir filesys = Nada

        ActiveDocument.PrintDocReport "RP01", "RP01"   

Relatório de impressão()

ActiveDocument.GetApplication.Sleep 5000

'Aqui se existe o PDF, então renomeia ele.......

        Definir arquivosys = CreateObject("Scripting.FileSystemObject")

Se filesys.FileExists("C:\Geral\tmp\QlikView Printing.pdf") então

   filesys.MoveFile "C:\Geral\tmp\QlikView Printing.pdf","C:\Geral\tmp\&vName1&.pdf"

Fim se

Definir filesys = Nada

ActiveDocument.GetApplication.Sleep 5000

' ' Início das configurações do EMAIL

' Início das configurações do EMAIL

  ServidorSMTP = "mail.x.com.br"

UsuárioSMTP = "x"

SMTPpPWD = "x***"

SMTPPorta = "465"

Definir objEmail = CreateObject("CDO.Message")

Definir objConf = objEmail.Configuration

Definir objFlds = objConf.Fields

Com objFlds

'---------------------------------------------------------------- --------------------

.Item(" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2

.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = SMTPServer 

se len(ServidorSMTP) > 0 então

.Item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 1 

.Item(" http://schemas.microsoft.com/cdo/configuration/sendusername ") = SMTPUser

.Item(" http://schemas.microsoft.com/cdo/configuration/sendpassword ") = SMTPpPWD

outro

.Item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 0 

fim se

.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = SMTPPorta

.Item(" http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = Verdadeiro

.Item(" http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout ") = 60

.Atualizar

'---------------------------------------------------------------- --------------------

Destinatário = GetVariable("vDestinatário")

Número = GetVariable("vNúmero")

Espaço = GetVariable("vEspaço")

    Título = GetVariable("vTítulo")

     Assunto = GetVariable("vAssunto")

     FilePath = "C:\Geral\tmp\"

     NomeArquivo = vNome 

     vNome = GetVariable("vAnexo1")

Terminar com

objEmail.To = Destinatário

'objEmail.CC = "c"

objEmail.Bcc = "x"

objEmail.From = "x"

objEmail.Subject = Assunto & Anexo1

objEmail.HTMLBody = Número & Espaço & Título  

        '================================================ ===========

        '================================================ =========================================

        'Aqui colocamos os anexos.....

objEmail.AddAttachment "C:\Geral\tmp\&vNome1&.pdf"

'

' '=============================================== ===========================================

objEmail.Enviar

        '================================================ =========================================

        'Aqui apagamos os arquivos pois senao da erro na próxima vez.....

'ActiveDocument.Save

ActiveDocument.GetApplication.Sleep 5000

'Próximo

'ActiveDocument.Fields("Gerente").Clear ' Limpar Filtro por Email

Finalizar sub