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:
- Abra o Outlook e pressione Alt + F11 para exibir o Editor do Visual Basic;
- Nesta tela clique em Inserir e depois em Módulo;
- Copie o código abaixo e cole ele na área à direita;
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
- 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!
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
Então repare que a caixa de diálogo abrirá do lado esquerdo de sua tela, com tua o que você havia copiado anteriormente.
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.
