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

  • Pergunta

  • Amigos e Amigas,

    Tenho uma planilha onde eu faço o controle de tickets Abertos e Fechados na Empresa

    A Planilha tem a aparência abaixo:

    A

    B

    C

    D

    E

    F

    1

    USUÁRIO

    ABERTO EM

    BREVE DESCRIÇÃO

    STATUS

    FECHADO EM

    AÇÃO TOMADA

    2

    fer@tah.com.br

    22/07 18:01

    Monitor Queimado

    Em andamento

    3

    pie@tah.com.br

    23/07 12:01

    Mouse Quebrado

    Concluído

    24/07 14:09

    Mouse Trocado


    Preciso que a Macro envie para o e-mail da Coluna "A" as informações contidas em todas as colunas relativas a sua linha onde o e-mail se encontra, sendo que o e-mail será disparado quando o status da coluna "D" for alterado.

    Por exemplo, se o status da Coluna "D" na Linha "2" for alterado para "Concluído", automaticamente será enviado um e-mail ao usuário da Coluna "A" com as informações de todas as Colunas relativas a Linha "2".

    Vi algumas macros que enviam a planilha como anexo no e-mail, e outras que enviam um determinado range de células dentro do corpo do e-mail (inclusive já fiz Macros com as funções que acabei de narrar), mas elas não atendem a minha necessidade.

    Você conseguiriam me ajudar?

    Conto com a colaboração da comunidade.

    Obrigado.

    Fernando

    sábado, 28 de julho de 2012 01:33

Respostas

  • Caro amigo Fernando,

    Segue sugestão para sua necessidade

    Coloque, conforme pode notar abaixo, no evento Change, da planilha que contém os dados:

    Private Sub Worksheet_Change(ByVal Target As Range)
        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 = "$F$" & linha Then

            If Plan1.Cells(linha, 6) = "Concluído" Then
                texto = Plan1.Cells(linha, 1) & "  -  " & Plan1.Cells(linha, 2) & "  -  " _
                        & Plan1.Cells(linha, 3) & "  -  " & Plan1.Cells(linha, 4) & "  -  " _
                        & Plan1.Cells(linha, 5) & "  -  " & Plan1.Cells(linha, 6)
            End If

            With OutMail
                .To = Plan1.Cells(linha, 1)
                .cc = ""
                .BCC = ""
                .Subject = "Título do email"
                .HTMLBody = 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


    Espero ter ajudado.

    Ivair Claudio Ferrari

    http://www.excelmax.com.br

    domingo, 29 de julho de 2012 01:36
  • Caro amigo Fernando!

    Peço desculpas pela demora em responder.

    Veja se é assim que você precisa. Fiz alguns ajustes no script do código anterior.

    Private Sub Worksheet_Change(ByVal Target As Range)
        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 = "$F$" & linha Then

            If Plan1.Cells(linha, 6) = "Concluído" Then
                texto = "Prezado(a) " & Plan1.Cells(linha, 1) & "," & vbCrLf & _
                        " Seu ticket " & Plan1.Cells(linha, 7) & " aberto em " & _
                        Plan1.Cells(linha, 2) & " foi cadastrado ou sofreu alterações." & _
                        vbCrLf & vbCrLf & " Veja informações abaixo:" & vbCrLf & _
                        "    Status: " & Plan1.Cells(linha, 6) & vbCrLf & _
                        "    Ação tomada: " & Plan1.Cells(linha, 2) & vbCrLf & vbCrLf & _
                        "Atenciosamente." & vbCrLf & vbCrLf & _
                        "Fulano" & vbCrLf & "Help Desk"
            End If

            With OutMail
                .To = Plan1.Cells(linha, 1)
                .CC = ""
                .BCC = ""
                .Subject = "Título do email"
                '.HTMLBody = texto
                .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

    Favor informar se ajudou.

    Grande abraço!

    Prof. Ivair Claudio Ferrari

    ExcelMax® Soluções

    quarta-feira, 5 de setembro de 2012 21:22
  • Olá Ivair.

    Eu sabia que poderia contar contigo, meu amigo.

    Seu código ficou perfeito. É justamente isso que eu necessito.

    Gostaria ainda de fazer 2 perguntas.

    1) Existe a possibilidade do e-mail ser enviado automaticamente, sem a necessidade de clicar no botão "enviar"?

    2) Em relação ao texto que será enviado por e-mail, seria possível organiza-lo de forma que fique mais compreensível? Caso positivo, eu gostaria de enviar o texto conforme abaixo:

    Prezado "E-MAIL DO USUÁRIO",

    seu ticket "Nº DO TICKET" aberto em "DATA DA ABERTURA" foi cadastrado ou sofreu alterações.

    Veja informações abaixo:

    Status: "INFORMAR O STATUS"

    Ação tomada: "INFORMAR AÇÃO TOMADA"

    Atenciosamente,

    Fulano
    Help Desk

    Mais uma vez, obrigado pela colaboração e pela sua disponibilidade.

    Um grande abraço.

    Fernando

    domingo, 29 de julho de 2012 03:44
  • Olá Fernando. 

    Primeiro = sua macro ficou muito repetitiva e pode ser melhorada. Para que possa ajustar favor informa:

    • Porque a Coluna 2 vai ter alteração se ela contém a data de Abertura ?
    • Que informação há na coluna 12 ?

    Para dar uma resposta, favor anexar aqui, uma figura assim como você fez no início.

    Assim que você responder, verifico e dou minha resposta.

    Grande abraço!

    Ivair Claudio Ferrari

    ExcelMax Soluções

    quarta-feira, 12 de setembro de 2012 04:47
  • Fernando! Obrigado pelo comentário.

    Publiquei uma matéria em meu site/blog exatamente sobre este assunto com um link para baixar uma planilha de exemplo. fique a vontade para verificar e dar seu comentário a respeito.

    Para visualizá-la clique no Link: Macro para enviar conteúdo de Célula do Excel por e-mail

    Abraço !!!

    Ivair

    quinta-feira, 6 de setembro de 2012 15:52

Todas as Respostas

  • Olá Fernando, boa noite.

    Vou migrar o seu post para o Fórum especializado em VBA.


    Hezequias Vasconcelos

    sábado, 28 de julho de 2012 23:16
    Moderador
  • Caro amigo Fernando,

    Segue sugestão para sua necessidade

    Coloque, conforme pode notar abaixo, no evento Change, da planilha que contém os dados:

    Private Sub Worksheet_Change(ByVal Target As Range)
        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 = "$F$" & linha Then

            If Plan1.Cells(linha, 6) = "Concluído" Then
                texto = Plan1.Cells(linha, 1) & "  -  " & Plan1.Cells(linha, 2) & "  -  " _
                        & Plan1.Cells(linha, 3) & "  -  " & Plan1.Cells(linha, 4) & "  -  " _
                        & Plan1.Cells(linha, 5) & "  -  " & Plan1.Cells(linha, 6)
            End If

            With OutMail
                .To = Plan1.Cells(linha, 1)
                .cc = ""
                .BCC = ""
                .Subject = "Título do email"
                .HTMLBody = 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


    Espero ter ajudado.

    Ivair Claudio Ferrari

    http://www.excelmax.com.br

    domingo, 29 de julho de 2012 01:36
  • Olá Ivair.

    Eu sabia que poderia contar contigo, meu amigo.

    Seu código ficou perfeito. É justamente isso que eu necessito.

    Gostaria ainda de fazer 2 perguntas.

    1) Existe a possibilidade do e-mail ser enviado automaticamente, sem a necessidade de clicar no botão "enviar"?

    2) Em relação ao texto que será enviado por e-mail, seria possível organiza-lo de forma que fique mais compreensível? Caso positivo, eu gostaria de enviar o texto conforme abaixo:

    Prezado "E-MAIL DO USUÁRIO",

    seu ticket "Nº DO TICKET" aberto em "DATA DA ABERTURA" foi cadastrado ou sofreu alterações.

    Veja informações abaixo:

    Status: "INFORMAR O STATUS"

    Ação tomada: "INFORMAR AÇÃO TOMADA"

    Atenciosamente,

    Fulano
    Help Desk

    Mais uma vez, obrigado pela colaboração e pela sua disponibilidade.

    Um grande abraço.

    Fernando

    domingo, 29 de julho de 2012 03:44
  • Caro amigo Fernando!

    Peço desculpas pela demora em responder.

    Veja se é assim que você precisa. Fiz alguns ajustes no script do código anterior.

    Private Sub Worksheet_Change(ByVal Target As Range)
        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 = "$F$" & linha Then

            If Plan1.Cells(linha, 6) = "Concluído" Then
                texto = "Prezado(a) " & Plan1.Cells(linha, 1) & "," & vbCrLf & _
                        " Seu ticket " & Plan1.Cells(linha, 7) & " aberto em " & _
                        Plan1.Cells(linha, 2) & " foi cadastrado ou sofreu alterações." & _
                        vbCrLf & vbCrLf & " Veja informações abaixo:" & vbCrLf & _
                        "    Status: " & Plan1.Cells(linha, 6) & vbCrLf & _
                        "    Ação tomada: " & Plan1.Cells(linha, 2) & vbCrLf & vbCrLf & _
                        "Atenciosamente." & vbCrLf & vbCrLf & _
                        "Fulano" & vbCrLf & "Help Desk"
            End If

            With OutMail
                .To = Plan1.Cells(linha, 1)
                .CC = ""
                .BCC = ""
                .Subject = "Título do email"
                '.HTMLBody = texto
                .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

    Favor informar se ajudou.

    Grande abraço!

    Prof. Ivair Claudio Ferrari

    ExcelMax® Soluções

    quarta-feira, 5 de setembro de 2012 21:22
  • Olá Ivair.

    Muito obrigado pela colaboração.

    Pelo que analisei do Código, ficou perfeito.

    Hoje a noite vou testa-lo e volto aqui para te informar como ficou.

    Mais uma vez, muito obrigado por contribuir com seu conhecimento.

    Grande abraço.

    Fernando

    quinta-feira, 6 de setembro de 2012 13:35
  • Fernando! Obrigado pelo comentário.

    Publiquei uma matéria em meu site/blog exatamente sobre este assunto com um link para baixar uma planilha de exemplo. fique a vontade para verificar e dar seu comentário a respeito.

    Para visualizá-la clique no Link: Macro para enviar conteúdo de Célula do Excel por e-mail

    Abraço !!!

    Ivair

    quinta-feira, 6 de setembro de 2012 15:52
  • Olá Ivair.

    Bem, nem preciso falar que sua macro ficou perfeita.

    Ela funcionou perfeitamente. Porém junto com ela eu coloquei mais duas macros; uma para incluir data e hora quando as colunas 2 e 12 forem alteradas, e outra para converter o texto de minúsculas para maiúsculas.

    Acontece que após incluir estas 2 macros, a macro do e-mail não funciona.

    Com certeza fiz algo errado. Veja abaixo o código:

    Private Sub Worksheet_Change(ByVal Target As Range)

    'Envia e-mail pelo Outlook

        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 = "$L$" & linha Then

            If Plan1.Cells(linha, 12) = "Concluído" Then
                texto = "Prezado(a) " & Plan1.Cells(linha, 2) & "," & vbCrLf & vbCrLf & _
                        "A O.S. " & Plan1.Cells(linha, 6) & " aberta em " & _
                        Plan1.Cells(linha, 4) & " foi concluída." & vbCrLf & _
                        " Veja informações abaixo:" & vbCrLf & _
                        "    Status: " & Plan1.Cells(linha, 12) & vbCrLf & _
                        "    Ação tomada: " & Plan1.Cells(linha, 11) & vbCrLf & vbCrLf & _
                        "Atenciosamente," & vbCrLf & _
                        "Help Desk"
            End If

            With OutMail
                .To = Plan1.Cells(linha, 3)
                .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

    'Esta seção inclui a data e hora do cadastro do Ticket.
    'Também inclui data e hora quando o Status é alterado.

        If Target.Column = 2 Then Cells(Target.Row, 4) = Date
        If Target.Column = 2 Then Cells(Target.Row, 5) = Time
        If Target.Column = 12 Then Cells(Target.Row, 13) = Date
        If Target.Column = 12 Then Cells(Target.Row, 14) = Time

    'Essa seção altera automaticamente o texto digitado
    'em minúscula para maiúscula
    If Target.Column = 1 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 2 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 3 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 4 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 5 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 6 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 7 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 8 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 9 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 10 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 11 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 12 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 13 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If

    If Target.Column = 14 Then
        If Not (Target.Text = UCase(Target.Text)) Then
            Target = UCase(Target.Text)
        End If
    End If
       
    End Sub

    Você consegue me apontar o erro?

    Fico grato por mais este ensinamento.

    Abs. Fernando

    segunda-feira, 10 de setembro de 2012 16:27
  • Olá Fernando. 

    Primeiro = sua macro ficou muito repetitiva e pode ser melhorada. Para que possa ajustar favor informa:

    • Porque a Coluna 2 vai ter alteração se ela contém a data de Abertura ?
    • Que informação há na coluna 12 ?

    Para dar uma resposta, favor anexar aqui, uma figura assim como você fez no início.

    Assim que você responder, verifico e dou minha resposta.

    Grande abraço!

    Ivair Claudio Ferrari

    ExcelMax Soluções

    quarta-feira, 12 de setembro de 2012 04:47
  • <meta content="text/html; charset=utf-8" http-equiv="Content-Type" /><title>Untitled Document</title> <style type="text/css"><!-- .CENTER { text-align: center; } .centro { text-align: center; } --> </style>

    Olá meu amigo Ivair.

    Antes de tudo, obrigado por "debulhar" este assunto, e desculpa pela demora.

    Quanto a planilha, ela é um pouco mais complexa do que a tabela que mencionei acima.

    Abaixo segue tabela na íntegra.

    A B C D E F G H I J K L M
    Seq Solicitante E-mail Aberto em Hora Nº do Ticket Categoria Subcategoria Situação Breve Descrição do Problema Status Data do Status Hora do Status
    1 FERNANDO FER@NANDO.COM 11/4 11:30 1000 SOFTWARE SISTEMA FORA DO AR DATACOOP FORA DO AR. CONCLUÍDO 13/9 20:30
    2 JOÃO JOAO@NANDO.COM 12/4 15:23 1001 REDE INTERNET NÃO TRAFEGA LINK DOWN PENDENTE 14/9 11:45


    Se esta informação não ajudar, posso enviar esta planilha para o seu e-mail.

    Mais uma vez, meu muito obrigado.

    Grande abraço.

    Fernando



    • Editado Nando_Rodrigues sábado, 15 de setembro de 2012 02:11 Correção de informações na Tabela
    sexta-feira, 14 de setembro de 2012 23:46
  • Olá Fernando!

    Primeiro: O não funcionamento de seu código é devido a vc estar se referindo a colunas erradas. Note que a coluna que contém o Status é a 11 e não a 12.

    As colunas das datas também estão incorretas: 12 e 13 e não, 13 e 14 como vc fez.

    Com isso, ela volta a funcionar.

    Segundo: Com relação a deixar os textos em maiúsculo, não entendi direito pq vc quer fazer isso na base. Como esta planilha é alimentada?

    Aguardo seus comentários!

    Grande abraço ao Amigo!

    Ivair - ExcelMax Soluções

    sábado, 15 de setembro de 2012 06:30
  • Olá Ivair.

    Em relação a tabela e ao número de colunas, eu esqueci de incluir a Coluna "Breve Descrição da Ação do Solucionador" (K). Assim totalizo 14 colunas.

    Abaixo segue a tabela corrigida.

      A B C D E F G H I J K L M N
    1 Seq Solicitante E-mail Aberto em Hora Nº do Ticket Categoria Subcategoria Situação Breve Descrição do Problema Breve Descrição da Ação do Solucionador Status Data do Status Hora do Status
    2 01 FERNANDO FER@NANDO.COM 11/4 11:30 1000 SOFTWARE SISTEMA FORA DO AR DATACOOP FORA DO AR. APLICADA ATUALIZAÇÃO. CONCLUÍDO 13/9 20:30
    3 02 JOÃO JOAO@NANDO.COM 12/4 15:23 1001 REDE INTERNET NÃO TRAFEGA LINK DOWN AGUARDANDO OPERADORA. PENDENTE 14/9 11:45


    Esta planilha será alimentada manualmente. Assim, para uniformizar a planilha e deixá-la visualmente melhor, inclui esta macro, que transforma a fonte em maiúscula automaticamente.

    Grande abraço.

    Fernando

    sábado, 15 de setembro de 2012 13:49
  • Ivair

    Boa tarde.

    Como faço para poder colocar no script, para poder digitar o nome do diretório onde esta salvo o arquivo e o nome do arquivo?

    Obrigado.

    quinta-feira, 20 de setembro de 2012 20:43
  • Boa noite pessoal.

    Estava buscando como aprimorar uma programação aqui e cheguei até vocês...

    Gostaria de enviar um e-mail via programação VBA com um link para uma pasta específica de um diretório. Não estou conseguindo adicionar o hiperlink ao corpo do email que será enviado...

    Ficaria agradecido com a ajuda !!!

    Obrigado

    Murilo


    segunda-feira, 24 de setembro de 2012 02:52
  • Olá Murilo.

    Não consegui entender sua dúvida.

    Você conseguiria colocar um exemplo de sua necessidade?

    Abs.

    segunda-feira, 24 de setembro de 2012 03:34
  • Fala Nando, boa noite.

    Consegui achar o que queria, obrigado pela ajuda. Mas, como sempre surgem novas dúvidas, rs...

    Vou tentar explicar: bolei uma planilha de alerta para atualizações da mesma, são várias pessoas que a utilizam. A ideia é otimizar a comunicação. Então, eu faço uma alteração, seleciono as pessoas que vão receber e envio um e-mail avisando a alteração e o link da planilha para que as pessoas comentem e retornem para mim. Só que eu não sei como travar as células no VBA, para que a macro não fique enviando o email para todas as pessoas. Você pode me ajudar ? ou alguém do forum ?

    Não sei se tem como anexar por aqui, dai mostro a vocês a planilha.

    Muito obrigado.

    Murilo

    terça-feira, 25 de setembro de 2012 02:18
  • Oi pessoal, eu estou com uma questão parecida. 

    Título Formato N. Pág. Miolo Papel Miolo Capa Papel Capa Finalização Acabamento Tiragem Orçamento
    A educação do corpo 16X23cm 96p. 4 cores Offset 75g/m2 4X0 Cartão Supremo 150g/m2 Costurado e colado Fosco 2000ex. OK
    A formação de professores em São Paulo 16X23cm 0   Offset 75g/m2 4X1 Cartão Supremo 150g/m2 Costurado e colado Fosco 0  

    Preciso de uma macro que, quando eu insira "OK" na última coluna, ela envie os dados (da mesma linha) das demais colunas para um email determinado (é o mesmo em todos os casos). Ou seja, toda vez que eu inserir "OK" na coluna "orçamento" um email automático com as informações daquela linha vai ser enviado. Como fazer isso? alguém pode me ajudar?

    Obrigado!

    terça-feira, 6 de novembro de 2012 19:05
  • Olá, sugiro criar um novo tópico para sua pergunta. Dessa forma, terá mais chances de ser ajudado.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 6 de novembro de 2012 20:48
    Moderador
  • Olá Ivair, gostaria de tirar uma duvida:

    Eu tenho uma planilha parecida com esta, porém, a troca da celula se da por uma função SE que conforme o status altera automaticamente.

    Eu usei seu codigo e so alterei as celulas, porém ele nao envia o email automaticamente, pois so envia quando eu altero manualmente a celula. 

    como faço pra ele enviar email quando a função alterar a celula ( Sem eu preencher a celula manualmente).

    Obrigado.

    sexta-feira, 6 de setembro de 2013 12:30
  • Prezados, boa tarde!

    Utilizei esse material como base para montar o meu, porém a macro só funciona para envio do primeiro e-mail.

    Quando vai para a segunda linha o comando vai para o depurador.

    O que eu posso estar fazendo de errado?

    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 = 7
        texto = Plan1.Cells(1, 5) & vbCrLf & vbCrLf & _
                        Plan1.Cells(linha, 5)

    Do Until Plan1.Cells(linha, 1) = "Final"


            With OutMail
                .To = Plan1.Cells(linha, 4)
                .CC = Plan1.Cells(4, 2)
                .BCC = ""
                .Subject = Plan1.Cells(linha, 7)
                .Body = texto & _
                        Plan1.Cells(linha, 6)
                .Send   'Utilize Send para enviar o email sem abrir o Outlook
            End With
            
            On Error GoTo 0

            Set OutMail = Nothing
            Set OutApp = Nothing
            
        
    linha = linha + 1

    Loop

    End Sub

    quinta-feira, 26 de dezembro de 2013 16:40
  • Olá,

    O tópico ao qual você respondeu é muito antigo. Sugiro que crie um novo tópico com sua pergunta, referenciando este link. Com isso, você aumentará as chances de obter uma resposta e ajudará a manter o fórum organizado.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quinta-feira, 26 de dezembro de 2013 20:28
    Moderador
  • 1º - Como fazer para que o campo "Nº DO TICKET" fique em negrito na mensagem 

    2º - Como definir um e-mail padrão para o envio da mensagem. 

    sexta-feira, 4 de abril de 2014 14:16
  • Bom dia!

    Apresentou um erro no seguinte item:

    .To = Plan1.Cells(linha, 1)

    quinta-feira, 23 de outubro de 2014 13:17