Envio de Email

[Bruno_BRP]

bom dia !

 

Tenho uma macro que envia o email informando uma situação dentro do Excel mas tenho que ficar abrindo o arquivo todo dia para que isso ocorra , tenho o codigo que estou usando para isso acontecer , gostaria de uma forma de automatizar esse envio para todo dia entre 8 e 9 horas da manha saísse essa informação para os remetentes 

 

como uso o outlook diariamente queria fazer uma macro no próprio para abrir o arquivo e ativar a macro e apos o envio fechar o arquivo 

 

 

 

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) = "1" Then
            texto = "Prezado(a) " & Plan1.Cells(3, 1) & "," & vbCrLf & vbCrLf & "Faltam" & " " & Plan1.Cells(2, 4) & " Dias para o inicío de suas férias em caldas novas" & vbCrLf & vbCrLf & "#Cerveja" & vbCrLf & vbCrLf & "#Viagem" & vbCrLf & vbCrLf & "#Aguas quentes "
            
                       
                  
        End If

        With OutMail
            .To = Plan1.Cells(linha, 1)
            .CC = ""
            .BCC = ""
            .Subject = "Férias em Caldas Novas"
            '.HTMLBody = texto
            .Body = texto
            'send
            .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

 

 

 

 

 

 

 

 

alguém pode me dar uma ajuda 

 

obrigado 

 

 

 

[FMattos]

Você não consegue utilizar o agendador de tarefas do windows para que ele abra o arquivo no horário determinado?

[Bruno_BRP]

estou na empresa, e isso não é possível aqui 

6 minutos atrás, FMattos disse:

Você não consegue utilizar o agendador de tarefas do windows para que ele abra o arquivo no horário determinado?

 

 

estou na empresa, e isso não é possível aqui 

[FMattos]

existe um evento chamado OnTime ( Application.OnTime) onde você pode determinar um horário específico para executar seu procedimento.

Abra o editor VBA e clique em Ajuda, Digite Application.OnTime e leia para ter melhores exemplos.

 

Vi isso no Social MSDN, pode ser que ajude.

 

Não consegue conversar com o pessoal da TI para liberar o agendador de tarefas? é uma ferramenta nativa do SO, não vejo problema na utilização.

[Bruno_BRP]

11 minutos atrás, FMattos disse:

existe um evento chamado OnTime ( Application.OnTime) onde você pode determinar um horário específico para executar seu procedimento.

Abra o editor VBA e clique em Ajuda, Digite Application.OnTime e leia para ter melhores exemplos.

 

Vi isso no Social MSDN, pode ser que ajude.

 

Não consegue conversar com o pessoal da TI para liberar o agendador de tarefas? é uma ferramenta nativa do SO, não vejo problema na utilização.

 

 

vou tentar ver algo sobre esse ontime e tambem com o TI 

 

obrigado por enquanto 

[Bruno_BRP]

23 minutos atrás, Bruno_BRP disse:

 

 

vou tentar ver algo sobre esse ontime e tambem com o TI 

 

obrigado por enquanto 

 

 

o ontime não me ajuda por que o arquivo estara fechado , caso eu queira deixar ele aberto iria funcionar