| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel,microsoft.public.excel.programming
|
|||
|
|||
can it be done without notice
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 |
|
#2
Posted to microsoft.public.excel,microsoft.public.excel.programming
|
|||
|
|||
|
can it be done without notice
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 |
|
#3
Posted to microsoft.public.excel,microsoft.public.excel.programming
|
|||
|
|||
|
can it be done without notice
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 |
|
#4
Posted to microsoft.public.excel,microsoft.public.excel.programming
|
|||
|
|||
|
can it be done without notice
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 |
|
#5
Posted to microsoft.public.excel,microsoft.public.excel.programming
|
|||
|
|||
|
can it be done without notice
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 "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 |
|
#6
Posted to microsoft.public.excel,microsoft.public.excel.programming
|
|||
|
|||
|
short visibility--no visibility
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 |
|
#7
Posted to microsoft.public.excel,microsoft.public.excel.programming
|
|||
|
|||
|
short visibility--no visibility
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Notice that there was a change | Excel Discussion (Misc queries) | |||
| Deadline Notice | Excel Worksheet Functions | |||
| can it be done without notice? | Excel Programming | |||
| Change notice | Excel Programming | |||
| how to supress clipboard notice? | Excel Programming | |||
Hybrid Mode
