|
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 |
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 |
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 |
short visibility--no visibility
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 |
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 |
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 |
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 |
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 |
short visibility--no visibility
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 |
short visibility--no visibility
Hi Cheker
I upload a page to my site a few minutes ago. http://www.rondebruin.nl/mail/change.htm -- 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 |
short visibility--no visibility
Hi Ron,
Thank you. I'll read your page and try to adopt your suggestions for my conditions... Sincerely "Ron de Bruin" wrote in message ... Hi Cheker I upload a page to my site a few minutes ago. http://www.rondebruin.nl/mail/change.htm -- 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 |
| All times are GMT +1. The time now is 02:05 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com