Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Envio de e-mail conteúdo da Celula

Ir para baixo 
AutorMensagem
Anacleto




Mensagens : 86
Data de inscrição : 04/04/2012

Envio de e-mail conteúdo da Celula Empty
MensagemAssunto: Envio de e-mail conteúdo da Celula   Envio de e-mail conteúdo da Celula EmptySáb Abr 11, 2015 9:21 pm

Boa Tarde,

Preciso criar uma rotina em uma planilha de gerenciamento de serviços, onde uma macro deve enviar um e-mail que está contido na Coluna "A" com as informações contidas em todas as colunas relativas a sua linha. O e-mail será disparado automaticamente quando o status da coluna "F", que contém o status, for alterado para ""Em analise" e "Concluído".
Link do Arquivo abaixo. Este exemplo pegue da internet, porem não está funcionando, já tentei de várias formas, porem sem sucesso.

http://www.4shared.com/file/qGzwC-Iuce/Macro_para_enviar_contedo_de_C.html
Desde já agradeço a atenção de todos.
Ir para o topo Ir para baixo
Anacleto




Mensagens : 86
Data de inscrição : 04/04/2012

Envio de e-mail conteúdo da Celula Empty
MensagemAssunto: Re: Envio de e-mail conteúdo da Celula   Envio de e-mail conteúdo da Celula EmptySeg Abr 20, 2015 3:40 am

Boa Noite!

Estou utilizando este código, porem não funciona.
Alguém teria alguma solução?

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 & vbCrLf & _
"A O.S. " & Plan1.Cells(linha, 7) & " aberta em " & _
Plan1.Cells(linha, 2) & " foi concluída." & vbCrLf & _
" Veja informações abaixo:" & vbCrLf & _
" Status: " & Plan1.Cells(linha, 6) & vbCrLf & _
" Ação tomada: " & Plan1.Cells(linha, 5) & vbCrLf & vbCrLf & _
"Atenciosamente," & vbCrLf & _
"Help Desk"
End If

With OutMail
.To = Plan1.Cells(linha, 1)
.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
Ir para o topo Ir para baixo
 
Envio de e-mail conteúdo da Celula
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Interromper o envio de e-mail após um determinado valor na celula.
» envio de e-mail utilizando recursos do VBA
» Alteração do código de envio via e-mail
» Planilha de pendências com envio de e-mail
» Célula recebe dígito e pula para próxima célula

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: