MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Envio de e-mail formato HTML

    Compartilhe

    Uilson Brasil
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 999
    Registrado : 23/04/2013

    Envio de e-mail formato HTML

    Mensagem  Uilson Brasil em 1/11/2013, 21:39

    Pessoal,

    Adaptei a minha necessidade este código de envio de e-mail. Está funcionando perfeitamente, só gostaria de uma ajuda para definir que a mensagem seja criada no formato HTML.

    Código:
    Private Sub btSend_Click()
    Dim strDestinatarios
    Dim strTitulo
    Dim strMensagemCorpoDoEmail
      
       strDestinatarios = EMAIL
       strTitulo = "Atualização de Licença de Uso"
       strMensagemCorpoDoEmail = "Segue chave de liberação de sua Licença de Uso." & Chr(13) & Chr(13) & "Sistema: " & txtSistema & " - " & txtVersao & "" & Chr(13) & Chr(13) & "Chave de Liberação: " & LICATUAL & "" & Chr(13) & Chr(13) & "Validade: " & LICMES & "/" & Format((LICINI), "yyyy")
      
    On Error Resume Next
       DoCmd.SendObject , , , strDestinatarios, _
       , , strTitulo, strMensagemCorpoDoEmail, True, False
      
    rst.Close
    End Sub
    Agradeço desde já pela atenção.


    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

    Uilson Brasil
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 999
    Registrado : 23/04/2013

    Re: [Resolvido]Envio de e-mail formato HTML

    Mensagem  Uilson Brasil em 2/11/2013, 00:51

    Pessoal,

    Resolvido. Adaptei um outro código do mestre JPaulo a minha necessidade.

    Ficou assim:

    Código:
    On Error Resume Next
    If IsNull(Me.EMAIL) Or Me.EMAIL = "" Then
    MsgBox "Cliente não possui e-mail cadastrado, a chave de liberação deverá ser informada por telefone", vbInformation, "G9 v1.0"
    DoCmd.CancelEvent
    Else
    Dim Origem As String, Caminho(4) As String, pula As String
        Origem = GetPathPart
        pula = Chr(10) & Chr(13)
        Call InitializeOutlook
        Set objNewMail = gOLApp.CreateItem(olMailItem)
    With objNewMail
        .To = Me.EMAIL
        .HTMLBody = "<font size=3><font color=#0000FF><font face=tahoma>Caro Cliente: <b>" & Me.RAZ_SOCIAL & "</b><br><br>Segue chave de liberação de sua Licença de Uso.<br><br>Sistema: <b>" & txtSistema & " - " & txtVersao & "</b><br><br>Chave de Liberação: <b>" & LICATUAL & "</b><br><br>Validade: <b>" & LICMES & "/" & Format((LICINI), "yyyy") & "</b><br><br><br><br> Atenciosamente, <br><br><br><br> Suporte Infotec</font></font></font>"
        .Subject = "Atualização de Licença de Uso"
        .Send
    End With
        MsgBox "enviado com sucesso.", vbInformation, "G9 v1.0"
    End If


    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

      Data/hora atual: 3/12/2016, 14:42