none
Access - HTMLBody RRS feed

  • Pergunta

  • Criei uma função para enviar e-mails, porem estou tendo dificuldade na definição do tamanho da letra, o atributo size não está funcionando.

    Public Function FP_EnviarEmail(Para As String, comCopia As String, Assunto As String, Mensagem As String) As Boolean
    On Error GoTo Err_Erro
    Dim objOut As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objContas As Outlook.Accounts
    Dim objAnexo As Outlook.Attachments
    
        Set objOut = New Outlook.Application
        Set objMail = objOut.CreateItem(olMailItem)
        
        With objMail
           .SendUsingAccount = objOut.Session.Accounts("sindico@condominiomoradadolago.com.br")
           .To = Para
           .CC = comCopia
           .Subject = Assunto
           .BodyFormat = olFormatHTML
           .HTMLBody = "<HTML><BODY>" & Mensagem & " <BR><BR><BR>" _
                       & " <font color=#006600 face='Monotype Corsiva' size='14px'>Sergio Augusto Ivanenko Salgado</font><BR>" _
                       & " Condominio Morada do Lago</BODY></HTML>"
           .Save
           .send
        End With
    
        FP_EnviarEmail = True
    
    Exit_Sair:
        Exit Function
        
    Err_Erro:
        MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Erro - FP Enviar E-Mail"
        FP_EnviarEmail = False
        Resume Exit_Sair
    End Function
    

    [b]Sergio Ivanenko[/b]


    • Editado Ivanenko quinta-feira, 12 de junho de 2014 22:55
    quinta-feira, 12 de junho de 2014 19:50

Respostas

  • Resolvido.

    Public Function FP_EnviarEmail(Para As String, comCopia As String, Assunto As String, Mensagem As String) As Boolean
    On Error GoTo Err_Erro
    Dim objOut As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objContas As Outlook.Accounts
    Dim objAnexo As Outlook.Attachments
    Dim Assinatura As String
    
        Set objOut = New Outlook.Application
        Set objMail = objOut.CreateItem(olMailItem)
        
        Assinatura = "<span style='font-size:14.0pt;font-family:Monotype Corsiva;color:#006600'>Sergio Augusto Ivanenko Salgado</span><BR>" _
        & " <b><span style='font-size:8.0pt;font-family:Verdana,sans-serif;color:black;'>Condomínio Morada do Lago</span></b><br>" _
        & " <b><span style='font-size:8.0pt;font-family:Verdana,sans-serif;color:black;'>Síndico</span></b>"
    
        With objMail
           .SendUsingAccount = objOut.Session.Accounts("sindico@condominiomoradadolago.com.br")
           .To = Para
           .CC = comCopia
           .Subject = Assunto
           .BodyFormat = olFormatHTML
           .HTMLBody = "<HTML><BODY>" & Mensagem & " <BR><BR><BR>" & Assinatura & "</BODY></HTML>"
           .Save
           .send
        End With
    
        FP_EnviarEmail = True
    
    Exit_Sair:
        Exit Function
        
    Err_Erro:
        MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Erro - FP Enviar E-Mail"
        FP_EnviarEmail = False
        Resume Exit_Sair
    End Function
    


    [b]Sergio Ivanenko[/b]

    • Marcado como Resposta Ivanenko sábado, 14 de junho de 2014 04:47
    sábado, 14 de junho de 2014 04:47

Todas as Respostas

  • Não testei, mas experimente trocar as aspas simples por aspas duplas.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sábado, 14 de junho de 2014 01:00
  • Felipe,

    Não aceita pois a string já está entre aspas duplas.


    [b]Sergio Ivanenko[/b]

    sábado, 14 de junho de 2014 01:55
  • Resolvido.

    Public Function FP_EnviarEmail(Para As String, comCopia As String, Assunto As String, Mensagem As String) As Boolean
    On Error GoTo Err_Erro
    Dim objOut As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objContas As Outlook.Accounts
    Dim objAnexo As Outlook.Attachments
    Dim Assinatura As String
    
        Set objOut = New Outlook.Application
        Set objMail = objOut.CreateItem(olMailItem)
        
        Assinatura = "<span style='font-size:14.0pt;font-family:Monotype Corsiva;color:#006600'>Sergio Augusto Ivanenko Salgado</span><BR>" _
        & " <b><span style='font-size:8.0pt;font-family:Verdana,sans-serif;color:black;'>Condomínio Morada do Lago</span></b><br>" _
        & " <b><span style='font-size:8.0pt;font-family:Verdana,sans-serif;color:black;'>Síndico</span></b>"
    
        With objMail
           .SendUsingAccount = objOut.Session.Accounts("sindico@condominiomoradadolago.com.br")
           .To = Para
           .CC = comCopia
           .Subject = Assunto
           .BodyFormat = olFormatHTML
           .HTMLBody = "<HTML><BODY>" & Mensagem & " <BR><BR><BR>" & Assinatura & "</BODY></HTML>"
           .Save
           .send
        End With
    
        FP_EnviarEmail = True
    
    Exit_Sair:
        Exit Function
        
    Err_Erro:
        MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Erro - FP Enviar E-Mail"
        FP_EnviarEmail = False
        Resume Exit_Sair
    End Function
    


    [b]Sergio Ivanenko[/b]

    • Marcado como Resposta Ivanenko sábado, 14 de junho de 2014 04:47
    sábado, 14 de junho de 2014 04:47
  • E qual era o problema? Estou curioso.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 20 de junho de 2014 22:11