agosto 2012 - Posts
Suponhamos que você deseje enviar exatamente o mesmo e-mail para várias pessoas, de forma automatizada, sem precisar utilizar nenhum software além do próprio Outlook.
IMPORTANTE: LEIA TUDO ANTES DE EXECUTAR, PARA EVITAR EFEITOS INDESEJADOS. Se possível, não use para SPAM.
Como fazer?
Muito simples:
- Crie uma mensagem nova e insira nela os endereços de todos os destinatários que deseja, com seus e-mails separados por “;”, que já é o padrão do Outlook;
- Digite um assunto para a mensagem;
- Digite o corpo do e-mail;
- Clique em Salvar (ícone de disquete no topo da tela);
- Pronto sua mensagem será colocada na pasta de Rascunhos;
- Agora pressione Alt + F11 em seu teclado para abrir o Editor do Visual Basic;
- Clique em Inserir e depois em Módulo;
- Copie o código abaixo e cole ele na área a direita;
Public Sub SepareRascunhos()
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(0)
With objMailMessage
.To = TOs(i)
.Body = myDraftsFolder.Items.Item(lDraftItem).Body
.Subject = myDraftsFolder.Items.Item(lDraftItem).Subject
.Display
.Send
End With
Next
Next lDraftItem
Set myDraftsFolder = Nothing
Set myNameSpace = Nothing
Set myOutlook = Nothing
End Sub
- No Editor do Visual Basic execute a macro clicando no botão de Play;
- Você será indagado sobre em qual pasta está o rascunho. Escolha a pasta onde o colocou e clique em OK;
- O ideal é que tenha apenas uma mensagem lá, como no exemplo, para evitar comportamentos indesejados. Se tiver mais de uma, aconselho a apagar as outras ANTES de executar a macro. Caso não siga esta orientação, não reclamar depois se obtiver resultados indesejados,
;
- Você deve estar se perguntando: Mas por que a própria macro não pega direto a pasta de rascunhos? Porque você pode gostar tanto desta macro que venha a criar uma pasta específica para um modelo de e-mail e passe a usá-la sempre, liberando desta forma a pasta dos rascunhos;
- Agora é só conferir nos e-mail enviados e verá que as mensagens foram todas enviadas satisfatoriamente.
Antes de usar o código em produção, faça um teste para contas de e-mail suas e verifique se o resultado obtido é o que deseja, pois depois de ter enviado o e-mail para seus contatos não adiantará mais ficar insatisfeito!
Observação: Este código é para o envio de mensagens de texto simples (sem anexos, nem imagens no corpo da mensagem), se deseja anexar imagens, verifique meu outro post sobre o mesmo assunto.
Aqui falo de alguns recursos interessantes do Windows Phone, mas em muitos casos pouco explorados.
Digamos que você não encontra seu telefone em casa e no momento não dispõe de outro aparelho a fim de ligar para ele.
Simples, acesse o site http://www.windowsphone.com, logue com o seu live ID e clique em Meu Telefone
Aqui você tem vários recursos interessantes disponíveis. Desde o localizar meu telefone, que pode ser bem útil em caso de perda ou roubo, como por exemplo se esqueceu ele no escritório ou na casa de um amigo e deseja localizá-lo.
Basta clicar no link de localização que será mostrado no mapa onde seu aparelho se encontra.
Mas caso deseje usar os recursos de fazer o telefone tocar, bloquear ele ou apagar seus dados, clique no link abaixo do mapa
Agora é só selecionar o que deseja…
Para criar um alias acesse as configurações de e-mail de sua conta do live conforme descrito aqui.
Então selecione a opção para criar um alias
Então informe o seu novo alias que pode ter as seguintes terminações: @outlook.com, @hotmail.com, @hotmail.com.br ou @live.com.
A criação do alias é importante para reservar sua conta, antes que outra pessoa a registre.
Traduzido de Windows Phone Central.
Se você utiliza um Windows Phone, pense bem antes de migrar sua conta live para o novo @outlook.
Muitas pessoas estão aproveitando o lançamento do @outlook para abandonarem suas antigas contas @hotmail, @msn ou @live.
Porém se você utiliza um Windows Phone deve ter cuidado antes de fazer esta migração, pois apesar de ser muito simples no site do live, uma vez que basta clicar em configurações
Então em mais configurações de e-mail
Aí em renomear seu endereço de e-mail
Escolher a terminação que deseja entre: @outlook.com, @hotmail.com, @hotmail.com.br ou @live.com
Você receberá um alerta que poucas pessoas lêem e portanto não se dão conta do risco que correm
Caso continue TODAS as funções de seu telefone que usem o seu endereço anterior PARARÃO de funcionar, incluindo o Marketplace, Xbox Live, Skydrive, e-mail e outras.
Para que estas funções voltem a funcionar você deverá executar uma restauração de fábrica, também conhecida como hard reset. A forma de realizar este procedimento varia de aparelho para aparelho e portanto deve ser procurada no manual do usuário de seu telefone ou no site do fabricante.
Vale salientar outro fato: Ao realizar um hard reset TODOS seus dados pessoais serão apagados, incluindo suas mensagens de SMS, escores e progressos do Xbox Live, configurações de aplicativos, etc.
O mais recomendável é não migrar o seu perfil agora, apenas criar um alias com o @outlook.com, aguardar o lançamento do Windows Phone 8 e então, quando for trocar de telefone, fazer a migração já para o novo aparelho.
Traduzido de Windows Phone Central.
Hoje fui acessar a página do Microsoft Answers e que grata surpresa tive ao ver esta tela…
Fiquei ainda mais motivado para responder dúvidas! Valeu Answers!
Ontem falando com um amigo, ele me disse que sempre armazenava os telefones com o código da operadora na frente e que portanto meu código não funcionaria para ele. Pois aqui está o código adaptado para este tipo de cenário.
De quebra ele ainda adiciona os parênteses, os espaços e os hifens aos números onde o 9 já havia sido adicionado.
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
newTel = LTrim(RTrim(Replace(Replace(Replace(Replace(RTrim(objItem.MobileTelephoneNumber), "(", ""), ")", ""), "-", ""), " ", "")))
Select Case Len(newTel)
Case 10
If Left(newTel, 2) = "11" Then
objItem.MobileTelephoneNumber = "(" & Left(newTel, 2) & ") 9" & Left(Right(newTel, Len(newTel) - 2), 4) & "-" & Right(newTel, 4)
objItem.Save
End If
Case 11
If Left(newTel, 3) = "011" Then
objItem.MobileTelephoneNumber = "(" & Left(newTel, 3) & ") 9" & Left(Right(newTel, Len(newTel) - 3), 4) & "-" & Right(newTel, 4)
objItem.Save
ElseIf Left(newTel, 3) = "119" Then
objItem.MobileTelephoneNumber = "(" & Left(newTel, 2) & ") " & Left(Right(newTel, Len(newTel) - 2), 5) & "-" & Right(newTel, 4)
objItem.Save
End If
Case 12
If Left(newTel, 4) = "0119" Then
objItem.MobileTelephoneNumber = "(" & Left(newTel, 3) & ") " & Left(Right(newTel, Len(newTel) - 3), 5) & "-" & Right(newTel, 4)
objItem.Save
End If
Case 13
If Right(Left(newTel, 5), 2) = "11" Then
objItem.MobileTelephoneNumber = Left(newTel, 3) & " (" & Right(Left(newTel, 5), 2) & ") 9" & Left(Right(newTel, Len(newTel) - 5), 4) & "-" & Right(newTel, 4)
objItem.Save
End If
End Select
Next
End If
Set objItems = Nothing
Set objItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Sub
Para saber como utilizar este código veja a explicação neste post.
