- 04 Mai 2015 às 08:24
#616
Bomm diaa, então criei a macro abaixo para enviar e-mail segundo as necessidades da contabilidade onde trabalho ( não entendo nada, nem sei como consegui criar isso sozinha kkkk) mas ela ate que funciona direitinho 
, mas não consigo fazer ela rodar em todas as abas da planilha...
Se alguem puder me ajudar
to num nivel de desespero ja rs
Obrigada!
Private Sub Workbook_Open()
linhadados = 1
conta = 0
Do While Sheets(19).Cells(linhadados, 5).Value <> ""
If Sheets(19).Cells(linhadados, 5).Value <= 30 Then
Call CriaEmail(Cells(linhadados, 6), " Prazo de renovação expirando URGENTE!!", "Prezado faltam " & Cells(linhadados, 5) & " dias,ou mais para renovação do Certificado" & " da empresa CNPJ:" & Cells(linhadados, 1))
conta = conta + 1
End If
linhadados = linhadados + 1
Loop
MsgBox ("Foi enviado " & conta & " emails")
End Sub
Sub CriaEmail(Destinatario As String, assunto As String, mensagem As String)
Dim objOutlook As Object
Dim objMail As Object
'Cria um novo item de email e altera suas propriedades
Set objOutlook = CreateObject("Outlook.Application")
'Cria uma nova instancia de item de email
Set objMail = objOutlook.Application.CreateItem(olMailItem)
With objMail
.To = Destinatario
.Subject = assunto
.Body = mensagem
.Display
End With
End Sub
, mas não consigo fazer ela rodar em todas as abas da planilha... Se alguem puder me ajudar
to num nivel de desespero ja rs
Obrigada!
Private Sub Workbook_Open()
linhadados = 1
conta = 0
Do While Sheets(19).Cells(linhadados, 5).Value <> ""
If Sheets(19).Cells(linhadados, 5).Value <= 30 Then
Call CriaEmail(Cells(linhadados, 6), " Prazo de renovação expirando URGENTE!!", "Prezado faltam " & Cells(linhadados, 5) & " dias,ou mais para renovação do Certificado" & " da empresa CNPJ:" & Cells(linhadados, 1))
conta = conta + 1
End If
linhadados = linhadados + 1
Loop
MsgBox ("Foi enviado " & conta & " emails")
End Sub
Sub CriaEmail(Destinatario As String, assunto As String, mensagem As String)
Dim objOutlook As Object
Dim objMail As Object
'Cria um novo item de email e altera suas propriedades
Set objOutlook = CreateObject("Outlook.Application")
'Cria uma nova instancia de item de email
Set objMail = objOutlook.Application.CreateItem(olMailItem)
With objMail
.To = Destinatario
.Subject = assunto
.Body = mensagem
.Display
End With
End Sub
