> > I need that attached text box information to be entered into the message box.
>
> If it's a message form, that information is in the Recipients collection. If it's a Post form, which has no Recipients collection, you'd need to use CDO 1.21 or, to avoid security prompts, Redemption to get to the recipients. Each recipient has a name and address.
>
> You never said what kind of form this is, by the way.
>
> --
> 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>
> "Corey H." <CoreyH[ at ]discussions.microsoft.com> wrote in message news:5CA11493-B55A-4456-B164-1BE4BC93094F[ at ]microsoft.com...
> > I'm not exactly sure why we're using html coding for this.
> > If you use the field chooser to drop the TO: field onto your form, it drops
> > the box for selecting addresses from your global if you're on exchange. And
> > drops the information you select from the global into the attached text box.
> > I need that attached text box information to be entered into the message box.
> >
> > The other vbscripting for the checkboxes gets the information from an If >
> > then function. If "True", paste into the message area.
> > Where this would be "take this final value and paste it into the message
> > area".
> > I hope that makes sense.
> >
> >
> > "Sue Mosher [MVP-Outlook]" wrote:
> >
> >> No, that's just the snippet you don't seem to already have. <p></p> is the HTML element that creates a new paragraph. If you want a proper HTML message, you'd use that tag along with any desired formatting tags to build the final string, using the same technique you already know for getting Outlook property values. To get the right <font> tags, create text similar to what you want to show in an HTML editor and then take a look at the HTML source.
> >>
> >> "Corey H." <CoreyH[ at ]discussions.microsoft.com> wrote in message news:45F79327-610E-4116-B076-183A762DF615[ at ]microsoft.com...
> >> > And this is for the text boxes?
> >> > In the To: field, the entry changes.
> >> > Same for the Company: field, and the Phone: field.
> >> > So the user of the form actually types the information into this text box
> >> > field.
> >> > I just want to take the final value of those fields and enter it into the
> >> > message body.
> >> >
> >> > So is the vbscript still strBody = "<p>Telephoned</p>"?
> > >
> >> > "Sue Mosher [MVP-Outlook]" wrote:
> >> >
> >> >> strBody = "<p>Telephoned</p>" etc.
> >>
> >> >>
> >> >> "Corey H." <CoreyH[ at ]discussions.microsoft.com> wrote in message news:45C9EBCF-8386-45EF-BBF2-F8D90406E0F2[ at ]microsoft.com...
> >> >> > And the vbscript for that would look how??
> >> >> > Corey
> >> >> >
> >> >> >
> >> >> > "Sue Mosher [MVP-Outlook]" wrote:
> >> >> >
> >> >> >> Then you'd set HTMLBody, not Body and your strBody would need to include all the HTML formatting you want to show.
> >> >> >>
> >> >> >> "Corey H." <CoreyH[ at ]discussions.microsoft.com> wrote in message news:B8F07880-659A-43F8-9D8F-E7F78B064C02[ at ]microsoft.com...
> >> >> >> > This vbscript is great for returning a set value.
> >> >> >> > But what if you needed to display font in a text area of the form that
> >> >> >> > always changes per call, and paste it within the message body.
> >> >> >> >
> >> >> >> > Sub Item_Send()
> >> >> >> > strBody = Item.Body
> >> >> >> > If Item.UserProperties("Telephoned") = True Then
> >> >> >> > strBody = strBody & vbCrLf & "Telephoned"
> >> >> >> > End If
> >> >> >> > If Item.UserProperties("PleaseCall") = True Then
> >> >> >> > strBody = strBody & vbCrLf & "Please Call"
> >> >> >> > End If
> >> >> >> > If Item.UserProperties("Confidential") = True Then
> >> >> >> > strBody = strBody & vbCrLf & "Confidential"
> >> >> >> > End If
> >> >> >> > If Item.UserProperties("WantstoSeeYou") = True Then
> >> >> >> > strBody = strBody & vbCrLf & "Wants to See You"
> >> >> >> > End If
> >> >> >> > If Item.UserProperties("CameToSeeYou") = True Then
> >> >> >> > strBody = strBody & vbCrLf & "Came To See You"
> >> >> >> > End If
> >> >> >> > If Item.UserProperties("ReturnedYourCall") = True Then
> >> >> >> > strBody = strBody & vbCrLf & "Returned Your Call"
> >> >> >> > End If
> >> >> >> > If Item.UserProperties("WillCallAgain") = True Then
> >> >> >> > strBody = strBody & vbCrLf & "Will Call Again"
> >> >> >> > End If
> >> >> >> > If Item.UserProperties("Rush") = True Then
> >> >> >> > strBody = strBody & vbCrLf & "RUSH!"
> >> >> >> > End If
> >> >> >> >
> >> >> >> > Item.Body = strBody
> >> >> >> >
> >> >> >> > End Sub
> >> >> >>
> >> >>
> >>
>