Hi M,

As a very minor adaptation of one of Ron's examples, try

'============
Sub Mail_small_Text_Outlook()
'You must add a reference to the Microsoft outlook Library
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
strbody = ""

With OutMail
.To = " '<<=== CHANGE
.CC = ""
.BCC = ""
.Subject = ""
.Body = strbody
.Display
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

'<<============


---
Regards,
Norman



"mtm4300 via OfficeKB.com" <u18572@uwe wrote in message
news:628201d44fdd3@uwe...
I have looked at his site. His site talks about how to send data from Excel
to Outlook. I am wanting to just open Outlook and put my name in for the
recipient. The user will then type there message in Outlook. I do not need
to
send any sheets, workbooks, cell values, etc. It sounds very simple, but I
am
having troubles. It only works when I have Outlook open. If Outlook is
closed
and then opened by my macro, the message will not be sent due to an error.
Anyone have a solution?

Norman Jones wrote:
Hi MTM,

Ron de Bruin has an extensive range of sample Outlook code at:

http://www.rondebruin.nl/sendmail.htm

which may provide with ideas for an alternative solution.

---
Regards,
Norman

I am trying to give a user the ability to comment via email. They click
on
my
[quoted text clipped - 19 lines]
declaration.
Any ideas?

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200606/1