Propósito

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.

Mostrando postagens com marcador assinatura. Mostrar todas as postagens
Mostrando postagens com marcador assinatura. Mostrar todas as postagens

VBA Outlook - Inserindo assinatura no e-mail com o Early Binding - Insert Outlook Signature in mail


O código nesta página só funciona quando você usa o Outlook como seu programa de email.

Early Binding (Compreendendo o Early Binding e o Late Binding)

Se quisermos melhorar o que desenvolvemos nos três códigos anteriores (1, 2 e 3) e usarmos a ajuda do Intellisense para nos mostrar as propriedades e métodos dos objetos, bem como os seus tipos, podemos implementar a técnica do Early Binding. 

Isso certamente tornará a aplicação um pouco mais rápida ao executar o código, mas poderemos ter problemas ao distribuirmos as planilhas. O MS Excel automaticamente atualizará a versão da referência feita no MS Outlook quando abrirmos nossa planilha na versão mais atualizada disponível, mas não a atualizará quando esta for aberta numa versão inferior.

Com o Late Binding como usei nos exemplos de código, não teremos tal problema.

Adicione uma referência para o Microsoft Outlook Library no Excel:

1) Vá para o editor VBA com as teclas de combinação Alt - F11.

2) Clique em Ferramentas / Referências no Menu.

3) Marque a caixa antes de Microsoft Outlook XX Object Library. O valor que estiver em XX será o número da versão do MS Outlook.

Então troque as três linhas de código abaixo:

Dim OutApp As Object
Dim OutMail As Object

Set OutMail = OutApp.CreateItem(0)

Por estas 3 linhas:

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem

Set OutMail = OutApp.CreateItem(olMailItem)

Referência: Ron de Bruin 

Tags: VBA, Outlook, email, e-mail, send, enviar, assinatura, signature, Early Binding, Late Binding, Intellisense, 


Nenhum comentário:
Tags: , , , , , , , , , ,

VBA Outlook - Inserindo assinatura simples no e-mail como TXT - Insert Outlook Signature in mail


O código nesta página só funciona quando você usa o Outlook como seu programa de email.

Inserindo uma assinatura simples (txt) na mensagem.

Nos dois códigos anteriores (1, 2) usamos a propriedade .HTMLBody para adicionar texto e uma assinatura ao e-mail.

Mas o que podemos usar na propriedade .Body no corpo do e-mai para criar uma mensagem simples?

Teremos 2 opções:

1ª OPÇÃO: MailOutlookWithSignatureHtml01
Altere o conteúdo da variável strbody para:

Let strbody = "Cara Cliente Ana Cláudia" & vbNewLine & vbNewLine & _
            "This is line 1" & vbNewLine & _
            "This is line 2" & vbNewLine & _
            "This is line 3" & vbNewLine & _
            "This is line 4"

Altere a linha .HTMLBody para:

Let .Body = strbody & vbNewLine & .Body


2ª OPÇÃO: MailOutlookWithSignatureHtml02
Altere o conteúdo da linha strbody para:

Let strbody = "Cara Cliente Ana Cláudia" & vbNewLine & vbNewLine & _
            "This is line 1" & vbNewLine & _
            "This is line 2" & vbNewLine & _
            "This is line 3" & vbNewLine & _
            "This is line 4"

Altere a linha .HTMLBody para:

     Let .Body = strbody & vbNewLine & Signature

Mude também a extensão (htm) do arquivo de assinatura MySig.htm na SigString para txt.


Referência: Ron de Bruin 

Tags: VBA, Outlook, email, e-mail, send, enviar, assinatura, signature, HTM, RTF, TXT, Ron de Bruin


Nenhum comentário:
Tags: , , , , , , , , , , ,

VBA Outlook - Inserindo assinatura no e-mail sem imagem - Insert Outlook Signature in mail


O código nesta página só funciona quando você usa o Outlook como seu programa de email.

Insira a assinatura que desejar sem foto.

Para criarmos uma assinatura no Outlook vamos precisar de três arquivos: HTM, TXT e RTF.

Note: Application Data e AppData são pastas ocultas, altere a visibilidade destas no Windows Explorer para que ele as mostre, bem como os arquivos ocultos, se quiser vê-los.

No código abaixo usamos o arquivo HTM. Mude somente o nome do arquivo de assinatura no código para o seu nome. No Outlook, você verá o nome de cada assinatura que tiver, este também é o nome do arquivo (HTM) de assinatura. No exemplo abaixo usaremos o nome Mysig. O código encontrará o caminho correto para você.

Importante: O código não adicionará nenhuma assinatura se você tentar o código no Excel 2000-2003 e o Word for o seu editor. Poderá mudar essa configuração do Outlook 2000/2003 nas opções se quiser, e não terá problemas, quando executar o código no Excel 2007-2013.

Sub MailOutlookWithSignatureHtml02()
' Não se esqueça de copiar a função GetBoiler no seu módulo.
' Funciona nos Offices 2000-2013
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim SigString As String
    Dim Signature As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    Let strbody = "<H3><B>Cara Cliente Ana Cláudia</B></H3>" & _
              "Queira, por favor, visitar o nosso website e fazer um download da nossa nova versão.<br>" & _
              "Caso ocorra algum problema, deixe-nos cientes disso.<br>" & _
              "<A HREF=""http://inanyplace.blogspot.com/"">A&A - In Any Place</A>" & _
              "<br><br><B>Thank you</B>"

    'Mudando somente o Mysig.htm para o nome da sua assinatura.
    Let SigString = Environ("appdata") & "\Bernardes\Assinaturas\Mysig.htm"

    If Dir(SigString) <> "" Then
        Let Signature = GetBoiler(SigString)
    Else
        Let Signature = ""
    End If

    On Error Resume Next

    With OutMail
        Let .Display
        Let .To = "bernardess@gmail.com"
        Let .CC = ""
        Let .BCC = "bernardess@gmail.com"
        Let .Subject = "A&A: Teste de envio de e-mail"
        Let .HTMLBody = strbody & "<br>" & .HTMLBody
        Let .Send
    End With

    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub


Function GetBoiler (ByVal sFile As String) As String
    Dim fso As Object
    Dim ts As Object

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)

    Let GetBoiler = ts.readall

    ts.Close
End Function

Referência: Ron de Bruin 

Tags: VBA, Outlook, email, e-mail, send, enviar, assinatura, signature, HTM, RTF, TXT, Ron de Bruin


Nenhum comentário:
Tags: , , , , , , , , , , ,

VBA Outlook - Inserindo assinatura no e-mail com ou sem imagem - Insert Outlook Signature in mail


A maneira mais fácil de adicionar a assinatura padrão com ou sem foto num e-mail com código VBA.

 Há problema quando for enviar o email diretamente. Verá a tela piscar porque mostramos o e-mail por um curto período de tempo antes do código enviá-lo.

 Isso pode não ser nenhum problema se quiser conferir o e-mail antes de enviá-lo, mas num looping isso não será tão agradável.

 Não há uma forma melhor de enviar uma assinatura com uma imagem diretamente num e-mail sem mostrá-lo por um tempo curto.

 O segundo exemplo não terá este problema, mas não poderá lidar com uma assinatura com uma imagem nele.

Sub MailOutlookWithSignatureHtml01()
' Working in Office 2000-2013
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

     Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

     Let strbody = "<H3><B>Cara Cliente Ana Cláudia</B></H3>" & _
              "Queira, por favor, visitar o nosso website e fazer um download da nossa nova versão.<br>" & _
              "Caso ocorra algum problema, deixe-nos cientes disso.<br>" & _
              "<A HREF=""http://inanyplace.blogspot.com/"">A&A - In Any Place</A>" & _
              "<br><br><B>Thank you</B>"

     On Error Resume Next

     With OutMail
        Let .Display
        Let .To = "bernardess@gmail.com"
        Let .CC = ""
        Let .BCC = "bernardess@gmail.com"
        Let .Subject = "A&A: Teste de envio de e-mail"
        Let .HTMLBody = strbody & "<br>" & .HTMLBody
        Let .Send
    End With

     On Error GoTo 0

     Set OutMail = Nothing
    Set OutApp = Nothing
End Sub



brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets



Nenhum comentário:
Tags: , , , , , , , , , , ,

02 - ASSINATURA EM E-MAILS, ARTIGOS E COMENTÁRIOS - SIGNATURE IN E-MAILS AND ARTICLES - 50 E POUCAS DICAS



















02.ASSINATURA EM E-MAILS, ARTIGOS E COMENTÁRIOS

           SIGNATURE IN E-MAILS AND ARTICLES 


Insira no final de todos os seus eMails, Artigos e comentários. Essa assinatura é composta por um texto padrão. 



Deixe essa assinatura mesmo nos comentários que deixar em outros artigos online:


Matérias de Jornais, Revistas e Portais.


Comentários em Sites/Blogs de terceiros,


Comentários em Site de eCommerce

Este texto deve conter links que direcionem os interessados diretamente às suas páginas, de modo que possam acessar outros artigos, produtos, ou serviços oferecidos que tratem da mesma abordagem. 



Inspiration: 

Tags: 50 e POUCAS DICAS, DICA 01, Blog, Site, Cliente, Leitor, Dicas, Tips, 50, LITTLE TIPS, SEO, promover, Signature, assinatura, assinaturas, 

Nenhum comentário:
Tags: , , , , , , , , , , , , , ,
Assinar: Postagens (Atom)
diHITT - Notícias