MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

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

    Envio de e-mail formato HTML

    Mensagem  Uilson Brasil em Sab 02 Nov 2013, 01: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
    avatar
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Uilson Brasil em Sab 02 Nov 2013, 04: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: Ter 21 Nov 2017, 00:52