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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Envio de e-mail conteúdo da Celula

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Anacleto



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

MensagemAssunto: Envio de e-mail conteúdo da Celula   Sab 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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Anacleto



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

MensagemAssunto: Re: Envio de e-mail conteúdo da Celula   Seg 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Envio de e-mail conteúdo da Celula
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Erro envio de e-mail via outlook no windows server 2003
» Envio de Mensagens privadas para o e-mail após limite
» #768 #479 #668 Problemas no envio de newsletter nos formatos html e texto
» [DÚVIDA] Como visualizar conteúdo do E-mail?
» Fórum não está enviando para o e-mail respostas aos tópicos que "assino"

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: