newbie Q: adding text to MailItem.Body (plain textl)

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

B. - 05 Oct 2005 13:48 GMT

I've just started with learning VBA but I'm just too curious not to ask at
the beginning.
Is it possible to add text to plain e-mail body with some kind of formatting
(rows).
I believe it's easy for HTML body but can't find on the web how to do it
with plain format.
Maybe importing from text file but I would prefer to include the text within
the code.
Thanks in advance

Reply to this Message

Sue Mosher [MVP-Outlook] - 05 Oct 2005 13:50 GMT

Plain text messages have no formatting. If you want rows, you include a vbCrLf at the end of each line:

strtext = "some text" & vbCrLf & "more text"
myMessage.Body = strText

Signature

Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

> I've just started with learning VBA but I'm just too curious not to ask at
> the beginning.
[quoted text clipped - 5 lines]
> the code.
> Thanks in advance

Reply to this Message

B. - 05 Oct 2005 14:55 GMT

Great. That's what I needed (rows).
Tnx

I'm just reading your book.
After 50 pages it seems very good.

Plain text messages have no formatting. If you want rows, you include a
vbCrLf at the end of each line:

strtext = "some text" & vbCrLf & "more text"
myMessage.Body = strText

Signature

> I've just started with learning VBA but I'm just too curious not to ask at
> the beginning.
[quoted text clipped - 7 lines]
> the code.
> Thanks in advance

Reply to this Message

B. - 07 Oct 2005 12:44 GMT

> I've just started with learning VBA but I'm just too curious not to ask at
> the beginning.
[quoted text clipped - 5 lines]
> within the code.
> Thanks in advance

At the end this seems to be the easiest way to create large text e-mail is.

Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strtxt As String
Dim fso, ts

Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\textfile.txt", 1)
strText = ts.ReadAll

With objMail
'Set body format to Plain
.BodyFormat = olFormatPlain

Reply to this Message