I need to place the objEmail.AddAttachment variable correctly.

[Paula1]

vApêndice 1: Vendas
Gostaria de corrigir esta parte do código
objEmail.AddAttachment "C:\General\tmp\&vName1&.pdf"
O nome está saindo "C:\General\tmp\&vName1&.pdf
'vNome = GetVariable("vAnexo1")'
Preciso que o nome seja C:\Geral\tmp\ Vendas2.pdf
 
Qualquer dica, segue uma planilha excel com as variáveis, qvw,
Alguém pode me ajudar.
obrigado.

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").Seleção 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 sessão da erro na próxima vez.....

'ActiveDocument.Save

ActiveDocument.GetApplication.Sleep 5000

'Próximo

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

Finalizar sub