Pesquisar na Comunidade

Boa noite, pessoal! Estou em um impasse no meu código que passei o dia inteiro pesquisando e não consegui chegar em nenhuma luz. Possuo uma pasta dentro dos meus documentos hd, com uns 1000 e-mails do mesmo assunto e precisaria de uma maneira de filtrar palavras-chaves dentro do corpo do e-mail. No entanto, não estou conseguindo encontrar uma maneira de fazer o excel ler os arquivos de e-mails do Outlook dentro dessa pasta física (.msg). Tentei replicar o código presente nesse guia: Como Ler E-mails do Outlook e Colocar na Planilha com VBA (hashtagtreinamentos.com) No entanto, na variavel "minha_pasta" criei o objeto como file system object e acabou não dando certo. Desde já agradeço

Olá, bom dia Gente! Eu tenho um código VBA que verifica os anexos dos e-mail e dependendo dos títulos do arquivo ele salva em uma pasta específica, essa macro era ativada através de uma regra de filtro do Próprio Outlook. ele funcionava perfeitamente até formatar meu computador, depois de reinstalar o Outlook ele não permite mais eu adicionar uma macro na regra de chegada do E-mail. Todas as vezes que tento adicionar a regra ele da o aviso "Esta regra não está disponível no modo atual". Já alterei os níveis de permissão de macros do Outlook e nada. Vendo em outros Foruns vi pessoas tendo o mesmo problema e não conseguindo resolver. Queria saber se alguém sabe como mudar essa configuração do outLook ou ao menos sabe uma forma de adicionar uma acionamento automática para cada e-mail que chega sem precisar usar as regras nativas no outlook.

Boa tarde, necessito da vossa ajuda. tenho um código em VBA no access que faz o envio automático de email via outlook. Nesse código, estou a utilizar a função GetBoiler que vai buscar a minha assinatura do outlook: Function GetBoiler(ByVal sFile As String) As String 'Dick Kusleika Dim fso As Object Dim ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) GetBoiler = ts.readall ts.Close End Function Mas acontece que a minha assinatura é constituida por texto e por uma imagem. O código vai buscar a assinatura mas não mostra a imagem. Já verifiquei tudo o que tinha de verificar nas "opções" do outlook e está tudo Ok. Até porque se eu envio o email normalmente a assinatura aparece com a imagem. Podem ajudar? Preciso mesmo de resolver esta situação. Obrigado! Segue o código da minha função: Function EnviarMailAutomatico() On Error GoTo EnviarMail_Err Dim objOut As Object Dim objMail As Object Dim msg As String Dim resp As Integer Dim MyFile Dim SigString As String Dim Signature As String Dim Utilizador As String Dim strbody As String Const olMailItem = 0 Const olByValue = 1 Utilizador = UtilizadorRede ' Verifica se a caixa de seleção já está selecionada If Forms!Pedido!Enviado.Value = True Then MsgBox "Desculpe, mas você já enviou este e-mail. " _ & "Não é possível enviar o mesmo e-mail mais " _ & "de uma vez", vbCritical Else 'Retornar o nome do ficheiro da assinatura para o utilizador de rede que está logado no Computador MyFile = Dir("C:\Users\" & Utilizador & "\AppData\Roaming\Microsoft\Signatures\" & "*.htm") ' Confirmar antes de enviar o e-mail. resp = MsgBox("Você está prestes a enviar um e-mail de" _ & " confirmação de despacho. Deseja realmente continuar?", _ vbQuestion + vbYesNo) If resp = vbYes Then ' Cria os objetos Set objOut = CreateObject("Outlook.application") Set objMail = objOut.CreateItem(olMailItem) strbody = "<H3>Caros colegas,</H3>" & _ "Peço que se elimine o pedido número " & Forms!Pedido!Ped & _ ".<br>" & _ "<br><br><B>Obrigado</B>" 'Atribuir a assinatura do remetente SigString = Environ("appdata") & _ "\Microsoft\Signatures\" & _ MyFile If SigString <> "" Then Signature = GetBoiler(SigString) Else Signature = "" End If On Error Resume Next With objMail .BodyFormat = olFormatHTML .To = "teste@teste.pt" .CC = "teste1@teste.pt" .Subject = "Eliminar pedido " & Forms!Pedido!Ped .HTMLBody = strbody & "<br>" & Signature End With ' Envia o e-mail objMail.Display ' Remove os objetos da memória Set objMail = Nothing Set objOut = Nothing End If End If EnviarMailAutomatico_Exit: Exit Function EnviarMailAutomatico_Err: MsgBox Error$ Resume EnviarMail_Exit End Function

Bom dia, Preciso criar uma macro na qual há duas Combobox Encadeadas, e, dependendo do qual for a seleção do item na primeira Combobox, o destinatário do envio da mensagem é alterado; ou seja: cada item da primeira Combobox determinada qual será do destinatário da mensagem. Mais informações: preciso criar um formulário no Outlook para rodar internamente na empresa onde trabalho. Nele constará (a Combobox 1) os equipamentos que necessitam de manutenção; nisto, o especialista do equipamento será tagged como destinatário do tal email, assim receberá diretamente o pedido de manutenção. OBRIGADO.

Bom dia, estou com um problema e não consigo resolver, já tentei de tudo. Bom, envio emails uma vez por semana, posso ter de 3 a 160 correspondentes. eu criei a query porem não consigo anexar a ela o corpo de email. alguém pode me ajudar? segue codigo. estou enviando o referente a um cliente, eu só replico o código varias vezes. ActiveSheet.Range("$A$1:$M$1694").AutoFilter Field:=10, Criteria1:= _ "LJ_BA_SALVADOR_AEROPORTO" Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Range("A1:M1700").Select Selection.Copy ChDir "C:\Users\rodolfo.ribas\Desktop\Testes_Email" Workbooks.Open Filename:= _ "C:\Users\rodolfo.ribas\Desktop\Testes_Email\LJ_BA_SALVADOR_AEROPORTO.xlsm"

Bom Dia. Estou precisando de um script para o Outlook que salve os anexos de um determinado remetente em uma pasta no drive C: e que substitua o mesmo anexo já existente na pasta. sempre recebo de um remetente informações atualizadas em um anexo e preciso que esse anexo seja salvo automaticamente em uma pasta, mas que sempre seja o anexo mais recente, o Outlook deve ao salvar substituir o anexo velho, preciso muito disso, por favor ajudem. ressalto que não conheço muito de VBA, só o basico. obrigado!

Olá pessoal, Tenho um sistema que roda em vários micros e cada um deles com versões diferentes do office. O meu código não está dando certo, segue referenciei o outlook e usei o imports Imports Microsoft.Office.Interop Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click Cursor.Current = Cursors.WaitCursor Try Dim tempApp As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application 'Dim tempApp = GetObject(, "Outlook.Application") Dim tempNS As Outlook.NameSpace Dim MailFolder As Outlook.MAPIFolder tempNS = tempApp.GetNamespace("MAPI") tempNS.Logon(, , True, True) Dim newMail As Outlook.MailItem = Nothing MailFolder = tempNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderOutbox) newMail = MailFolder.Items.Add(Outlook.OlItemType.olMailItem) With newMail .To = txtPara.Text .Subject = txtAssunto.Text .Body = txtMensagem.Text .Send() End With newMail = Nothing MailFolder = Nothing tempNS = Nothing tempApp = Nothing DialogResult = DialogResult.Yes Catch ex As Exception MsgBox(ex.ToString()) DialogResult = DialogResult.No Finally Cursor.Current = Cursors.Default End Try End Sub se eu usar essa linha Dim tempApp As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application ele só funciona no office2007 se eu usar essa linha, ele dá a mensagem de que não posso criar objeto activex Dim tempApp = GetObject(, "Outlook.Application") o que faço ?

Pessoal, bom diaCriei um código que funciona perfeitamente que dispara centenas de e-mails a partir de uma lista do excelMeu problema é que no outlook 2013, ele trava na hora de enviar os e-mails dizendo:"Programa tentando enviar email em seu nome. Se isso for inesperado, clique em Negar e verifique se o software antivirús está atualizado."E constantemente eu teria que apertar "Permitir"Baixei o ClickYes PRO 2010, funcionou perfeitamente porém meu Trial expirou, e teria que comprar o pacote para continuar utilizandoVoces conhecem algum programa gratuito que faça o mesmo que o Click Yes? Ou sabem de alguma maneira via código de desabilitar essa mensagem do outlook?Obrigado a todos desde já!

Olá, pessoal! Nunca usei o vba no outlook, então peço a ajuda de vocês para um código que deve ser simples. Gostaria de criar uma macro que seja apenas uma condição: se o meu endereço de email estiver como destinatário/cc/cco, abrir uma MsgBox avisando. Como recebo muitos emails de grupo (inúteis), queria um aviso dos que vêm para mim mesmo. Obrigado desde já!

Como exportar um trabalho para JPEG com 72 ou 96 dpi? Normalmente as imagens utilizadas em ecrãs não necessitam de ter resolução padrão de 300 dpi, no entanto, sempre que exportamos um trabalho para JPEG no CorelDraw X6 ele exporta a imagem com 300 dpi de resolução se mantivermos a definição padrão do CorelDraw. Mesmo que a imagem tenha sido importada originalmente com 72dpi como são as imagens que encontramos em ambientes net. A necessidade de exportar nesta resolução pende-se com o facto do Outlook sempre que é colada uma imagem no corpo da mensagem com resolução superior a 96 dpi ele redimensiona para esta resolução padrão quando enviada. Desta forma uma imagem criada ou tratada no CorelDraw nas definições padrão (300 dpi) para ser utilizada em rodapé (do tipo logo ou outro na assinatura) de uma mensagem de Outlook depois de enviada perde qualidade, pois chega ao destinatário com 96 dpi. Daí que, ao iniciarmos um novo trabalho devemos escolher a resolução de saída que pretendemos para esse trabalho. Ou em alternativa, ao exportar escolhemos a resolução que pretendemos. Parece muito intuitivo, mas como a box de escolha da resolução ao exportar no X6 não indica "dpi" ou "ppp" e está meio desalinhado pode dificultar utilizadores inexperientes (como eu) a identificar o campo. Em anexo imagens das escolhas a fazer. Espero ajudar quem passar por esta dificuldade.

"Você não pode se conectar ao servidor. (Conta" algo "Servidor POP3" yourdomain.com "Erro número 0x800ccc0e)" quem sabe como pará-lo ??

Estou com um problema, eu estou com um código que guarda os arquivos anexados do Outlook, XML, PDF e outras extensões se quiser, mas preciso de uma outra coisa; No momento que chega um XML eu preciso que ele antes do arquivo chegue a pasta designada ele seja convertido em TXT Consegue me ajudar??? Resumindo Quando o XML chega no e-mail o codigo vai converter ele para TXT e salva o txt na pasta e não consegui resolver, irei partilhar meu codigo. Este Codigo pega os Anexos que recebemos no Outlook e guarda em uma pasta da Rede; Public Sub SalvaAnexos(Email As MailItem) Dim DiretorioAnexos As String 'aqui voce altera o diretorio que vai salvar os anexos DiretorioAnexos = "\\111.111.111.111\NFE\XML" Dim MailID As String Dim Mail As Outlook.MailItem MailID = Email.EntryID Set Mail = Application.Session.GetItemFromID(MailID) For Each Anexo In Mail.Attachments 'Para adicionar outra extenção so colocar mais um if If Right(Anexo.FileName, 3) = "xml" Then Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName End If If Right(Anexo.FileName, 3) = "pdf" Then Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName End If 'Creditos Wandarley Pereira © Next Set Mail = Nothing End Sub Se Alguém puder me ajudar agradeço

Olá Pessoal, É o meu primeiro post aqui. Estou com uma dúvida. Temos que pegar alguns emails e coloca-los salvos em uma pasta na rede. A planilha acesse esse diretório e verifica se os e-mail foram colocados lá. Isso ela consegue fazer, mas estou querendo que a Macro identifique o arquivo de email e retorne para minha planilha a data de envio que o e-mail foi realizada. Será que tem como? Agradeço a ajuda!

Boa Tarde Amigos, Estou com uma Macro no VBA que necessito colocar um campo de data automaticamente, Segue abaixo a programação da Macro: Sub Macro1() ' ' Macro1 Macro ' ' Dim MyOlapp As Object, MeuItem As Object Set MyOlapp = CreateObject("Outlook.Application") Set MeuItem = MyOlapp.CreateItem(olMailItem) With MeuItem .Bcc = ("filipe@xxx.com.br) .Subject = "Relatório x (Ref " & Format(Date, "dd/mmm/yy") & (")") .HTMLBody = "<font size=3 color=1F497D face=calibri>Bom Dia<br >" .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br >xxxx DATA:" .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br > <html><body><font size=3 color=red><a href=www.Relatório. DATA.xlsx>www.Relatório DATA.xlsx</a></font></body></html>" .Attachments.Add ActiveWorkbook.FullName .Display End With End Sub Sou iniciante em HTML e VBA, Necessito que o email no final das contas fique mais ou menos assim: Relatório xxx ( DATA DE HOJE) Link: www.relatório/(DATA DE HOJE).xls Procurei em alguns blogs e não achei uma maneira de fazer isso, Se puderem me ajudar agradecerei muito ! Obrigado

Boa Tarde Amigos, Estou com uma Macro no VBA que necessito colocar um campo de data automaticamente, Segue abaixo a programação da Macro: Sub Macro1() ' ' Macro1 Macro ' ' Dim MyOlapp As Object, MeuItem As Object Set MyOlapp = CreateObject("Outlook.Application") Set MeuItem = MyOlapp.CreateItem(olMailItem) With MeuItem .Bcc = ("filipe@xxx.com.br) .Subject = "Relatório x (Ref " & Format(Date, "dd/mmm/yy") & (")") .HTMLBody = "<font size=3 color=1F497D face=calibri>Bom Dia<br >" .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br >xxxx DATA:" .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br > <html><body><font size=3 color=red><a href=www.Relatório. DATA.xlsx>www.Relatório DATA.xlsx</a></font></body></html>" .Attachments.Add ActiveWorkbook.FullName .Display End With End Sub Sou iniciante em HTML e VBA, Necessito que o email no final das contas fique mais ou menos assim: Relatório xxx ( DATA DE HOJE) Link: www.relatório/(DATA DE HOJE).xls Procurei em alguns blogs e não achei uma maneira de fazer isso, Se puderem me ajudar agradecerei muito ! Obrigado