EXCELer Tudo sobre EXCEL em Português
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:
