A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook - Using Forms
Reload this Page Rich Text Formatting
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Rich Text Formatting


« Icons in Outlook view | Custom derfault message form works intermitently / inconsistently »

 
 
Thread Tools Search this Thread Display Modes
  #1  
Old March 30th 06, 06:42 PM posted to microsoft.public.outlook.program_forms
WM
external usenet poster
  
Posts: 4
Default Rich Text Formatting
I have a form that sends out a message when a certain function is requested.
I want to make sure this message goes out in "rich text" format. What type
of coding do I need to have this happen?

Thanks.

Wanda
  #2  
Old March 30th 06, 06:52 PM posted to microsoft.public.outlook.program_forms
Sue Mosher [MVP-Outlook]
external usenet poster
  
Posts: 11,651
Default Rich Text Formatting
How does the form generate the message? Why is RTF critical?

--
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

"WM" wrote in message ...
I have a form that sends out a message when a certain function is requested.
I want to make sure this message goes out in "rich text" format. What type
of coding do I need to have this happen?

Thanks.

Wanda
  #3  
Old March 30th 06, 07:19 PM posted to microsoft.public.outlook.program_forms
WM
external usenet poster
  
Posts: 4
Default Rich Text Formatting
This is the code that generates the message:
With objNewEmail
.bcc = objTab1("test")
.Subject = objTab2("txtSubject")
.HTMLBody = strHTML
objNewEmail.Display
End With
****************
I used .HTMLBody = strHTML and don't know what to use for Rich Text. I
want the body of the message to hold a link to an internet address.

Thanks.

Wanda



"Sue Mosher [MVP-Outlook]" wrote:

How does the form generate the message? Why is RTF critical?

--
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

"WM" wrote in message ...
I have a form that sends out a message when a certain function is requested.
I want to make sure this message goes out in "rich text" format. What type
of coding do I need to have this happen?

Thanks.

Wanda
  #4  
Old March 30th 06, 07:24 PM posted to microsoft.public.outlook.program_forms
Sue Mosher [MVP-Outlook]
external usenet poster
  
Posts: 11,651
Default Rich Text Formatting
I want the body of the message to hold a link to an internet address.

That is no reason to require RTF. HTML would be a much better choice. Is there more to it than that?

You didn't show how objNewEmail is created.
--
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

"WM" wrote in message news
This is the code that generates the message:
With objNewEmail
.bcc = objTab1("test")
.Subject = objTab2("txtSubject")
.HTMLBody = strHTML
objNewEmail.Display
End With
****************
I used .HTMLBody = strHTML and don't know what to use for Rich Text. I
want the body of the message to hold a link to an internet address.

Thanks.

Wanda



"Sue Mosher [MVP-Outlook]" wrote:

How does the form generate the message? Why is RTF critical?


"WM" wrote in message ...
I have a form that sends out a message when a certain function is requested.
I want to make sure this message goes out in "rich text" format. What type
of coding do I need to have this happen?

Thanks.

Wanda
  #5  
Old March 31st 06, 03:28 PM posted to microsoft.public.outlook.program_forms
WM
external usenet poster
  
Posts: 4
Default Rich Text Formatting
This is a task form that the techs fill out and it is sent to the Service
Desk. On this task form there are two custom tabs. The Info tab is the tab
that the techs also fill out the fields (description, who, why, etc). When
the Service Desk receives it, they click on the third tab (Service Desk Only)
and click on the Service Desk button. This generates the email that will go
to the clients. The Service Desk is to read the message and if they
understand it, send it out to the clients ... Service Desk being the first
point of contact. We want to keep the format (green font when required) and
also keep an internet link if one was typed by the tech. Here is the entire
code. I was using tables with HTML strings to allow for the green font.
***********

Function Item_Open()
Dim objTab1
Dim objTab2

Set objTab1 = Item.GetInspector.ModifiedFormPages("Information")
Set txtWhen = objTab1.Controls("txtWhen")
Set txtDescription = objTab1.Controls("txtDescription")
Set txtWhy = objTab1.Controls("txtWhy")
Set txtWhat = objTab1.Controls("txtWhat")
Set txtOther = objTab1.Controls("txtOther")
Set txtContact = objTab1.Controls("txtContact")

Set objTab2 = Item.GetInspector.ModifiedFormPages("Service Desk Only")
Set txtSubject = objTab2.Controls("txtSubject")
Set cmdSDesk = objTab2.Controls("cmdSDesk")

Set objTab1 = Nothing
Set objTab2 = Nothing
End Function

Sub cmdSDesk_Click()
Set objNewEmail = Application.CreateItem(0)
Set objTab1 = Item.GetInspector.ModifiedFormPages("Information") .Controls
Set objTab2 = Item.GetInspector.ModifiedFormPages("Service Desk
Only").Controls

tmpWhen = objTab1("txtWhen")
tmpWhen = Replace(tmpWhen, Chr(13), "br")
tmpDescription = objTab1("txtDescription")
tmpDescription = Replace(tmpDescription, Chr(13), "br")
tmpWhat = objTab1("txtWhat")
tmpWhat = Replace(tmpWhat, Chr(13), "br")
tmpWhy = objTab1("txtWhy")
tmpWhy = Replace(tmpWhy, Chr(13), "br")
tmpOther = objTab1("txtOther")
tmpOther = Replace(tmpOther, Chr(13), "br")
tmpContact = objTab1("txtContact")
tmpContact = Replace(tmpContact, Chr(13), "br")

strHTML = "table"
if Len(tmpWhen) 1 then
strHTML = strHTML & "trtdstrongfont face=arial color='green'
size=-1When:/strong/font/tr/td"
strHTML = strHTML & "trtdfont face=arial color='black'
size=-1textformat"
strHTML = strHTML & tmpWhen
strHTML = strHTML & "/textformat/td/tr"
strHTML = strHTML & "trtd/td/tr"
end if
if Len(tmpDescription) 1 then
strHTML = strHTML & "trtdstrongfont face=arial color='green'
size=-1Description:/strong/font/tr/td"
strHTML = strHTML & "trtdfont face=arial color=black
size=-1textformat"
strHTML = strHTML & tmpDescription
strHTML = strHTML & "/textformat/td/tr"
strHTML = strHTML & "trtd/td/tr"
end if
if Len(tmpWhat) 1 then
strHTML = strHTML & "trtdstrongfont face=arial color='green'
size=-1Who/What will be affected:/strong/font/td/tr/tr"
strHTML = strHTML & "trtdfont face=arial color=black size=-1"
strHTML = strHTML & tmpWhat
strHTML = strHTML & "/textformat/td/tr"
strHTML = strHTML & "trtd/td/tr"
end if
if Len(tmpWhy) 1 then
strHTML = strHTML & "trtdstrongfont face=arial color='green'
size=-1Why:/strong/td/tr/font"
strHTML = strHTML & "trtdfont face=arial color=black size=-1"
strHTML = strHTML & tmpWhy
strHTML = strHTML & "/textformat/td/tr"
strHTML = strHTML & "trtd/td/tr"
end if
if Len(tmpOther) 1 then
strHTML = strHTML & "trtdstrongfont face=arial color='green'
size=-1Other Information:/strong/td/tr/tr/font"
strHTML = strHTML & "trtdfont face=arial color=black size=-1"
strHTML = strHTML & tmpOther
strHTML = strHTML & "/textformat/td/tr"
strHTML = strHTML & "trtd/td/tr"
end if
strHTML = strHTML & "trtdstrongfont face=arial color='green'
size=-1Any problems/concerns you may contact:/strong/td/tr/font"
strHTML = strHTML & "trtdfont face=arial color='black' size=-1"
strHTML = strHTML & tmpContact
strHTML = strHTML & "/textformat/td/tr"
strHTML = strHTML & "trtd/td/tr"

With objNewEmail
.bcc = objTab1("test")
.Subject = objTab2("txtSubject")
.HTMLBody = strHTML
objNewEmail.Display
End With

Set objNewEmail = Nothing
Set objTab1 = Nothing
Set objTab2 = Nothing
End Sub
****************
Thanks.
Wanda

"Sue Mosher [MVP-Outlook]" wrote:

I want the body of the message to hold a link to an internet address.

That is no reason to require RTF. HTML would be a much better choice. Is there more to it than that?

You didn't show how objNewEmail is created.
--
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

"WM" wrote in message news
This is the code that generates the message:
With objNewEmail
.bcc = objTab1("test")
.Subject = objTab2("txtSubject")
.HTMLBody = strHTML
objNewEmail.Display
End With
****************
I used .HTMLBody = strHTML and don't know what to use for Rich Text. I
want the body of the message to hold a link to an internet address.

Thanks.

Wanda



"Sue Mosher [MVP-Outlook]" wrote:

How does the form generate the message? Why is RTF critical?


"WM" wrote in message ...
I have a form that sends out a message when a certain function is requested.
I want to make sure this message goes out in "rich text" format. What type
of coding do I need to have this happen?

Thanks.

Wanda
  #6  
Old March 31st 06, 03:50 PM posted to microsoft.public.outlook.program_forms
Sue Mosher [MVP-Outlook]
external usenet poster
  
Posts: 11,651
Default Rich Text Formatting
So, there's no RTF involved at all, is there? The message is an HTML-format message. You just need to create the link the way you normally would in HTML:

a href="http://www.theurl.com"http://www.theurl.com/a
--
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

"WM" wrote in message ...
This is a task form that the techs fill out and it is sent to the Service
Desk. On this task form there are two custom tabs. The Info tab is the tab
that the techs also fill out the fields (description, who, why, etc). When
the Service Desk receives it, they click on the third tab (Service Desk Only)
and click on the Service Desk button. This generates the email that will go
to the clients. The Service Desk is to read the message and if they
understand it, send it out to the clients ... Service Desk being the first
point of contact. We want to keep the format (green font when required) and
also keep an internet link if one was typed by the tech. Here is the entire
code. I was using tables with HTML strings to allow for the green font.
***********

Function Item_Open()
Dim objTab1
Dim objTab2

Set objTab1 = Item.GetInspector.ModifiedFormPages("Information")
Set txtWhen = objTab1.Controls("txtWhen")
Set txtDescription = objTab1.Controls("txtDescription")
Set txtWhy = objTab1.Controls("txtWhy")
Set txtWhat = objTab1.Controls("txtWhat")
Set txtOther = objTab1.Controls("txtOther")
Set txtContact = objTab1.Controls("txtContact")

Set objTab2 = Item.GetInspector.ModifiedFormPages("Service Desk Only")
Set txtSubject = objTab2.Controls("txtSubject")
Set cmdSDesk = objTab2.Controls("cmdSDesk")

Set objTab1 = Nothing
Set objTab2 = Nothing
End Function

Sub cmdSDesk_Click()
Set objNewEmail = Application.CreateItem(0)
Set objTab1 = Item.GetInspector.ModifiedFormPages("Information") .Controls
Set objTab2 = Item.GetInspector.ModifiedFormPages("Service Desk
Only").Controls

tmpWhen = objTab1("txtWhen")
tmpWhen = Replace(tmpWhen, Chr(13), "br")
tmpDescription = objTab1("txtDescription")
tmpDescription = Replace(tmpDescription, Chr(13), "br")
tmpWhat = objTab1("txtWhat")
tmpWhat = Replace(tmpWhat, Chr(13), "br")
tmpWhy = objTab1("txtWhy")
tmpWhy = Replace(tmpWhy, Chr(13), "br")
tmpOther = objTab1("txtOther")
tmpOther = Replace(tmpOther, Chr(13), "br")
tmpContact = objTab1("txtContact")
tmpContact = Replace(tmpContact, Chr(13), "br")

strHTML = "table"
if Len(tmpWhen) 1 then
strHTML = strHTML & "trtdstrongfont face=arial color='green'
size=-1When:/strong/font/tr/td"
strHTML = strHTML & "trtdfont face=arial color='black'
size=-1textformat"
strHTML = strHTML & tmpWhen
strHTML = strHTML & "/textformat/td/tr"
strHTML = strHTML & "trtd/td/tr"
end if
if Len(tmpDescription) 1 then
strHTML = strHTML & "trtdstrongfont face=arial color='green'
size=-1Description:/strong/font/tr/td"
strHTML = strHTML & "trtdfont face=arial color=black
size=-1textformat"
strHTML = strHTML & tmpDescription
strHTML = strHTML & "/textformat/td/tr"
strHTML = strHTML & "trtd/td/tr"
end if
if Len(tmpWhat) 1 then
strHTML = strHTML & "trtdstrongfont face=arial color='green'
size=-1Who/What will be affected:/strong/font/td/tr/tr"
strHTML = strHTML & "trtdfont face=arial color=black size=-1"
strHTML = strHTML & tmpWhat
strHTML = strHTML & "/textformat/td/tr"
strHTML = strHTML & "trtd/td/tr"
end if
if Len(tmpWhy) 1 then
strHTML = strHTML & "trtdstrongfont face=arial color='green'
size=-1Why:/strong/td/tr/font"
strHTML = strHTML & "trtdfont face=arial color=black size=-1"
strHTML = strHTML & tmpWhy
strHTML = strHTML & "/textformat/td/tr"
strHTML = strHTML & "trtd/td/tr"
end if
if Len(tmpOther) 1 then
strHTML = strHTML & "trtdstrongfont face=arial color='green'
size=-1Other Information:/strong/td/tr/tr/font"
strHTML = strHTML & "trtdfont face=arial color=black size=-1"
strHTML = strHTML & tmpOther
strHTML = strHTML & "/textformat/td/tr"
strHTML = strHTML & "trtd/td/tr"
end if
strHTML = strHTML & "trtdstrongfont face=arial color='green'
size=-1Any problems/concerns you may contact:/strong/td/tr/font"
strHTML = strHTML & "trtdfont face=arial color='black' size=-1"
strHTML = strHTML & tmpContact
strHTML = strHTML & "/textformat/td/tr"
strHTML = strHTML & "trtd/td/tr"

With objNewEmail
.bcc = objTab1("test")
.Subject = objTab2("txtSubject")
.HTMLBody = strHTML
objNewEmail.Display
End With

Set objNewEmail = Nothing
Set objTab1 = Nothing
Set objTab2 = Nothing
End Sub
****************
Thanks.
Wanda

"Sue Mosher [MVP-Outlook]" wrote:

I want the body of the message to hold a link to an internet address.

That is no reason to require RTF. HTML would be a much better choice. Is there more to it than that?

You didn't show how objNewEmail is created.
--
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

"WM" wrote in message news
This is the code that generates the message:
With objNewEmail
.bcc = objTab1("test")
.Subject = objTab2("txtSubject")
.HTMLBody = strHTML
objNewEmail.Display
End With
****************
I used .HTMLBody = strHTML and don't know what to use for Rich Text. I
want the body of the message to hold a link to an internet address.

Thanks.

Wanda



"Sue Mosher [MVP-Outlook]" wrote:

How does the form generate the message? Why is RTF critical?


"WM" wrote in message ...
I have a form that sends out a message when a certain function is requested.
I want to make sure this message goes out in "rich text" format. What type
of coding do I need to have this happen?

Thanks.

Wanda
 



« Previous Thread | Next Thread »

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Hybrid Mode Hybrid Mode

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
How do I read all my received mails in html- or rich text? New to MS outlook Outlook - General Queries 1 March 27th 06 10:43 AM
Message sent as Rich Text appear as HTML fali Outlook - General Queries 1 March 2nd 06 09:46 PM
formatting text -- line width Ben Crain Outlook Express 3 February 14th 06 06:43 AM
'always send to this recipient in Microsoft Outlook rich-text format' checked when created from a blackberry [email protected] Outlook - General Queries 0 January 27th 06 11:26 PM
Message Text Formatting and Size Mary Hustad Outlook Express 1 January 27th 06 03:20 AM


All times are GMT +1. The time now is 05:08 AM.

Feed Icon - Contact Us - OutlookBanter Home - FAQ - Links - Privacy Statement - Top

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.