If you have any GmailID Use the mention Codes
Function fcnSendPage()
'Dim cdoMessage
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing";) =
2 'Send using the network (SMTP over the newtork)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver";) =
"smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport";) = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout";
) = 60
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate";) = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl";) =
True
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername";)
= "YourEmailID"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword";)
= "YourPassword"
.Update
End With
' Make Your Massage as string
With cdoMessage
.to = "rajanverma1...@gmail.com"
.From = "rajanverma1...@gmail.com"
.TextBody = Str1
.Send
End With
Set cdoConfig = Nothing
Set cdoMessage = Nothing
End Function
-----Original Message-----
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of setrasa
Sent: Monday, July 18, 2011 7:19 PM
To: MS EXCEL AND VBA MACROS
Subject: $$Excel-Macros$$ Send Email Based on Change in Cell Value
Hello,
I have a worksheet that is updated by multiple users. When a user
updates a cell to a certain value, I would like excel to send me an
email notification that the cell has changed. I have the code to check
for the event:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("Q9:Q111"), Target) Is Nothing
Then
If IsNumeric(Target.Value) And Target.Value = "In A/C Folder"
Then
Call SendEmail
End If
End If
End Sub
The problem I am having is with the macro - SendEmail.
I do not have MS Outlook (my company has gone to the cloud and put our
company email on gmail). I have not been able to find any "send email"
code that does not rely on Outlook. I also do not want to prompt a
user asking them to send email. I just want excel to send me a
notification.
I would appreciate any help!
Thanks
--
----------------------------------------------------------------------------
------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
