Preciso colocar a variavel objEmail.AddAttachment corretamente.

Paula1 — Sat, 04 Nov 2023 14:08:52 GMT

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

topic Preciso colocar a variavel objEmail.AddAttachment corretamente. in App Development

Preciso colocar a variavel objEmail.AddAttachment corretamente.