Redução de velocidade de vias sem fundamento.

Até onde será que vai a burrice de um governante? Ou melhor, até onde será que vai a burrice de um cidadão eleitor?

Veja só, o líder populacional diminui a velocidade de uma via baseado no ranking que ela possui na estatística de acidentes. Muito bem! Ela cai algumas posições e outras vias sobem para o lugar dela. Dia seguinte ele baixa a velocidade destas que subiram no ranking (por causa da ação anterior deste idiota), elas voltam ao seu lugar de origem no ranking e o ciclo recomeça. Será que é muito difícil de perceber que isso só irá terminar quando for extinta a circulação de veículos? Pior que isso é que tem gente apoiando essa boçalidade!

Enquanto há veículos sempre haverá um ou outro acidente para gerar um ranking e esse ranking sempre será uma desculpa para deixar a cidade mais lenta até a completa parada.

E quem disse que política brasileira é complexa? Lamentável!

CCO automático no Outlook 2013

Você não confia no seu computador para manter seus emails de trabalho nele porque ele vive dando pau?

Manter uma cópia desses emails em um email gratuito da internet (p.ex Gmail) pode ser uma solução para diminuir essa preocupação.

No Outlook 2013 pode-se facilmente criar uma regra para redirecionar todo e qualquer email que entra, a um endereço de email de bakcup qualquer mas as mensagens que são enviadas você precisa colocar manualmente esse endereço de email no CCO/BCC toda vez que criar uma mensagem.

Se você tem um leve conhecimento de macros esse serviço braçal pode ser evitado com esta macro abaixo que vai automatizar esse processo manipulando todos os emails na Caixa de Saída e automaticamente inserindo um endereço de email no CCO/BBC:

Private Sub Application_ItemSend(ByVal Item As Object, _
Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next

' #### EMAIL CÓPIA OCULTA ####

strBcc = "email_bkp@gmail.com"
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "Could not resolve the Bcc recipient. " & _
"Do you want to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc")
If res = vbNo Then
Cancel = True
End If
End If

Set objRecip = Nothing
End Sub

Essa macro deve ser inserida no ThisOutlookSession:

Enjoy! =)