Bookman

O código que tenho é este: Private Sub Enviar_Mail_DOI_Click() Dim ApplicationOutlook As Object Dim OutlookMail As Object Dim cell As Range Application.ScreenUpdating = False Set ApplicationOutlook = CreateObject("Outlook.Application") On Error GoTo limpa Set OutlookMail = ApplicationOutlook.CreateItem(0) On Error Resume Next With OutlookMail .To = "Joaomamede@4x4.pt" .CC = "" .BCC = "" .Subject = "Pedido de viabilidade %tecnologia // %localidade" .HTMLBody = "" .Body = "Bom dia, " & _ & vbNewLine & vbNewLine & _ "Segue pedido de viabilidade " & Pedido_DOI.Tecnologia & _ ", para a morada abaixo." _ & vbNewLine & _ & pedido_doi.Morada_Cliente _ & vbNewLine & _ & pedido_doi.CP7_Cliente & _ " " & pedido_doi.Localidade_Cliente & _ & vbNewLine & _ & pedido_doi.Cidade_Cliente _ & vbNewLine & vbNewLine & _ & vbNewLine & _ & pedido_doi.Coordenadas_Cliente _ & vbNewLine & vbNewLine & vbNewLine & _ & vbNewLine & _ & pedido_doi.Print_GoogleMaps _ .Display End With On Error GoTo 0 Set OutlookMail = Nothing MsgBox ("O pedido de viabilidade %Tecnologia foi enviado com sucesso!") limpa: Set ApplicationOutlook = Nothing Application.ScreenUpdating = True End Sub Podem ajudar a identificar onde está o erro? Obrigado

Boa tarde, Tenho ficheiro onde através de um formulário ele guarda os dados do mesmo numa tabela à parte, no entanto precisava que ao pressionar enviar, o formulário além de guardar os dados nessa tabela (esta parte já está a funcionar), enviasse também por mail todo o conteúdo, ou seja, o texto e imagens. Além disso gostava também que o mail assumisse no assunto e no corpo do mail dados do preenchimento do formulário. Abaixo imagem do formulário e mail que é pretendido enviar. Formulário: Mail: O pretendido é que mediante a Tecnologia escolhida, ele envie o mail para uma caixa de mail, exemplo: Fibra: mail1@mailteste.pt ADSL: mail2@mailteste.pt E que onde representei as variáveis, as mesmas sejam substituídas pelos dados do formulário que se encontram nos campos correspondentes ás mesmas, incluindo também a imagem carregada no formulário, no corpo do mail, tal como está no anexo. Será que me podem ajudar? Obrigado.

Olá Erik, peço desculpa na demora da resposta. Segue Link onde pode descarregar o arquivo. https://files.fm/u/swmw98qg

Alyson acha que pode ajudar-me a concluir? Era mesmo muito importante:(

Podes testar, bastando para isso preencher alguns campos na planilha Serviços. O campo chave de pesquisa é o NIF.

Boa tarde, Após testar, continua a não devolver resultados. O que será que ainda está em falta? 😞 😞

O formulário não dá erro, mas também não pesquisa nada 😞

Eu inicialmente não estava a conseguir fazer nada, então procurei um exemplo, copiei o código e adaptei à minha realidade. Esse código em falta deve ter sido algo que apaguei sem querer 😞 Quanto às planilhas ocultas a ideia é mesmo esse, se reparar, o Modulo 1 serve mesmo para ativar e desativar as planilhas à medida que vão sendo utilizadas. Nesse caso esqueci-me de colocar! Consegue ajudar a finalizar?

Boa tarde, Envio a planilha. A ideia é pesquisarno botão "Pesquisar Venda" e ela procurar os dados na planilha "Serviços". Segue a planilha para que possam verificar: Planilha Obg

Olá Alyson O Debug seleciona o erro em: Sheets("Serviços").Select

Boa tarde, Estou tentanto criar um formulário que pesquisa dados no meu ficheiro em excel, mas não estou conseguindo, dá sempre erro: "Run-time error '1004': Select Method of worksheet class field" E não consigo passar daqui. Código: Private Sub CommandButton1_Click() Pesquisa_Venda.Show False End Sub Private Sub TextBox1_AfterUpdate() Dim intervalo As Range Dim texto As String Dim codigo As Long Dim pequisa Dim mensagem codigo = TextBox1.Text Sheets("Serviços").Select Set intervalo = Range("A10:N100000") On Error GoTo trataErro Parceiro = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False) Nomeclt = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False) NIFclt = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False) Tarifario = Application.WorksheetFunction.VLookup(codigo, intervalo, 7, False) datarec = Application.WorksheetFunction.VLookup(codigo, intervalo, 10, False) datareg = Application.WorksheetFunction.VLookup(codigo, intervalo, 11, False) estado = Application.WorksheetFunction.VLookup(codigo, intervalo, 8, False) TextBox2.Text = Nomeclt TextBox3.Text = Parceiro TextBox4.Text = NIFclt TextBox5.Text = Tarifario TextBox6.Text = datarec TextBox7.Text = datareg TextBox8.Text = estado TextBox1.SetFocus Exit Sub trataErro: texto = "O NIF indicado não consta na base de dados" mensagem = MsgBox(texto, vbOKOnly + vbInformation) End Sub Private Sub UserForm_Click() End Sub

alguém consegue ajudar p.f.?

Boa noite, Tenho ficheiro onde através de um formulário ele guarda os dados do mesmo numa tabela à parte, no entanto precisava que ao pressionar enviar, o formulário além de guardar os dados nessa tabela, enviasse também por mail todo o conteúdo, ou seja, o texto e imagens. Além disso gostava também que o mail assumisse no assunto e no corpo do mail dados do preenchimento do formulário. Abaixo imagem do formulário e mail que é pretendido enviar. Formulário: https://uploaddeimagens.com.br/imagens/sem_titulo-jpg-0b6713c0-2d3f-4921-b79a-220bb6940d2e Mail: https://uploaddeimagens.com.br/imagens/sem_titulo_2-jpg-465a1b46-3071-4c79-b94e-114578b3156b O pretendido é que mediante a Tecnologia escolhida, ele envie o mail para uma caixa de mail, exemplo: Fibra: mail1@mailteste.pt ADSL: mail2@mailteste.pt E que onde representei as variáveis, as mesmas sejam substituídas pelos dados do formulário que se encontram nos campos correspondentes ás mesmas, incluindo também a imagem carregada no formulário, no corpo do mail, tal como está no anexo. Será que me podem ajudar? Obrigado.