Motorola Razr não liga, luz branca

Hoje me aconteceu um fato interessante, fui ligar meu Motorola Razr e ele não ligava, claro, logo deduzi que a bateria deveria ter descarregado. Conectei o mesmo para carregar e acendeu uma luz branca. Tentei ligar o aparelho e nada.

Solução? Sim, simples.

image

Pressione ao mesmo tempo os botões de Ligar e de reduzir o volume e mantenha-os pressionados por 10 segundos. Isso reinicializará o telefone e na esmagadora maioria dos casos, trará ele “de volta à vida”.

 

Adendo: Pessoal, alguns aparelhos estão com problemas de fabricação mesmo, então se este procedimento não funcionar para você, procure a assistência técnica.

Enviando e-mail em massa com anexo e imagens

Tenho recebido dúvidas se seria possível enviar anexos também com o meu script. Parece que muita gente gostaria disso…

Pois é, a melhor parte é que além de ser possível, é mega simples! Basta adicionar uma única linha. Veja ela em destaque:

Public Sub SepareDrafts()
 
    Dim lDraftItem As Long
    Dim myOutlook As Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim myFolders As Outlook.Folders
    Dim myDraftsFolder As Outlook.MAPIFolder
    Dim objMailMessage As Outlook.MailItem
    Dim emlBody, sendTo As String
    Dim TOs
    
    Set myOutlook = Outlook.Application
    Set myNameSpace = myOutlook.GetNamespace("MAPI")
    Set myFolders = myNameSpace.Folders
    Set myDraftsFolder = myNameSpace.PickFolder
    
    For lDraftItem = myDraftsFolder.Items.Count To 1 Step -1
        TOs = Split(myDraftsFolder.Items.Item(lDraftItem).To, ";")
        For i = 0 To UBound(TOs)
            Set objMailMessage = myOutlook.CreateItem(olMailItem)
            With objMailMessage
                .BodyFormat = olFormatHTML
                .To = TOs(i)
                .Subject = myDraftsFolder.Items.Item(lDraftItem).Subject
                .HTMLBody = myDraftsFolder.Items.Item(lDraftItem).HTMLBody & "<img src=’C:\Temp\image001.png’>"
                .Attachments.Add "C:\Temp\faturamento.xlsx"
                .Display
                .Send
            End With
        Next
    Next lDraftItem
    Set myDraftsFolder = Nothing
    Set myNameSpace = Nothing
    Set myOutlook = Nothing
 
End Sub

 

Para entender todo o script não deixe de ler os posts anteriores!

Enviando individualmente e-mails em massa, com imagem no corpo do e-mail

Enviando individualmente e-mails em massa

Migrando do SBS 2003 para o Windows Server 2008/2008 R2 ou 2012

No passado havia o Transition Pack para quem desejava sair do SBS e passar para um domínio Windows padrão, ocorre que este foi descontinuado, então muita gente passou a acreditar que não seria mais possível a migração. Para pequenos empresários isso foi um grande susto, mas não passava de um susto, pois ainda é possível.

Outros afirmar que a migração não seria mais suportada. Sim e não. Ela não é mais suportada pelo time de SBS, mas continua sendo suportada em duas situações:

  1. o time de suporte do Windows dá suporte para correção de erros que ocorram no Windows;
  2. Erros em aplicativos (Exchange, SharePoint, etc) passam a ser suportados pelos respectivos times.

Ok, mas como se faz isso então?

Resposta simples: Na unha!

Para técnicos isso é sinônimo de demora e algumas emoções, por outro lado, também é sinônimo de total controle.

Pois vamos aos passos então:

Transição

  • Comece como de praxe conferindo se tudo está funcionando corretamente, pois se já tiver algo errado antes de começar, depois será uma luta para resolver, uma vez que iniciará o processo de solução acreditando ter o problema sido causado pela migração. Nesta etapa execute todos os Health Checks como dcdiag, BPA for SBS 2003, 2008 e 2011, além do BPA for Exchange;

Health Check do AD: http://blogs.technet.com/b/ptsblog/archive/2011/11/14/performing-an-active-directory-health-check-before-upgrading.aspx

BPA do SBS 2003: http://www.microsoft.com/en-us/download/details.aspx?id=5334

  • Não esqueça de fazer um backup total do servidor, principalmente do System State, nem de testar a restauração do Backup, ANTES de começar;

http://technet.microsoft.com/en-us/library/cc787254(v=ws.10)

http://support.microsoft.com/kb/974674

 

Hora de mover os aplicativos: