Hi

Not a webpage (I think it is ready tomorrow)

Have you read the CDO page ?
Can you use it?

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 10 Then Mail_CDO
End Sub

And In a normal module

Sub Mail_CDO()
' This example use late binding, you don't have to set a reference
' You must be online when you run the sub
Dim iMsg As Object
Dim iConf As Object
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Fill in your SMTP server here"
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With

With iMsg
Set .Configuration = iConf
.To = "
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = "Hi there" & vbNewLine & vbNewLine & _
"Column 10 is changed"
.Send
End With

Set iMsg = Nothing
Set iConf = Nothing
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Cheker" wrote in message ...
Thanks Ron,
I'll be waiting for your example. Hope you can let us know the d/l URL
too...
Regards

"Ron de Bruin" wrote in message
...
Maybe the Wait command
used in the macro can be eliminated to prevent that

No

Use CDO is the only way Cheker
http://www.rondebruin.nl/cdo.htm
I will make a example this evening and upload it to my website.


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Cheker" wrote in message
...
Unfortunately the OE window is visible in front of Excel for a "very
short"
period and the email writing process is "noticed". Maybe the Wait
command
used in the macro can be eliminated to prevent that. I'll be much
obliged if
Rob or Don can comment.
Sincerely


"Frank Kabel" wrote in message
...
Hi
you posted the same question in this group some hours ago and already
received aqnswers from Rob and Don :-)

-----------------------------
Try adding
application.screenupdating=false
code
reset to =true
---------------------------------

Hi Cheker

You will always see it

Maybe you can use CDO
See the link on my SendMail page
http://www.rondebruin.nl/sendmail.htm


You send me a private mail about CC and BCC
For OE see this page
http://www.rondebruin.nl/mail/oebody.htm
But it is not possible in OE to send text in the body and a files

--
Regards
Frank Kabel
Frankfurt, Germany


Cheker wrote:
Hi,
Which post Frank?

"Frank Kabel" wrote in message
...
Hi
see your other post

--
Regards
Frank Kabel
Frankfurt, Germany


Cheker wrote:
Hi,
The below code (which was given in this NG + With some minor
alterations by me) intends to check if anything is changed on
column
J then email that changed info to a spesific email address without
the notice of the workbook user...
But it has two problems:
1. If Outlook Express is not opened beforehand, starting of OE is
visible and the user recognizes that something without his/her
control is going on.
2. If Outlook Express is active before the execution of the macro,
yet again a small instance of mail being produced is visible on the
screen.

Can anyone suggest solutions for the 2 problems?
Thanks


'------------------------------------
Dim oldvalue As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayAlerts=False
If Target.Column = 10 Then
Recipient = "
Subj = Target(1, -6) & " -- written " & oldvalue & " -- " &
Target.Value & ""
msg = "Hey... workbook's been changed"
HLink = "mailto:" & Recipient & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "%s", True
End If
Application.DisplayAlerts=True
End Sub

Private Sub worksheet_SelectionChange(ByVal Target As Range)
oldvalue = Target.Value
End Sub