R de Freitas

Prezados bom dia, Eu consegui criar uma macro para enviar e-mail ao termino da execução, porém houve uma nova demanda e irei precisar Anexar um Arquivo neste E-mail Conforme Código a Seguir: Sub EnviarEmail() Dim X As Integer Dim Z, xData1, G, Arq As String Dim Data As Date G = ActiveWorkbook.Name Arq = "c:\Temp" & G ata = Date xData = Format(Data, "DD") & "-" & Format(Data, "MM") ActiveSheet.Range("A1:G180").Select ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Introduction = "" .Item.To = "[email protected]" .Item.CC = "[email protected]" .Item.Subject = "Captação - " & xData .Item.Display End With End Sub só que o Arquivo que eu preciso "Anexar" é o Arquivo aberto, que ao termino da Execução irá em anexo ao E-mail, Devo fazer isso adicionando um " .Attachments.Add (Arq) "? já tentei de diversas formas, e não obtive sucesso.

@osvaldomp Bom dia !! Muito Obrigado Pela Ajuda !!

Galera bom dia, tenho uma duvida sobre a questão de Validações, eu consigo usar 3 condições a onde uma delas é verdadeira, são 3 certificados que são validos, é possivel usar desta forma? qual a sintaxe correta? ou a unica solução da situação seria usar o ElseIf? e criar mais condições no código? V8 = Range("J1").Value Certificado1 = Range("A1").Value Certificado2 = Range("A2").Value Certificado3 = Range("A3").Value If V8 = Certificado1 Or Certificados Or Certificado3 Then Range("D" & Linha).Value = "OPERAÇÃO EFETUADA" End If

@Basole Muito Obrigado, vou testar logo mais, e te retorno. @CasaDoHardware não é estão simples transcrever o Formulario para o Excel, são 55 Paginas Preenchiveis, muitas informaçoes duplicadas, mas mesmo assim é pagina pra caramba, e este atualiza constantemente, havendo mudança terei de transcrever tudo de novo.

@Patropi Obrigado, já corrigi a Postagem.

Basole bom dia, Referente a Aplicação, consigo emular o "Formulario" que preciso diretamente? e identificar os campos? consigo abrir o formulario via vba, não consigo manusear o formulario apenas, é preciso JSO? conforme Cod a seguir: Function ListPDFFormFields(FilePath As String) As Variant Set ListPDFFormFields = CreateObject("Scripting.Dictionary") Dim AcroExchAVDoc As Object, objAcroPDDoc As Object, objJSO As Object Dim AcroExchApp As Object Dim AFORMAUT As Object 'AFORMAUTLib.AFormApp Dim FormField As Variant 'AFORMAUTLib.Field Dim FormFields As Variant 'AFORMAUTLib.Fields Dim bOK As Boolean Dim sFields As String Dim sTypes As String Dim sFieldName As String On Error GoTo ErrorHandler Set AcroExchApp = CreateObject("AcroExch.App") Set AcroExchAVDoc = CreateObject("AcroExch.AVDoc") bOK = AcroExchAVDoc.Open(FilePath, "") AcroExchAVDoc.BringToFront AcroExchApp.Hide If (bOK) Then Set objAcroPDDoc = AcroExchAVDoc.GetPDDoc Set objJSO = objAcroPDDoc.GetJSObject Set AFORMAUT = CreateObject("AFormAut.App") Set FormFields = AFORMAUT.Fields For Each FormField In FormFields If FormField.IsTerminal Then ListPDFFormFields.Add FormField.Name, objJSO.GetField(FormField.Name).UserName & "|" & FormField.Type Next FormField AcroExchAVDoc.Close True End If Set AcroExchAVDoc = Nothing Set AcroExchApp = Nothing Set AFORMAUT = Nothing Exit Function ErrorHandler: MsgBox "FieldList Error: " + Str(Err.Number) + " " + Err.Description + " " + Err.Source End Function ________________________________________________________________________________________ Ou até mesmo algo semelhante á este aqui: Private Sub Command() Dim AcroApp As Acrobat.CAcroApp Dim theForm As Acrobat.CAcroPDDoc Dim jso As Object Dim text1, text2 As String Set AcroApp = CreateObject("AcroExch.App") '<- Da Erro de Automação, e Não Especificado. Set theForm = CreateObject("AcroExch.PDDoc") theForm.Open ("C:\temp\Formularios\1999.pdf") Set jso = theForm.GetJSObject text1 = jso.getField("Text1").Value text2 = jso.getField("Text2").Value MsgBox "Values read from PDF: " & text1 & " " & text2 ' set a text field Dim field2 As Object Set field2 = jso.getField("Text2") field2.Value = 13 ' assign the number 13 to the fields value ' get the information from the form fields Text1 and Text2 text1 = jso.getField("Text1").Value text2 = jso.getField("Text2").Value MsgBox "Values read from PDF: " & text1 & " " & text2 theForm.Close AcroApp.Exit Set AcroApp = Nothing Set theForm = Nothing MsgBox "Done" End Sub ou preciso ainda estanciar algum obj? o arquivo enviado dá erro.

Boa tarde @Basole, agradeço o retorno, eu tenho o Adobe Pro, gostaria de fazer o Insert no formulário PDF, com os dados que estão no Excel, que já foram extraídos de um BD, o Excel é a "Ponte" entre o BD e o Formulário, queria entender só como faço a Istância do Formulário, e a referencia a seus campos para Preenchimento, caso você saiba, por favor me auxilie. Existem Campos Determinados, cada um tem seu Nome especifico como se fossem "Variáveis" no PDF, o preenchimento com Dados de Clientes que são extraídos do BD. queria fazer uma forma de preencher automaticamente, já que a conexão do PDF com o BD vem do Excel. Desde já Agradeço a Atenção !!

Prezados boa tarde, Necessito de Ajuda com uma automatização, tenho 1 Formulário em PDF, este por sua vez tem Campos Específicos que são "Preenchíveis" eu Consegui fazer com que o VBA Abra este Arquivo PDF, com o seguinte Código: ____________________________________________________________________________ Sub PreencherPDF() Dim AdobeApp As String Dim AdobeFile As String AdobeApp = "C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\Acrobat.exe" AdobeFile = "\Raylan\Formularios\FORMULARIO.pdf" StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1) End Sub ____________________________________________________________________________ porém preciso fazer com que as informações contidas no Excel, sejam transpostas no PDF, isso é possível? já tentei transformar esse Formulário PDF em outros formatos, já fiz as conversões possíveis, e com o auto rigor de proteção impregado nele, impede a edição. executar esse preenchimento automático? Supondo que as informações estão nas Colunas (A1, B1 e C1) preciso colocar em determinado campo no PDF. Agradeço desde Já.