Enviando individualmente e-mails em massa

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);


image



  • 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;


image



  • 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, Smiley piscando;
  • 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.


Windows Phone: recursos interessantes

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

image

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.

image

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

image

Agora é só selecionar o que deseja…

image

Windows Phone: Risco de migrar para @outlook.com

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

image

Então em mais configurações de e-mail

image

Aí em renomear seu endereço de e-mail

image

Escolher a terminação que deseja entre: @outlook.com, @hotmail.com, @hotmail.com.br ou @live.com

image

Você receberá um alerta que poucas pessoas lêem e portanto não se dão conta do risco que correm

image

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.

Adicionando o dígito 9 para quem usa o código da operadora

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.