none
Macro para enviar conteúdo de Célula do Excel por e-mail RRS feed

  • Pergunta

  • Boa Tarde Pessoal,

    Estou com uma dificuldade tremenda referente ao tópico "Macro para enviar conteúdo de Célula do Excel por e-mail"

    Vejam e me ajudem a ajustar os erros.

    Segue meu script que copiei e somente alterei as colunas.

    Sub email()
        Dim OutApp As Object
        Dim OutMail As Object
        Dim texto As String

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        linha = ActiveCell.Row - 1
        If Target.Address = "$O$" & linha Then
            If Plan1.Cells(linha, 15) = "Concluído" Then
                texto = "Prezado(a) " & Plan1.Cells(linha, 18) & "," & vbCrLf & vbCrLf & _
                        "Informo que o n°sinistro " & Plan1.Cells(linha, 2) & " aberto em " & _
                        Plan1.Cells(linha, 6) & " foi finalizado." & vbCrLf & _
                        " Veja informações abaixo:" & vbCrLf & _
                        "    Status: " & Plan1.Cells(linha, 15) & vbCrLf & _
                        "    Data de Finalização: " & Plan1.Cells(linha, 5) & vbCrLf & vbCrLf & _
                        "Atenciosamente,"
                        
            End If

            With OutMail
                .To = Plan1.Cells(linha, 19)
                .CC = ""
                .BCC = ""
                .Subject = "Título do email"
                .Body = texto
                .Display   'Utilize Send para enviar o email sem abrir o Outlook'
            End With
            On Error GoTo 0

            Set OutMail = Nothing
            Set OutApp = Nothing
        End If
    End Sub


    segunda-feira, 17 de fevereiro de 2014 18:46

Todas as Respostas

  • O código parece estar correto, mas teremos que ver junto a sua planilha para ver o que pode ter ajustado errado, poderia postar ela?

    Utilize o Sendspace.

    segunda-feira, 17 de fevereiro de 2014 19:01
  • Bruno,

    Obrigado...pela atenção!!!

    Como sou novo aqui e na utilização do sendspace, não estou localizando seus dados para enviar a planilha.

    terça-feira, 18 de fevereiro de 2014 12:18
  • entre no Sendspace.com e faça o upload da planilha, mande o link que gerar aqui no fórum para te que possa baixar.

    falou.

    terça-feira, 18 de fevereiro de 2014 17:43
  • ok...

    segue o link:

    http://www.sendspace.com/file/fhk1v5

    http://www.sendspace.com/delete/fhk1v5/11288101f3cd55719832395a2dd52f27

    terça-feira, 18 de fevereiro de 2014 18:36
  • Com pequenas alterações o código funcionou, mas preciso de saber alguma informações suas:

    1) Você irá utilizar algum botão no excel para enviar o email certo?

    2) Existe uma opção para o outlook não abrir, assim que você clicar no botão no excel ele envia o email direto sem que você tenha que clicar no enviar, pode marcar dessa forma?

    3) Sugiro que você coloque um Assunto no email para não ficar "amador", poste aqui que já atualizo tudo e lhe envio o código novamente!

    No aguardo.

    terça-feira, 18 de fevereiro de 2014 19:28
  • Legal...Bruno, 

    Como sou totalmente amador no VBA, pois vejo as postagens me interesso no assunto e tento utiliza-lo no meu dia a dia...rsrsrs

    Então referente as suas perguntas:

    1) Eu não pensei em colocar um botão para o envio do email, pois pensei que seria enviado diretamente com a alteração da coluna, mas pode ser uma opção interessante.

    2) Sim. pode marca dessa forma seria mas simples, porque essa planilha terá diversas alterações por dia, pois recebera atualização de 16 analistas diariamente.

    3) Parecer do n° sinistro:

    Valeu


    terça-feira, 18 de fevereiro de 2014 19:54
  • Eu deixei o arquivo para ainda abrir o outlook para você clicar no enviar, para poder confirmar que está tudo certo. depois basta mudar a linha ".display" para ".Send"

    Lembre-se ele vai pedir para atualizar os vínculos, então antes de abrir confira se está no mesmo lugar que o arquivo que você me enviou, caso de muitos problemas, irei te mostrar como fazer na sua planilha já montada.

    http://www.sendspace.com/file/1aub3o

    terça-feira, 18 de fevereiro de 2014 20:41
  • Obrigado...Bruno,

    Vou verificar e já informo.

    quinta-feira, 20 de fevereiro de 2014 14:50
  • Bruno, 

    Funcionou na primeira linha nas demais mostrou erro em depuração.

    Agora estou postando todo o fluxo e fiz para colher as informações para alimentar a BASE  DE CONTROLE MESTRE.

    http://www.sendspace.com/file/1mu0lo

    http://www.sendspace.com/filegroup/y65nakff7RqW4qVubU9HnhQPDQKGwwdNt%2BzrF%2BrUWxM

    http://www.sendspace.com/delete/1mu0lo/5c8f9e11c74eab6f64f3f6bd228790cc

    Agradeço desde já.vlw

    quinta-feira, 20 de fevereiro de 2014 18:57
  • Porque usa tantas Pastas de Trabalho e não somente 1 com todas as abas? Tem gente que acessa só alguns dos arquivos e que não pode acessar os outros?

    Suas planilhas giram e giram e o Proc fica doido.....

    Se puder ser em uma única pasta de trabalho (arquivo) me informe que vou retirar essas atualizações cíclicas pra você.

    quinta-feira, 20 de fevereiro de 2014 19:46
  • É que são 16 analistas para lançar as informações, pensei que ficaria pesado para uma unica pasta de trabalho.

    A intenção desse fluxo é que:

    Um analista preencha a 01 - base do controle de processos , informe ao analista qual sua demanda do dia.

    Que alimentará sua 02- Roteiro de processo, na qual dará continuidade nos preenchimento das informações.

    3 - consolidador das informações dos analista colherá todas as informações  dos roteiros de processos dos 16 analista e alimentará a base que servirá como referencia para futuros relatórios.

    Sei que é um ciclo sem fim, se for possível criar uma unica que faça tudo isso em uma pasta de trabalho, aceito fácil. 

     Vlw...obrigado!
    sexta-feira, 21 de fevereiro de 2014 12:00