-
Total de itens
13 -
Registro em
-
Última visita
Sobre Bookman

- Data de Nascimento Agosto 3
Perfil
-
Gender
Male
Últimos Visitantes
665 visualizações
Bookman's Achievements
0
Reputação
-
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.
-
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
-
Bookman alterou sua foto pessoal
-
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
-
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.