Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

programatically formating an e-mail

0 views
Skip to first unread message

Brett Stone

unread,
Apr 22, 1999, 3:00:00 AM4/22/99
to
I have a program in Access (VBA) that creates an e-mail, and populates the
address, subject and body. In the body there is a specific line that I
would like to be able to format different from the rest of the body. Is
there a way to do that programatically?

Randy Byrne [MVP - Outlook]

unread,
Apr 22, 1999, 3:00:00 AM4/22/99
to
For an RTF message body:

FILE: DLL to Read and Write RTF with Active Messaging
http://support.microsoft.com/support/kb/articles/q172/0/38.asp

For an HTML message body (O98 or later):

Function Item_Open()
On Error Resume Next
Dim oNS
Set oNS=Application.GetNamespace("MAPI")
strUser = oNS.CurrentUser 'Get the name of current user
Dim strBody 'Create dynamic HTML
strBody = "<html><head><title>Welcome to Outlook 2000</title>"
strBody = strBody & "</head><body "
strBody = strBody & "><P><FONT font size=4 face=Arial color=#000080>"
strBody = strBody & "<b><i>Welcome to Microsoft® OutlookT
2000!</b></i></FONT></P>"
strBody = strBody & "<FONT font size = 4 face =Arial color =
#800000><P><i>"
strBody = strBody & strUser & "--</FONT></I></P><P><FONT size=3>"
strBody = strBody & "<FONT color=#0000ff face=Arial size=3>Microsoft®
OutlookT 2000"
strBody = strBody & "</FONT> is the new messaging and collaboration client
that"
strBody = strBody & " helps you do your best work by combining the leading
support"
strBody = strBody & " for Internet standards-based and Microsoft Exchange
Server-based"
strBody = strBody & " e-mail with integrated calendar, contact, and task
management"
strBody = strBody & " features.<BR></FONT></P><P><FONT size=3>We hope you
enjoy your"
strBody = strBody & " experience with Microsoft Outlook, the most
integrated e-mail"
strBody = strBody & " program available today!<BR><FONT color=#000000
face=Arial size=3><P></P>"
strBody = strBody & "<EM>- The Microsoft Outlook Team
</EM></FONT></FONT></P>"
strBody = strBody & "</body></html>"
Item.HTMLBody = strBody 'Set the HTMLBody of the item.
Item.Display 'Display HTML message.
End Function


--
Regards,

Randy Byrne, MVP - Outlook
http://www.microeye.com
Building Applications with Microsoft Outlook 2000
Microsoft Press, June 1999
http://www.microeye.com/books

Brett Stone <bre...@qcm.com> wrote in message
news:ewXFwEOj#GA....@cppssbbsa02.microsoft.com...

0 new messages