adaptar envio de email [resolvido]
Enviado: Dom Nov 17, 2013 7:09 pm
OLa a todos os execlistas,
Mais uma vez preciso da vossa ajuda, estou com alguma dificuldade em adaptar uma nova parte ao modelo de cadastaro
Passo a exlicar:
eu acrescentei uma coluna que define a validade dos dados como "valido" ou "caducado" coluna AF, queria sempre que o estado seja Caducado (coluna AF) envie email com a informação das colunas AA, AB,AC,AD e AE , no texto do email.
encontrei esta macro mas estou com dificuldade em fazer com que va buscar os dados, esta macro seria para ser acionada por um botão no form cadastro.
Sub Enviar_EMail()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
On Error GoTo limpa
For Each cell In Columns("N").Cells.SpecialCells(xlCellTypeConstants)
'verifica se o email é valido e se o cliente possui o estados A (atrasado)
If cell.Value Like "?*@?*.?*" And LCase(Cells(cell.Row, "AF").Value) = "a" Then
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Aviso"
.Body = "Caro " & Cells(cell.Row, "B").Value _
& vbNewLine & vbNewLine & _
"Entre em contato com nosso serviço de cobrança " & _
"os seguintes documentos estão caducados" '(aqui seria para inserir os valores das colunas AA, AB,AC,AD e AE)
'Podemos enviar um anexo
.Attachments.Add ("c:\dados\carta.txt")
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
MsgBox ("Email enviado com sucesso..." & " para " & Cells(cell.Row, "B").Value)
End If
Next cell
limpa:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Mais uma vez preciso da vossa ajuda, estou com alguma dificuldade em adaptar uma nova parte ao modelo de cadastaro
Passo a exlicar:
eu acrescentei uma coluna que define a validade dos dados como "valido" ou "caducado" coluna AF, queria sempre que o estado seja Caducado (coluna AF) envie email com a informação das colunas AA, AB,AC,AD e AE , no texto do email.
encontrei esta macro mas estou com dificuldade em fazer com que va buscar os dados, esta macro seria para ser acionada por um botão no form cadastro.
Sub Enviar_EMail()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
On Error GoTo limpa
For Each cell In Columns("N").Cells.SpecialCells(xlCellTypeConstants)
'verifica se o email é valido e se o cliente possui o estados A (atrasado)
If cell.Value Like "?*@?*.?*" And LCase(Cells(cell.Row, "AF").Value) = "a" Then
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Aviso"
.Body = "Caro " & Cells(cell.Row, "B").Value _
& vbNewLine & vbNewLine & _
"Entre em contato com nosso serviço de cobrança " & _
"os seguintes documentos estão caducados" '(aqui seria para inserir os valores das colunas AA, AB,AC,AD e AE)
'Podemos enviar um anexo
.Attachments.Add ("c:\dados\carta.txt")
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
MsgBox ("Email enviado com sucesso..." & " para " & Cells(cell.Row, "B").Value)
End If
Next cell
limpa:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub