Dar formato a un texto y enviar por Outlook

[lop7]

hola...

mi preguntas es la siguiente como se le da formato a un texto que se va a enviar por Outlook

supongamos que tengo el objeto ObjOutlook declarado


y en la parte donde va el mensaje.
ObjOutlook.Body="El Mensaje con formato"
es decir tipo de letra, tamaño de la fuente, color todas esas cosas... como lo haria?

desde ya muchas Gracias...

Saludos.

[extrem_bcn]

Y si le cambias el formato del email a HTML y le metes código HTML para que lo interprete según tus necesidades???

ya sabes.. <font> </font>
<color> .... etc..

código:
MailFormat.mfHTML

[lop7]

gracias por responder, ummm ya me habia pasado por la cabeza pero no soy muy dado al HTML aunque me se las etiquetas y he trabajado un poco con esto. la vinculación con VB seria el pero, aunque me tocaria investigar jejeje.

si alguien ha echo algo parecido antes de otra manera se lo agradeceria.

Gracias.

[extrem_bcn]

Si encuentras otra solucion posteala porfavor ya que en un futuro podria estar en la misma situación que tú.

Estaré pendiente de tú hilo!

Saludos y suerte.

[lop7]

Hola.
bueno aqui les dejo un pequeño ejemplo.
gracias a todos los que respodieron.
si se dan cuante el body que estoy usando es .HTMLBody = text
el otro esta comentado. un compeñero hizo una prueba con el riftextbox y funciono pero me quedo con html jejeje.

Private Sub Command1_Click()
Dim text As String
Dim ObjOutlook As New Outlook.Application
Dim ObjMail As MailItem
Set ObjMail = ObjOutlook.CreateItem(olMailItem)
With ObjMail

.To = "[email protected]" 'El destinatario
.Subject = "prueba desde VB" 'El asunto del mensaje

text = "<font size=15><b><font color=""red"">hola</font></b></font>"

.HTMLBody = text
'.Body = text 'El Cuerpo del mensaje
.Importance = olImportanceHigh 'La importancia
'.Attachments.Add "c:\1.txt" 'Archivos adjuntos
.Send
End With
Set ObjMail = Nothing
MsgBox "Se ha enviado correctamente el mail"
End
End Sub

Saludos.