Am Fri, 17 Feb 2006 08:42:19 -0800 schrieb Maureen:
Maureen, if Word is the mail editor then the Inspector´s WordEditor property
is a reference on the Word.Document object. You could add a reference on the
Word library via Tools/References to your Outlook project and use that
Document object like you´d do in a Word macro.
--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
--
www.vbOffice.net --
In Outlook 2002, I need a macro to insert some standard text into a new
mail
message then paste the contents of the clipboard in Courier New font (to
maintain the format) below that text. With the following code I am able
to
do everything except format the clipboard contents using the Courier New
font. Since I'm using Word as my editor, I created a macro in Word to
search
for the first phrase in the clipboard text, then select the text and
change
the font that way. That works, but my boss wants one macro in Outlook
that
will accomplish everything.
Even if the whole body of the message (standard and clipboard text) is in
Courier New font, that would be fine. We don't want all messages to use
that
font though.
Does anyone have any ideas how I can do that?
Public Sub ItineraryApproval()
Dim MyItem As MailItem
Dim sTempString As String
On Error Resume Next
Load TempFormForClipboard
Set MyItem = Application.CreateItem(0)
sTempString = "****NOTICE, PLEASE RESPOND ASAP****" & vbCrLf & vbCrLf
&
vbCrLf
sTempString = sTempString & "Your name spelling must be same as
picture
I.D. Ticketing is required 24 hours after reservations are made. Please
review the itinerary and return it signed." & vbCrLf & vbCrLf
sTempString = sTempString &
"SIGNATURE________________________________"
& vbCrLf & vbCrLf
sTempString = sTempString & vbCrLf & vbCrLf & vbCrLf &
MyData.GetText(1)
MyItem.Body = sTempString
MyItem.Display
Unload TempFormForClipboard
End Sub