About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2007-03-17
 
Num newsgroup de Excel, perguntou-se como se poderia criar uma mensagem no Outlook, para avisar determinada pessoa, que já passaram mais do que três dias sobre a data limite e que, por, isso, essa pessoa deveria contactar os serviços, com urgência.
 
Supondo que, em A1, temos a data inicial, ou seja, a data limite (no exemplo: 07-03-2007) e que, em B1, temos a data actual, representada pela fórmula =TODAY()
 
Então, em C1, teremos o resultado da diferença entre B1 e A1, ou seja, a fórmula =B1-A1
 
E, para identificarmos a pessoa que está em falta, através do seu endereço de e-mail, no caso de já estar fora dos parâmetros introduzidos, colocamos, em F1, a seguinte fórmula:
 
=IF(C1>3;"jordao@junior.com";"")
 
Vejamos a imagem do exemplo:
 
Criamos agora um botão de comando, que há-de conter o seguinte código:
 

Private Sub CommandButton1_Click()
    Dim oOutlook As Object
    Dim oMailItem As Object
    Dim oRecipient As Object
    Dim oNameSpace As Object

    Set oOutlook = CreateObject("Outlook.Application")
    Set oNameSpace = oOutlook.GetNameSpace("MAPI")
    oNameSpace.Logon , , True


    Set oMailItem = oOutlook.CreateItem(0)
    Set oRecipient = _
    oMailItem.Recipients.Add(Range("F1").Value)
    oRecipient.Type = 1


    With oMailItem
        .Subject = "ATENÇÃO!"
        .Body = "Já passaram mais de 3 dias! Contacte o Serviço com urgência!"
        .Display
    End With

End Sub

 

O resultado será este: