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.
