-
Posts
148 -
Cadastrado em
-
Última visita
Reputação
12-
Excel Enviando e-mail via vba
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
Tardes... Seguindo a linha da consulta em histórico, mudei um pouco a planilha. Ao invés de uma linha para cada parágrafo no e-mail, eu coloquei tudo na mesma célula e formatei. Consigo encaminhar, mas não consigo que vá com assinatura do e-mail que é uma imagem. Se eu uso o &.HTMLBody ele junta tudo, não consigo quebrar linhas... Já revirei por ai e não achei. Alguém consegue me ajudar? -
Excel Enviando e-mail via vba
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
@Basole Perfeito Quem sabe, sabe. Muitíssimo obrigado Basole. -
Excel Enviando e-mail via vba
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
Oi Basole Segue planilha anexo Teste.zip -
Olá Peço uma ajuda dos feras daqui... Estou com uma macro que funciona quase perfeitamente, ao menos pro que eu preciso. Ela faz o envio de e-mail pelo excel direto pelo Gmail. Achei uma planilha e fiz adaptação para o que eu preciso, mas não estou conseguindo meu objetivo. Ela copia o e-mail do destinatário, copia o anexo e faz o envio do e-mail. Na hora do envio, apesar de atualizar a planilha, os anexos vão se acumulando. O primeiro e-mail vai certo, o segundo recebe o anexo do primeiro mais o segundo, o terceiro recebe todos os anteriores e assim por diante. Posto a macro aqui na esperança de conseguir uma ajuda. Antecipadamente agradeço. Sub EnviaEmail() Application.EnableEvents = False Dim iMsg, iConf, Flds Dim N As Integer Dim NEmails As Integer Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Set ws = Worksheets N = 2 flag = 0 NEmails = ws("Relação").Range("C1") + 2 schema = "http://schemas.microsoft.com/cdo/configuration/" Flds.Item(schema & "sendusing") = ws("ConfigEmail").Range("C4") 'Configura o smtp Flds.Item(schema & "smtpserver") = ws("ConfigEmail").Range("C5") 'Configura a porta de envio de email Flds.Item(schema & "smtpserverport") = ws("ConfigEmail").Range("C6") Flds.Item(schema & "smtpauthenticate") = ws("ConfigEmail").Range("C7") 'Configura o email do remetente Flds.Item(schema & "sendusername") = ws("Email").Range("C5") 'Configura a senha do email remetente Flds.Item(schema & "sendpassword") = ws("Email").Range("C6") Flds.Item(schema & "smtpusessl") = ws("ConfigEmail").Range("C8") Flds.Update Do While N < NEmails ws("Relação").Cells(N, 2).Copy ws("Email").Activate ws("Email").Range("C8").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ws("Relação").Cells(N, 3).Copy ws("Email").Activate ws("Email").Range("B15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False With iMsg 'Seu nome ou apelido .From = ws("Email").Range("C3") 'Seu e-mail .Sender = ws("Email").Range("C5") 'Email do destinatário .To = ws("Email").Range("C8") 'Cópia .CC = ws("Email").Range("C9") 'Cópia Oculta .BCC = ws("Email").Range("C10") 'Anexo .AddAttachment ws("Email").Range("B15") 'Título do email .Subject = ws("Email").Range("C12") 'Nome da sua organização '.Organization = "" 'e-mail de responder para '.ReplyTo = Worksheets("Email").Range("C3") 'Mensagem do e-mail, você pode enviar formatado em HTML .HTMLBody = ws("Email").Range("E4") & " " & Sheets("Relação").Cells(N, 1) & "<br>" & "<br>" _ & ws("Email").Range("E5") & "<br>" & "<br>" _ & ws("Email").Range("E6") & "<br>" & "<br>" _ & ws("Email").Range("E7") & "<br>" _ & ws("Email").Range("E8") & "<br>" _ & ws("Email").Range("E9") & "<br>" & "<br>" _ & ws("Email").Range("E10") & "<br>" & "<br>" _ & ws("Email").Range("E11") & "<br>" _ & ws("Email").Range("E12") & "<br>" _ & ws("Email").Range("E13") flag = 1 Set .Configuration = iConf 'Envia o email .Send End With N = N + 1 ws("Email").Range("C8,B15").ClearContents Loop ws("Email").Range("C8,B15").ClearContents Application.EnableEvents = True MsgBox N - 2 & " e-mails foram enviados com sucesso", vbOKOnly Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing End Sub
-
Olá Preciso de uma ajuda dos feras daqui. Recentemente o DSi do meu filho parou de ler os jogos e levei a uma loja para ver qual seria o problema. O cara da loja me disse que o problema era o R4 e trocou e colocou no cartão de memória alguns jogos novos e os meu antigos perdeu-se. Perguntando o motivo ele me disse que o R4 novo não lia os jogos antigos. Verdade isso? Não há compatibilidade? O DSi tinha uns 10 anos ou mais com o mesmo R4. Agora ele trocou por um "Gold Pro". Agradeço a ajuda
-
Boa noite pessoal Estou precisando de uma ajuda com uma planilha. Achei e adaptei uma macro para fazer um relatório do que eu preciso pesquisar. Funciona muito bem. Entretanto eu preciso totalizar a coluna de quantidades a cada mudança que ocorra em qualquer dos outros dados, agrupando as informações. Ou seja, preciso agrupar os dados que sejam iguais nas várias colunas. Se mudar um dado, muda a totalização. Anexo a planilha para ajuda. Obrigado TRANSPORTE_MADEIRA_CH.zip
-
Excel Retornar valor "/" valor em uma célula, onde os valores estão em duas células
Yskhadar respondeu ao tópico de Márcia Pádua em Microsoft Office e similares
@Márcia Pádua Veja se resolve... =A1&" / "&B1 Supondo que A1 é o número de atividades realizadas e B1 a pontuação. -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
Desculpe a demora tive uns contratempos... Perfeito Osvaldo, muitíssimo obrigado! -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
Entendi. Aí posso desonsiderar macro ColorirMapa, certo? Outra pergunta: como faço para mudar as cores que você determinou? Como sei o código da cor? Claro que funcionou, né? -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
Desculpa a confusão. A planilha era a mesma da anterior, só acresci informações e não refiz as referências. O Mapa funcionou do jeito que você fez, só não alterei neste arquivo, porque acredito que será modificado. Seguindo sua sugestão, seria formatar o Mapa levando em consideração as vendas (coluna D) por estado (coluna H). E se possível levando em consideração segmento do produto (coluna B). Grato Consulta_clube1.7z -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
@osvaldomp Segue a planilha com acréscimos das vendas. A parte que você não entendeu, são 2 produtos, sapatos e bolsas, mas cada um tem alguns modelos. Então sçao subdivisões, mas acho que não vai alterar o resultado. Obrigado Consulta_clube1.7z -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
Sim, como falei a princípio só onde a marca chegou. Mas estou pensando e acho que seria interessante fazer o indicado baseado nas vendas. Se quiser perder um pouco do seu tempo acho que seria interessante... Talvez eu precise te mandar a planilha de outro jeito... De qualquer forma, a solução que eu buscava você me deu e sou grato. É que daí você plantou uma semente... -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
@osvaldomp como sempre, funcionou perfeitamente. A princípio este mapa pintado mostra apenas os locais onde a marca já alcançou, sem levar em conta vendas. Mas acho que isso pode ser mudado, ou acrescentado. A solução ou alternativa que você falou é interessante, gostaria de saber mais sim. Já adiantando, são dois produtos, com alguns modelos, mas apenas 2 produtos. -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
Segue um arquivo para melhor entendimento. Do jeito que está hoje funciona com a macro e a solução também funciona desde que eu não mova o mapa de aba. Entretanto é o que eu preciso. Que o mapa vá para outra aba e tenha a atualização de forma automática mantida. Grato Consulta_clube.7z -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
@osvaldomp Como sempre, você é o cara! Muitíssimo obrigado. Só tive que ajustar a macro ColorirMapa. você falou que a formatação condicional pode fazer esse trabalho... de que forma seria?
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais