Alteração do nome dos PDFs dos documentos no envio de emails pelo primavera

Olá Caríssimos(as) colegas, deparei-me com um problema no PRIMAVERA que gostava de saber se alguém tem uma solução para ele. Eu sempre soube que o software PRIMAVERA enviava os documentos PDF directamente pelo próprio primavera por email, no entanto eles vão como Document1.pdf. A questão aqui é alguém tem forma de colocar no nome do documento ‘FA serie/numdoc’? É que os emails saem com o assunto com o formato pretendido mas no entanto necessitava que tivesse também o documento essa designação em vez do tal Document1.pdf.

Existe opção de o fazer directamente (alteração de nome) para que envie pelo utilitário do primavera ou terei de fazer por motores para enviar o email também?

Será ainda para a V9.

os melhores cumprimentos.

Faça login para poder traduzir

Mapas e Relatórios

Marcado como spam

Criado há 6 anos e 2 meses jorgesilva

jorgesilva

Iniciante

Comentários

Isso é com o motor de extensibildiade ou é na opção de envio que existe nos editores?

6 anos e 2 meses

sergiosereno

Bom dia Sérgio, é mesmo nos editores, por defeito o primavera quando se faz "enviar" email no editor de vendas ele coloca o assunto do email com o formato Documento Serie/numdoc, no entanto o ficheiro PDF em anexo vai com Document1.pdf

6 anos e 2 meses

jorgesilva

Não é possivel mudar o nome do documento no cenário descrito

6 anos e 2 meses

sergiosereno

Obrigado Sérgio

6 anos e 2 meses

jorgesilva

Rating mais alto Mais recente

2 respostas

Resposta privada

Para quem não quer usar outlook segue aqui uma opção para enviar diretamente

Private Sub EditorVendas_DepoisDeImprimir(Filial As String, Serie As String, Tipo As String, NumDoc As Long)
Dim strNomeMapa As String

strNomeMapa = "C:PDF" & Tipo & "_" & Serie & "_" & NumDoc & ".pdf"

BSO.Comercial.Vendas.ImprimeDocumento Tipo, Serie, NumDoc, Filial, , , , DestinoPDF:=strNomeMapa

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "" 'assunto da mensagem
objMessage.Sender = "" 'email de envio
objMessage.From = "" 'email que aparece como de envio
objMessage.To = "" 'email de destino
objMessage.CC = "" ' email de CC
objMessage.Bcc = "" ' email BCC

'objMessage.CreateMHTMLBody "File://" & strMsgFile ' se tiverem um ficheiro HTML com o texto do email inserir caminho aqui

objMessage.HTMLBody = "" ' texto do corpo do email caso não usem ficheiro

objMessage.AddAttachment strNomeMapa 'Caminho do ficheiro que querem anexar

Dim EmailServer As String
Dim strEmailUser As String
Dim strSendPassword As String

EmailServer = "smtp.google.pt" 'servidor de envio
strEmailUser = "" ' utilizador do email
strSendPassword = "" ' password do email
'------------------------------------------------------------
' Accesso e configuração servidor SMTP
'------------------------------------------------------------
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = EmailServer

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '0 se não for necessario autenticação 1 de for necessario autenticação
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strEmailUser
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strSendPassword

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' porta do smtp
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False ' em caso de usar ssl colocar a true
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' tempo de timeout
objMessage.Configuration.Fields.Update

'------------------------------------------------------------
' Envio do email
'------------------------------------------------------------
objMessage.Send ' .send envia

Kill strNomeMapa ' apaga o ficheiro da pasta onde o criou

End Sub

Faça login para poder traduzir

Marcado como spam

Criado há 6 anos e 2 meses jorgesilva

jorgesilva

Iniciante

Resposta privada

Entretanto para quem tiver o mesmo problema que precise de ter um email automatizado com envio de fatura segue aqui a alternativa

ir a referencias e adicionar Microsoft Outlook 16.0 Object Library

Private Sub EditorVendas_DepoisDeImprimir(Filial As String, Serie As String, Tipo As String, NumDoc As Long)
Dim strNomeMapa As String

strNomeMapa = "C:PDF" & Tipo & " " & Serie & "/" & NumDoc & ".pdf" ' tem de se criar a pasta antes no disco C caso contrario ele não cria

BSO.Comercial.Vendas.ImprimeDocumento Tipo, Serie, NumDoc, Filial, , , , DestinoPDF:=strNomeMapa

Dim ol As New Outlook.Application

Dim item As Outlook.MailItem

Set item = ol.CreateItem(olMailItem)
With item
.FlagRequest = "Sample"
.Importance = olImportanceHigh
.AlternateRecipientAllowed = True
.Subject = "teste" ' assunto do email
.Recipients.Add "Email de envio" ' email para o qual se quer enviar
.Attachments.Add strNomeMapa 'adiciona o documento aos anexos
.SEND ' usar .SEND para enviar ou .DISPLAY para visualizar
End With

End Sub

Faça login para poder traduzir

Marcado como spam

Criado há 6 anos e 2 meses jorgesilva

jorgesilva

Iniciante

« Back to Previous Page