fevereiro 2013 - Posts
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.

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.
Amigos, mais livros grátis sobre Windows 8, aproveitem!

Basta divulgar o download no Facebook, Twitter ou Google+ (através do botões da página e depois fazer o download do livro (ambos em inglês).
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
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:
- o time de suporte do Windows dá suporte para correção de erros que ocorram no Windows;
- 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
- Instale o novo Servidor Windows, no novo hardware (se você desejava fazer uma migração in-place, aí a coisa seria bem mais complexa) e integre ele ao domínio existente do SBS;
- Faça upgrade do Schema do AD no SBS para o do novo SO;
- Insira o DVD do novo SO no servidor SBS;
- Localize a pasta: Drive:\Sources\Adprep;
- Execute os seguintes comandos:
- adprep /forestprep
- adprep /domainprep
- Promova o novo servidor a Domain Controler e servidor DNS;
- Torne o novo servidor um Global Catalog;
- Migre a base do DHCP.
Hora de mover os aplicativos:
- Comece pelo Exchange;
- Caso o seu SBS seja o 2003, ANTES de mover as FSMO, instale este um update para ampliar o prazo de migração de 7 para 21 dias, evitando assim, reinicializações desnecessárias;
- Agora sim, transfira as FSMO;
- http://support.microsoft.com/default.aspx?scid=kb;EN-US;255504.
- Ao final desta transferência, você 21 dias para concluir quaisquer outras migrações, graças ao update mencionado anteriormente. Após este prazo o SBS começará a reinicializar de forma errática, vários serviços serão desativados desordenadamente, em resumo, fortes emoções…
- Finalizadas todas migrações e testes subsequentes, rebaixe (demote) o SBS e remova ele do domínio.