Email Alert Not Working?
Aug 30, 2012
I have the below VBA code which does not seem to be working. I want to have an email alert as soon as some Excel is saved. THis is the code I am using. Office 2007 is used, I have Enable all macros under trust centre settings.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim OutLook As Object Dim OutMail As Object Const SendTo As String = "ab@xyz.com" Set OutLook = CreateObject("Outlook.Application") OutLook.Session.Logon Set OutMail = OutLook.CreateItem(0) With OutMail .To = SendTo .Subject = ThisWorkbook.Name & " is updated" .Body = " Needs your attention!" .Send End With Set OutMail = Nothing Set OutLook = NothingEnd Sub
View 7 Replies
ADVERTISEMENT
May 14, 2014
Basically I have a spreadsheet to monitor behaviour in a high school. There is a column in the sheet with the heading 'PT Action Required?' which has a drop down menu where users can either select "Yes" or "No".
I would like the spreadsheet to automatically send me an email to inform me if a user selects "Yes".
So far I have:
[Code] ....
However, nothing happens.
View 2 Replies
View Related
Dec 7, 2008
I just discovered VBA coding today and was wondering if I could use it as an audio alert. I found a couple examples online but don’t understand the coding language of excel. I have a feed link from my trading platform to excel that feeds in live data. What I would like to do is have an alert for when Range ("C4").select is >=1000 Alert Ring.wav and when Range ("C4").select is <=-1000 Alert Chimes.wav.
View 5 Replies
View Related
Mar 27, 2007
Each month I get a report that I process using a macro. The problem is that each month the name of the file changes and is different. When I run the macro and it crashes I have to de-bug by going through the code to change all references to the file name from the the previos run and change to the latest file name and then re-run the macro. There must be a better way.
I would like to learn the code that sees the open book and then refers to it for the run.
What is the best way to do this?
View 6 Replies
View Related
Mar 14, 2014
this macro works perfectly when I only have one attachment per email. I thought this part of the code would solve my problem however it is now not attaching any files where I want more than one attachment.
VB:
Dim files As Variant, file As Variant
files = Split(filepath, ",")
For Each file In files
.attachments.Add file
wing in the cells in column B (where I need more than one attachment):
G:DocumentsReportsAJ - 6C091, 6C0922. Feb 6C091 Cost Centre Report.xls,02. Feb 6C092 Cost Centre Report.xls
G:DocumentsReportsAJ - 6C091, 6C0922. Feb 6C091 Cost Centre Report.xls,G:DocumentsReportsAJ - 6C091, 6C0922. Feb 6C092 Cost Centre Report.xls
Full code below....
VB:
Sub Send_Emails()
i = Cells(2, "B").Value
Do ' start[code]...
View 2 Replies
View Related
Feb 12, 2010
Hello all. I have the following code that works for Outlook 2003 but does not work for Outlook 2007. Does anyone know what changes need to be made so this macro will work in both Outlook versions?
View 9 Replies
View Related
Nov 7, 2013
I would like to search an outlook folder for a variable in the subject line and return the date when that email was received. Here is the code i have so far...
Code:
Sub Get_pos()
Set olApp = CreateObject("Outlook.Application")
Dim olNs As Outlook.Namespace
Dim Fldr As Outlook.MAPIFolder
Dim olMail As Variant
Set olApp = New Outlook.Application
[Code] ........
View 2 Replies
View Related
Apr 29, 2014
I have specified the email addresses in the code to whom the email will be sent when the user presses "Send Email" button but now I want to add all the addresses in the Access table and write down the code that will send an email to those people whose addresses are in the Access table.
[Code] .....
View 5 Replies
View Related
Jul 23, 2014
I have a macro to send emails to a group people that based on various criteria, it will attach a number of files to a recipient's particular email. This is a small portion of the code that does the attachment adding:
Code:
If Range("B" & a) = "Y" Then
If citChev "" Then .Attachments.Add citChev
End If
If Range("C" & a) = "Y" Then
If citMits "" Then .Attachments.Add citMits
End If
If Range("D" & a) = "Y" Then
If citToyo "" Then .Attachments.Add citToyo
End If
If Range("E" & a) = "Y" Then
[code].....
Most people get several of the files attached to their email and all works fine. But, there are certain conditions when all the IF() stmts fail where a recipient will not get any files attached. I do not want to send the email if this is the case, but it currently is sending it.
Is there a way after all the IF() stmts have processed to check to see if this current email has any attachments assigned to it? (IF .Attachments "" Then...) does not work.
View 2 Replies
View Related
Sep 16, 2013
I am using Excel 2010. I have been given a task at work that can save my team a lot of time if I can solve the problem. Every month, we have a spreadsheet with about 5000 rows that we have to email. In each row, there is a range that we have to email to a specific email. For example, I would have to copy and paste Range A2-R2 in the body of the email, and then email it to whatever email is in cell S2. I would then continue this for the next 5000 lines, making it a possibility that i will be sending 5000 emails manually.
I have been trying to come up with a solution through VBA that would automatically send these emails. My goal is to automatically send the Range A2-R2 to outlook email, then cell S2 into the "To" email address box, and then automatically send it. So far, i have successfully been able to send one row, but cannot figure out how to loop it for the remainder of the rows.
A couple other key points are that I have column headings as well (Range A1-R1). If possible, I want to be able to include the column headings in the email body as well. Example - first email would be range A1-R2. second email would be range A1-R1 and A3-R3, and so forth. The body of the email would also contain a standard script, such as "Please review the information below."
The goal here is to save everyone from having to send 5000+ manual emails. This would be a big boost for my team.
Code:
Sub Email()
Dim rng As Range
Dim OutApp As Object
[Code].....
View 5 Replies
View Related
Mar 2, 2009
I currently have a button then when pressed automatically sends a summary report taken from the first page of Sheet 1.
Worksheet needs to be protected all the time, but Macro only works on an unprotected worksheet.
I was wondering what additional code and where to put in so that when
protected back again after Macro has been executed?
Here’s the Macro taken from [url]
View 11 Replies
View Related
Jul 3, 2013
I have the below code to email a specific sheet to an email address, however the email stays in the outbox and isn't sent. Is there something missing from the code or is it a setting issue with my email? I'm using Outlook 2010.
[Code]....
View 1 Replies
View Related
Jul 29, 2009
When I test the email link on my computer, the 'Outlook Express setup' wizard initiates. However, I don't use Outlook Express (Yahoo and Zimbra).
I am wondering of it is possible to automatically ensure that in cases where a user doesn't use Outlook Express by default that Excel will open the users default email client- which could be a web browser or another application? Is this something determined by each users (Control Panel?Registry?) settings for handling email hyperlinks? Is there a piece of VBA code I could include in the workbook which identifies the relevant email client to open?
I know I can simply provide my email address on the workbook and allow a user to copy/paste it into their email application but I feel that by minimising the amount of effort required by a user to provide a rating that I'll be more likely to receive user rating feedback.
View 3 Replies
View Related
Mar 2, 2013
I have a spreadsheet which contains 30,000 lines Column A contains an email address. This spreadsheet was merged from several and so I know that there are duplicates in it.
How can I look up column A and if an identical value (email address) is found further down the sheet on another row. Delete that duplicate row?
I'm not concerned that the data may not be identical in other columns. If the email is a duplicate delete the next and all other rows that contain that email address.
View 3 Replies
View Related
May 20, 2008
I am trying to send an automated email by use of a "email" button. What I want it to do is to pop up a input box that will ask me who I want to send the email to, and once I hit ok it will send open up outlook and send the email. I have the code to work if I want it to be sent to a specific email address, but I can't seem to get the email address entry part to work. I will attach my code as it lays right now.
Private Sub CommandButton2_Click()'Need to reference: Microsoft Forms 2.0 Object LibrarySet OutApp = CreateObject("Outlook.Application")OutApp.Session.LogonSet OutMail = OutApp.CreateItem(0)strbody = "This is the most up to date copy of EAS Tracking 2.0 as well as the Resource Planning Sheet."attachmnt2 = "C:My DocumentsResource Planning Sheet_External.xls"On Error Resume Next'?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|? BELOW IS WHERE I CAN'T GET TO WORK!!!With OutMailDim range As Longrange = Application.InputBox("How many copies do you want?", "Number of Copies").To = range.Subject = "This Weeks Reports".Body = strbody.Attachments.Add (attachmnt2).Display.SaveEnd With'__________________________________________________attachmnt3 = "C:My DocumentsReport DataWork Request Tracking Data FolderEAS Request 2.0.xls"On Error Resume NextWith OutMail.Subject = "This Weeks Reports".Body = strbody.Attachments.Add (attachmnt3).Display.SaveEnd .........
View 9 Replies
View Related
Oct 29, 2008
I am trying to add a sound alert to a junior athletics recording program. The date of the meetings is in column (A), results are entered in column (B) for a particular event, say 100m sprint. Column (C) & (D) contain formula that recognise if that athletes result is a personal best (PB) result or a club record (CR). I am after a code that will play a sound when a new PB or CR has been achieved. I have downloaded the sounds I want into the office media file. I am new to VB codes. Any suggestions?
View 14 Replies
View Related
Mar 8, 2007
In ("a1") i have a time e.g 12:30
in a2 it is 1:40 ......................etc
i want a vba code that play a file.wav when the time exactly as in a1 then play it agin when it as in a2 repeating it self to .............a12
View 9 Replies
View Related
Oct 28, 2009
I have this
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") >= 2 Then MsgBox "Check: " & Me.Name, 64
End Sub
but I need to get a msgbox when the value of A1 is >= 2, then when the value is >= 4, then >=6, then >=8 , ............
the value of A1 is going to be increasing by decimal points as I enter data.
View 9 Replies
View Related
Feb 5, 2009
I'm creating an excel file that can email itself inside the body of a HTML in Outlook. I have found some code from the web and have re-fitted it so that I may use it for my purpose. My main issue is this: I cannot keep my default Outlook signature on the email when it gets sent.
View 3 Replies
View Related
Oct 13, 2009
I am using the following code and it works great the only problem is that when I have more then one email address in the same cell it will not send the email. Even if I seperate it with a semicolon. It work fine if I have just one email address in the email field. How can I get it to send the same info to different email addresses.
View 4 Replies
View Related
Jan 2, 2013
I have created a user Form where a user can enter all the details like (First name, last name, Email ID etc...). the entered data is submitted on Sheet1 and it is working for me.
Now which I want is the is it possible to pick up the last email id (Column D) and send an automatic email where email will be sent the last recipient?
Actually I want is that when a user will fill up the form I want to send him/her an email.
View 8 Replies
View Related
Apr 15, 2014
We know that professional emails have a fixed format. I have a list of people with their names and emails and there are some people for which emails are missing. I am pasting my sample data below. But first let me explain the meaning of columns.
Column A: Means full name of the person for which we have email id
Column B & C: just split of Available full name into first name and last name
Column D: Email id of the person with full name in column A
Column E: For the names in this column, we need to get email ids
Column H: Sample result
Now basis on the Full Name(Column A) and Email Id(Column D) can we get the email id for person in Column E.
Sheet4
A
B
C
D
E
F
G
H
1
Available Full Name
Available FirstName
Available LastName
Email for available full name
Actual Full name
Actual firstname
Actual lastname
Sample result
[Code] .........
View 2 Replies
View Related
Oct 18, 2006
I need to email a page from a worksheet to a series of people and am currently using the following
Worksheets("Report").Activate
ActiveWorkbook.Save
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application. ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
however, I also need the worksheet to be email to the person currently running the macro (i.e. when they email it to the others, a copy is sent to thier own inbox too), is there any way in which this can be done?
The user's email address could be formed from data in the spreadsheet, if there is an easier way to do this (i.e. email address is based on a cell in the spreadsheet).
View 3 Replies
View Related
Nov 25, 2008
I have a chart that's being updated with different values when I cklick on different radiobuttons. When the cells that the radio button refers to is empty or the calculation in the cell have an error it pops up a message that I need to click OK to go on. Is there a way to stop these alerts by writing a script that shuts the alert messages off during each click?
View 2 Replies
View Related
Dec 9, 2009
I have to prepare invoices daily basis..i have to write name in attached sheet i.e cell D7 and Operator name in G13..some time my boss catch my mistake that this operator is for any other company and some time he catchs that this company is for any other operator..
I have a list as there..kindly advise me if my operator is not equal to my company or my company is not equal to my operator as per my list in sheet 1 than a alert massenge should come there so that i would not continue typing till i correct it..
Is there any validation formula or any other advise..
View 9 Replies
View Related
Dec 3, 2013
existing workbook that has evolved over several years, there are bits of data spread all over the sheets and there are several sheets.
My question is. Is there a way to show/print/email an alert with a reminder message any time any of the formula cells gets changed, something like "Be aware a formula is being changed, make a note of the changes."
View 8 Replies
View Related
Jan 13, 2014
I entered an activex object command thing.. and now I'm not sure how to exit out of it.. it just keeps alerting errors messages like reference is not valid and other ones depending on what I type in the formula box.
I just want to remove the object, but I can't get past the error alerts.. they just keep coming every single time I click somewhere on the workbook trying to exit out of it.. so I'm not sure how to even get out of it.. I don't want to open up Task Manager to exit out of the entire program because I didn't save my workbook.
View 2 Replies
View Related
Jul 31, 2014
How to create a macro which would search through certain columns and post an alert/notification with the employee name (at the top of the column) and date (to the left of the column) if the cell value is less than 12.
View 2 Replies
View Related
Oct 3, 2009
If I already have lets say 90% on B9 and I try to enter 15% on D9 it wont allow me because of the total being over 100%, but how can I have an alert to say Please enter 10% or less.
Or
If I already have lets say 50% on B9 and I try to enter 20% on D9 and I try to enter 50% F9 it wont allow me because of the total being over 100%, but how can I have an alert to say Please enter 70% or less (the sum of B9+D9).
Can this be done using VBA?
I've attached the file that has the data validation.
View 11 Replies
View Related
Jun 18, 2014
Is there any way to get Excel to disallow you to enter in unique values into the same column? Like I know you can search for and delete duplicates, but I am wanting to get excel to disallow duplicates from being entered and/or give me an alert that what I just entered is a duplicate.
View 4 Replies
View Related
