If you don't want to use Word, you have to use the Redemption. Please look
at Dmitry's site (http://www.dimastr.com/redemption/safeinspector.htm),
there're tons of samples.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool:
: http://www.vboffice.net/product.html?pub=6&lang=en


Am Tue, 13 May 2008 18:23:22 -0700 (PDT) schrieb
:

Thanks Michael,

You are right. Thsi option is disabled in my outlook 2003
automatically.
Is there anyway that I can enable this option.

Actually I don't want to use Word as editor. For this you suggested
for using Redemption.
My clients also cna have different verison of outlook i.e. outlook XP/
2000/2003/2007 etc.
At my development server I am running Outlook 2003.

Cna I have any help on this please.
I am trying to use Redemption.RDOs. But not having much expertise in
VBA I lost.

Can I have any code sample for this please.

Really appreciate your time.

With Thanks.

Jyothi.


On May 13, 5:41*pm, "Michael Bauer [MVP - Outlook]"
wrote:
In that line the error means Doc isn't set. Probably you don't use Word
as
e-mail editor, but that is necessary for this code to work.

--
Best regards
Michael Bauer - MVPOutlook

* :OutlookCategories? Category Manager Is Your Tool:
* : http://www.vboffice.net/product.html?pub=6&lang=en

Am Mon, 12 May 2008 21:07:25 -0700 schrieb Jyothi Muddam:





Hi Michael,

I am trying to follow the exactly the smae code which you given here.

Private Sub Test()

Dim objOutlook AsOutlook.Application
Dim objOutlookExp As Object
Dim objDrafts As Object
Dim objEmail As Object
Dim strBody, strTitle, strTo As String

Dim Doc As Word.Document
Dim wdRn As Word.Range
Dim Xl As Excel.Application
Dim Ws As Excel.Worksheet
Dim xlRn As Excel.Range

Set objOutlook = NewOutlook.Application

' Open theoutlookdrafts folder

Set objDrafts = objOutlook.Session.GetDefaultFolder(olFolderDrafts )

If objDrafts = "Drafts" Then

'Createnew email in Drafts folder

Set objEmail = objDrafts.Items.Add

Set Xl = GetObject(, "Excel.Application")
Set Ws = Xl.Workbooks("ColorTest.xls").Worksheets(1)

Set xlRn = Ws.Range("a1", "d139")
xlRn.Copy

Set Doc = objEmail.Getinspector.WordEditor
Set wdRn = Doc.Range

wdRn.Paste

strBody = "This is where I need to paste xlRn, maybeusinga"
DataObject.GetFromClipboard ""
strTitle = "Excel toOutlookPaste"
strTo = Ws.Range("a1", "a1") ' email adresss in A1 in worksheet
objEmail.To = strTo
objEmail.Body = strBody
objEmail.Subject = strTitle
Set objDoc = objEmail.Attachments
objDoc.Add strAttach

' Save email in drafts folder

objEmail.Close olSave
Else
MsgBox "No Drafts Folder"
End If
'-----------------

'This line in the above fails with Object not set error :-

Set Doc = objOutlook.ActiveInspector.WordEditor

'Also the line below needs to paste into the Draft email i.e. into the
Body
'of email :-

wdRn.Paste

End Sub

I am getting object not set error @line....
Set wdRn = Doc.Range

I amusingoutlook2003 and try to call this from Excel.

Actually, I would like to do this from Visual Basic.

Is there anyway I can get this work please.

Thanks in advance.

Jyothi- Hide quoted text -

- Show quoted text -