can it be done without notice

  • Thread starter Thread starter Frank Kabel
  • Start date Start date
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
 
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 = "(e-mail address removed)"
.CC = ""
.BCC = ""
.From = """Ron"" <[email protected]>"
.Subject = "Important message"
.TextBody = "Hi there" & vbNewLine & vbNewLine & _
"Column 10 is changed"
.Send
End With

Set iMsg = Nothing
Set iConf = Nothing
End Sub
 
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 = "(e-mail address removed)"
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
 
Hi
Sorry about that but somehow I was not able to see the reply.
Now that you have repeted the key words I'll give it a try.
Thanks a lot Frank.
Also thanks to Rob and Don
 
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
 
Thanks Ron,
I'll be waiting for your example. Hope you can let us know the d/l URL
too...
Regards
 
Hi Ron,
Thank you.
I'll read your page and try to adopt your suggestions for my conditions...
Sincerely
 
Back
Top