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

Recebi vários questionamentos no meu post anterior (Enviando individualmente e-mails em massa), sobre como fazer para alterar o código e adicionar imagens a ele. Pois aquele código foi elaborado para o envio de texto simples, para adicionar imagens precisamos alterá-lo para o envio como HTML.

IMPORTANTE: LEIA TUDO ANTES DE EXECUTAR, PARA EVITAR EFEITOS INDESEJADOS. Se possível, não use para SPAM.

Realize os mesmos passos descritos na minha postagem anterior, mas utilize o código abaixo, ao invés daquele original.

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:\Imagem\image001.png’>" ‘Lembre de ajustar a parte entre os apóstrofos para o caminho correto de sua imagem
                .Display
                .Send
            End With
        Next
    Next lDraftItem
    Set myDraftsFolder = Nothing
    Set myNameSpace = Nothing
    Set myOutlook = Nothing
 
End Sub

 

Todas as explicações sobre o funcionamento estão no post anterior, por isso é importante ler ele antes de executar.

Este novo código irá adicionar uma imagem no final do seu texto. Caso deseje adicioná-la no meio dele, você criar o texto inteiro, com as imagens através do código, o que lhe dará a possibilidade de personalizar ainda mais suas mensagens.

Antes de usar o código em produção, leia o post anterior (Enviando individualmente e-mails em massa), 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!

Ferramentas para Web Designers

Você é Web Designer e deseja ferramentas completas e fáceis de usar, mas não deseja gastar fortunas para obtê-las?



Já conhece as ferramentas Expression?



Microsoft Expression



Você sabia que desde 20/12/2012 elas passaram a ser gratuitas?



Segundo Rodrigo de Carvalho (@rodrigoorzari), Gerente de Produtos, Visual Studio & Expression, o advento de aplicações que possuem uma interface mais rica e interativa, que utilizam computação em nuvem e rodam em dispositivos criou uma nova oportunidade para as ferramentas de design e desenvolvimento.



Em sintonia com a evolução das tecnologias a Microsoft mantém o compromisso de criar ferramentas modernas e inovadoras para a construção de aplicações e está consolidando suas ofertas de design e desenvolvimento (Expression e Visual Studio), oferecendo a seus clientes uma solução unificada que traz, num mesmo ambiente, funcionalidades e recursos para o desenvolvimento web e dispositivos móveis.



As ferramentas disponíveis são:



  • Expression Blend para Visual Studio 2012: Oferece capacidades avançadas, focados em design para o Visual Studio, com foco em aplicativos para a Windows Store e para Windows Phones. Faça o download dele aqui: download. Caso você ainda não tenha o Visual Studio, pode testá-lo aqui: Try Visual Studio 2012 ou obter o Visual Studio já com o Blend aqui: Download Blend + SketchFlow Preview for Visual Studio 2012.
  • Expression Web: A Web agora também refere-se a aplicativos, além de sites tradicionais, o que requer um novo conjunto de ferramentas. Todas ferramentas web foram incorporadas ao Visual Studio, que lhe permite fazer o design, desenvolvimento e manutenção de websites e aplicações web, tornando fácil a construção de sites usando CSS, HTML5 e JavaScript, com recursos de debug. O Expression Web não receberá mais atualizações, em função desta integração de seus recursos ao Visual Studio, mas a versão 2012 dele está disponível para download gratuito aqui: Download Expression Web 4 SP2, Free Version.
  • Expression Encoder: Interessado em codificação de vídeos, conversão de formatos ou streaming como parte do Windows Azure Media Services? Neste caso estão disponíveis duas opções do Encoder. A gratuita, disponível para download em Download Expression Encoder 4 SP2 e a paga (Pro), que pode ser adquirida em Buy Expression Encoder 4 Pro.
  • Expression Design: Você deseja uma ferramenta para criar aplicativos inovadores, focados no usuário final e rápidos? Deseja poder importar imagens de uma vasta quantidade de padrões? Não deseja usar o Visual Studio Blend ainda? Pois então, o pacote para você é o Expression Design gratuito: Download Expression Design 4, Free Version.


Mais informações em: http://www.microsoft.com/expression/


Evitando que o Outlook insira DDD nos seus telefones

Muitas vezes quando inserimos um contato novo no Outlook, ele insere automaticamente o código DDD de nossa localidade se não o fizermos explicitamente. Isto ocorre porque você (ou alguém lhe fez esse favor) definiu a sua localidade no Painel de Controle do seu Windows.

Como alterar este procedimento?

Acesse o Painel de Controle e clique em Telefone e Modem (Phone and Modem Options)

image

Com Minha localidade selecionado clique em Editar

image

Repare que estará selecionado o seu país e informado o código de área

image

Caso você informe apenas 51 como consta da figura e como código para longa distância, por exemplo, 021, suas chamadas de longa distância funcionarão sem problemas, bem como o envio de mensagens SMS, mas as ligações locais não funcionarão em muitos Smartphones, pois eles não conseguem ligar para o número 51 1234-5678, apenas para o 051 1234-5678.

A solução poderia ser adicionar o 0, mas neste caso se você sair de férias e tentar ligar a partir de outro estado, não funcionará, pois ao adicionar o código de operadora sobrará um 0. Ex.: 021 051 1234-5678.

Como poucos Smartphones são smart o suficiente para gerenciar isso, mas a esmagadora maioria deles suporta que sejam adicionados dígitos, o mais prático a fazer é impedir que o Outlook adicione o código de área aos números de seus contatos, utilizando apenas o que você digitar.

A forma de resolver isso é alterando a sua localidade para Serviço Telefônico Gratuito Internacional (International Freephone Service)

image

Repare que automaticamente o código de área fica em branco e a partir de agora você poderá digitar e armazenar seus telefones livremente.

Alerta Importante:

Repare que ao digitar um número e pressionar Enter ele fica exatamente da forma que digitei

image

Porém, se eu clicar no botão ao lado, neste caso o Comercial e digitar o número na janela que aparecerá, ele automaticamente adicionará um +800 na frente do número.

image

image

Portanto, tenha muito cuidado com a janela Verificar número de telefone. Caso ela apareça clica em Cancelar e digite o número diretamente na tela dos dados do contato.