Adicionando o dígito 9 aos números do prefixo 011

Recentemente uma resolução da ANATEL determinou que devemos adicionar o dígito 9 a todos números de celulares do prefixo 011. Esta tarefa feita manualmente seria um gigantesco transtorno para quem possui muitos registros, portanto o ideal é usar um script para tanto.



Como nem todos sabem criar estes scripts, disponibilizo aqui um para o Outlook 2010 (que também deve funcionar no 97, 2003 e 2011).



 



Detalhe MUITO importante:



Este código não funcionará para quem armazena o código da operadora antes do número do telefone! Neste caso use a orientação constante neste post.




Como utilizá-lo:



  1. Abra o Outlook e pressione Alt + F11 para exibir o Editor do Visual Basic;

    image

  2. Nesta tela clique em Inserir e depois em Módulo;
  3. Copie o código abaixo e cole ele na área à direita;

    image

               
  4. Sub AlteraTelefones()
      ‘Autor: Carlos Fernando Paleo da Rocha
      Dim objApp As Application
      Dim objNS As NameSpace
      Dim objFolder As MAPIFolder
      Dim objItems As Items
      Dim objItem As Object
      Dim newTel As String

      Set objApp = CreateObject(“Outlook.Application”)
      Set objNS = objApp.GetNamespace(“MAPI”)
      Set objFolder = objNS.PickFolder
      If Not objFolder Is Nothing Then
        Set objItems = objFolder.Items
        For Each objItem In objItems
            If Len(objItem.MobileTelephoneNumber) = 11 Or Len(objItem.MobileTelephoneNumber) = 10 Then
                    newTel = LTrim(RTrim(Replace(Replace(Replace(Replace(RTrim(objItem.MobileTelephoneNumber), “(“, “”), “)”, “”), “-“, “”), ” “, “”)))
                    If Left(newTel, 3) = “011” Then
                        newTel = Left(newTel, 3) & 9 & Right(newTel, Len(newTel) – 3)
                        objItem.MobileTelephoneNumber = “(” & Left(newTel, 3) & “) ” & Right(newTel, Len(newTel) – 3)
                        objItem.Save
                    ElseIf Left(newTel, 2) = “11” Then
                        newTel = Left(newTel, 2) & 9 & Right(newTel, Len(newTel) – 2)
                        objItem.MobileTelephoneNumber = “(” & Left(newTel, 2) & “) ” & Right(newTel, Len(newTel) – 2)
                        objItem.Save
                    End If
            End If
        Next
      End If
      Set objItems = Nothing
      Set objItem = Nothing
      Set objFolder = Nothing
      Set objNS = Nothing
      Set objApp = Nothing
    End Sub

    image

  5. Pronto, o processo é super rápido e seus telefones já estarão ajustados. Agora é só sincronizar o celular com o Outlook para ter todos telefones dele corrigidos também!

Usando o Outlook 2011 para obter e-mails via POP3

Siga os passos a seguir:

  • Abra o Outlook 2011 (versão para Mac);
  • Clique em Accounts e depois em em Email Account;

MAC_MSO11_POP2010_1

  • Informe no campo E-mail address a sua conta e em Password a sua senha. Então escolha POP no menu drop-down e o endereço do servidor nos campos Incoming server e Outgoing server. Caso necessite usar uma porta específica, como no exemplo abaixo, selecione a caixa de controle Override default port e informe a porta adequada ao lado do endereço do servidor. Caso necessite de conexão segura, selecione Use SSL to connect (recommended).
  • Clique em Add Account.

How-Configure-Pop3-Account-Outlook-2011-Mac-exchange-2010-1

Usando o Clipboard do Excel

Muitas vezes vejo pessoas reclamando que em versões anteriores do Excel tinham acesso direto ao Clipboard e não tem mais na versão atual.

Isso causa um transtorno pois se você copia um conjunto de células, desejando replicar seu conteúdo em outras colunas, as cola na primeira coluna e então resolve digitar o título para a próxima coluna, ou realizar qualquer outro tipo de alteração, “perde” a possibilidade de seguir colando aquele texto anteriormente copiado.

Pois isto não é verdade! Você pode seguir colando o texto inicial, ou até mesmo os anteriores a ele, tantas vezes quantas desejar, basta que para isto utilize a caixa de diálogo do Clipboard do Excel.

Para acessá-la, clique no pequeno ícone na parta inferior à direita da Área de Transferência do Ribbon

image

Então repare que a caixa de diálogo abrirá do lado esquerdo de sua tela, com tua o que você havia copiado anteriormente.

image

Para utilizar qualquer conteúdo que houvesse copiado anteriormente basta clicar nele. Caso deseje remover algo do Clipboard, basta clicar na seta a direita do conteúdo e selecionar Excluir.