Hi EARTHWALKER
In OE you must use Sendkeys (not very reliable) to send the mail
Try this small example in the Thisworkbook module
It will send the mail when you save the file.
More info about sending text in the body with OE you can read here
http://www.rondebruin.nl/mail/oebody.htm
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim msg As String
Dim Recipient As String, Subj As String, HLink As String
Recipient = "(E-Mail Removed)"
Subj = "Test"
msg = "Hi there the workbook is changed"
HLink = "mailto:" & Recipient & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "%s", True
End Sub
Maybe you can use CDO to do it
http://www.rondebruin.nl/cdo.htm
You don't see it then when the mail is send with CDO
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Ron de Bruin" <(E-Mail Removed)> wrote in message news:%23VjJC%(E-Mail Removed)...
>I must go now
>
> I give you a example this evening when i come home
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "EARTHWALKER >" <<(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
>> Outlook express m8. Version 6, if that makes any difference.
>>
>>
>> ---
>> Message posted from http://www.ExcelForum.com/
>>
>
>