Este fórum está sendo desativado

[Zukoski]

Senhores, tenho um programa simples em VBA para envio de e-mail´s automáticos, mais o mesmo quando anexado ao outlook não esta conseguindo mostrar as imagens da formatação condicional e manigráficos. Alguém pode me ajudar? Grato

programa:
Sub email()



Sheets("PR-e-mail").Select
Dim linha
linha = Range("a10000").End(xlUp).Row
Range("A1:x85" & linha).Select


ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope

.Item.To = Range("grmail").Value

.Item.CC = Range("cccopia").Value

.Item.Subject = "Ruptura Loja e CD - " & Format(Now, "dd/mm/yy")



.Item.Send

End With
ActiveWorkbook.EnvelopeVisible = False


End Sub

[wesleyribeiro123]

Zukoski
Boa tarde,

Não nada de errado em teu código...
Fiz um teste aqui em minha máquina e rodou perfeitamente!!!

Gerou a formatação condicional e td mais...

[Zukoski]

Wesley Coelho Boa tarde, desde já grato pelo seu retorno. Não sei o que acontece, mais aqui não da certo.

[Renanop]

Ola pessoal,

tenho pouco mas muito pouco de conhecimento em VBA , e preciso de uma ajuda.

Tenho que fazer controle de contratos e suas vigências, ou seja sempre que a celular aparecer "FORA DO PRAZO" um email é disparado automaticamente para os responsáveis da área, ja li diversos site artigos aulas, porem não consigo executar, estou encaminhado o código no qual eu consegui criar, mas não estou tendo sucesso .

Seguindo a ordem fornecedor coluna "A " e assim por diante

Fornecedor Valor do contrato Vigencia do contrato STATUS
X xxxxx,xx 17/10/2018 NO PRAZO


Tentei outras formas, apanhei um pouco para achar uma maneira certa, porem praticamente tenho que abrir sempre a planilha para funcionar, e gostaria que fosse automático que esses dados focem enviados automaticamente. essa macro tem que rodar pelo menos a cada 15 dias


Nao sei se o post esta correto mas preciso da ajuda de vc



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, 4) = "FORA DO PRAZO" Then
texto = "Prezado(a)" & vbCrLf & vbCrLf & _
"O Contrato do fornecedor" & Plan1.Cells(linha, 1) & " se encerra na data " & _
Plan1.Cells(linha, 3) & vbCrLf & _
" Veja informações abaixo:" & vbCrLf & _
" Fornecedor " & Plan1.Cells(linha, 1) & vbCrLf & _
" Valor do contrato : " & Plan1.Cells(linha, 2) & vbCrLf & vbCrLf & _
"Atenciosamente," & vbCrLf & _
""
End If

With OutMail
.To = Plan1.Cells(linha, 1)
.CC = ""
.BCC = ""
.Subject = "Contratos a vencer"
.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