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.

.: Vitrine

Carregando artigos...

Views

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

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: , , , , , , , , , , ,

VBA Access - Exportando relatório para RTF, XLS e Snapshot

HeaderBG-Final07.jpg


Olá a todos...

Como posso exportar dados já formatados em um relatório direcioando-os para o Word, Excel ou outro formato?

A função abaixo explora 2 formas diferentes de fazer isso...

Ao exportar para o MS Excel utiliza o Método TransferSpreadsheet (TransferirPlanilha)

Ao exportar para o MS Word e o padrão Snapshot utilizo o Método OutputTo (SaídaPara)
O método OutpuTo pode exportar informações para os seguintes padrões:


acFormatASP
 acFormatDAP acFormatHTML acFormatIIS acFormatRTF acFormatSNP acFormatTXT acFormatXLS


Function ...
If nOption = 6 Then
If Not IsNull(Me.SelecRTF) Then
DoCmd.OutputTo acOutputReport, nReport, acFormatRTF, RptName & ".rtf", True
End If
If Not IsNull(Me.SelecSNP) Then
DoCmd.OutputTo acOutputReport, nReport, acFormatSNP, RptName & ".snp", True
End If
If Not IsNull(Me.SelecXLS) Then
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, nTbl1, RptName & ".xls", False, "ESN"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, nTbl2, RptName & ".xls", False, "Supllier"
End If
End If
End

Perceba que uma importante característica de exportação para a planilha é o fato de fazê-lo a
partir de conteúdos diferentes (tabelas) para a mesma planilha.




Tags: Access, RTF, XLSX, Snapshot, export


André Luiz Bernardes
A&A® - In Any Place.



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