formatting text email

[gilberto]

Hi all

This should be trivial, but I don't know how to do it, and I couldn't find it in the Forums. Many thanks in advance for helping me!!!

1) I need to format text in my email (size, colour).

2) I need to format a number, contained in an integer variable. adding zeros on its left side (e.g., 004)

This is the code I'm using (which is working fine) for sending the text contained in StrBody.
StrBody should contain the formatted text.

(My Outlook is set for sending RTF emails.)

Public Sub SendEmail(StrSubject As String, StrBody As String, StrTo As String)

Dim NameSpace As Object
Dim EmailSend As Outlook.MailItem
Dim EmailApp As Object

Set EmailApp = CreateObject("Outlook.Application") 'using the outlook object
Set NameSpace = EmailApp.GetNamespace("MAPI")
Set EmailSend = EmailApp.CreateItem(0)

EmailSend.Subject = StrSubject
EmailSend.Body = StrBody

EmailSend.Recipients.Add (StrTo) 'add the recipient
EmailSend.Display 'display the email

Set EmailApp = Nothing
Set EmailSend = Nothing
End Sub

 

[Fizzio]

1. This is not possible using the mailitem.body property of the e-mail as it does not support RTF formatted strings. There is a workaround here
http://support.microsoft.com/defaul...port/kb/articles/q172/0/38.asp&NoWebContent=1
but I have not used it. The HTML codes, however, will work.

2. Format([FieldName],000) (I think - not sure about needing quotes around the 000)

 

[gilberto]

many thanks for your help, Fizzio! I'll try it.

 

[Fizzio]

Thanks Pat for that clarification.

I got my initial information from Microsoft re: the .body property of the mailitem object not supporting RTF coded text but I could find nothing on the RTF codes

Here is the ASP page with the full code list
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnrtfspec/html/rtfspec_16.asp

Here is the document link
http://www.microsoft.com/downloads/...familyid=e5b8ebc2-6ad6-49f0-8c90-e4f763e3f04f

 

[gilberto]

Thanks a lot Pat and Fizzio - I'll read the stuff!

 

[gilberto]

hi there

I think I'm too ignorant for understanding the file...

I tried this (for writing "Dear" in bold):

t1 = {\b, "Dear "}
Call SendEmail(t1, Me.[E-mail])

but of course the compiler doesn't accept it. Am I in the right direction, at least?

Many thanks in advance for the help.

 

[gilberto]

hi Pat

This was very clever - I couldn't have discovered alone, for sure!

Many, many thanks - it's working fine now!