è possivel

[mrfg2000]

Gostaria de Fazer uma pergunta para ao meus amigos deste forum.

È possível escrever no corpo de um e-mail (Outlook) ok ... eu consigo fazer isso com facilidade

Mas a questão é o seguinte .. é possível alterar a Fonte ou Tamanho , ou a cor dessa Escrita via VBA ???

segue abaixo o código para exemplificar

Sub Mail_small_Text_Outlook()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

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

     ' >>>>>>     a dúvida começa aqui na linha abaixo  <<<<<<<<<<<<<<<<

    strbody = "olá amigos" & vbNewLine & vbNewLine & _
              "é aqui que estou" & vbNewLine & _
              "tentando mudar" & vbNewLine & _
              "a fonte , ou o tamanho" & vbNewLine & _
              "ou a cor deste texto escrito no corpo do e-mail"

    On Error Resume Next
    With OutMail
        .To = "jose@fino.com"
        .CC = ""
        .BCC = ""
        .Subject = "Teste mrfg2000"
        .Body = strbody
        .Display   'or use .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

sem mais

antecipo cordial agradecimentos a todos amigos.

Editado Janeiro 7, 2009 por mrfg2000