Auto Emailing Workbook
Sep 26, 2007
I am trying to get a macro to automatically email my workbook out to my distribution list. I have it working but I get a popup telling me:
"A program is trying to automatically send an email on your behalf.
Do you want to allow this?"
Is there anyway I can bypass this message? The code I am using is below:
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "mbudgell@hotmail.com"
.CC = ""
.BCC = ""
.Subject = "NAME"
.Attachments.Add ActiveWorkbook.FullName
.HTMLBody = MyHTML & "Hi,
View 9 Replies
ADVERTISEMENT
Jul 7, 2007
Dim wb As Workbook
Set wb = ActiveWorkbook
wb.SendMail "person@address", _
"This is the Subject line"
and this seems to work fine. Could there be any potential problems with this? All senders and recipients should be using outlook. Also is there a way to send the workbook but lose any macros attached. I'm not sure that all recipients will be able to receive workbooks containing macros.
View 9 Replies
View Related
Nov 13, 2009
I have a workbook with several sheets- lets call it MyWorkbook (The VBA Project should be locked so no one can view code). What I need is to run a code from MyWorkbook to make a copy of this – call it NewWorkbook. Now in NewWorkbook I need to hide sheets Kong,Bong and Dong……then save it as ‘Workbook name’& Date & time. Then email NewWorkbook. (I don’t want to keep any copy of NewWorkbook)
After that I need to Save MyWorkbook (so basically MyWorkbook keeps getting updated with new info everyday, and there are no hidden sheets)
VBA Codes should be password protected in both workbooks. I tried to write the email code , this is what I have so far.
View 2 Replies
View Related
Oct 13, 2009
I have an original workbook that I use daily stored in a folder called 'Live'. I also have this same workbook saved in a different folder call 'In Progress' because I am constantly improving and making changes to it. While I'm in the revision mode, I keep it in this folder. Once I've completed my revisions, I move it to the folder where the live workbook is located and replace the old version. Therefore, I have two copies of the workbook at all times. The name of the workbook in both folders is the same (IRQT)
I have a macro in this workbook that will allow you to save a copy of the workbook in a folder called IRQTArchive. The macro will create the folder if it doesn't exist, then store a copy of the workbook using a name in a cell. After that is complete it renames the workbook back to the original name (IRQT).
This macro works perfect in my live version, but when I execute the macro in the 'In Progress' version, I get a Compile error: Sub or Function not Defined when it reads the dirExists command in the first line of code. The code in both sheets is identical. Here are the first few lines of code. The command dirExists is highlited in yellow when it errors out.
View 11 Replies
View Related
Feb 5, 2013
I have a workbook (Book B) I want to take information from and Auto populate into another (Book A) if the Type e OR Type f are marked. But only need certain column information from Book B. Let me know if there are any questions I am unsure how better to exlain.
Book B.xlsxBook A.xlsx
View 1 Replies
View Related
Jun 14, 2007
I have the following code in a template:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Select Case Sheet1. Range("A2")
Case Is > ""
MsgBox "Don't forget to take your medications today. Have a pleasant day, " & Sheet1.Name & "."
Case Else
MsgBox "Have a good day!"
End Select
ActiveWorkbook.Close
End Sub
When a user opens the template, Sheet1.Range("A2") is populated with today's date & Sheet1.Name becomes the user's name. How can I set this up so that the template, which is named Medical Records, is saved as a workbook named : Sheet1.Name & " Medical Records.xls"? In other words, if the user's name is Bill, I would like the workbook saved as Bill's Medical Records.
View 2 Replies
View Related
Jan 13, 2009
How I solved my problem of sending out information to more than one email recipient using Lotus notes email and Excel 2003 vb code. I created groups in Lotus Notes for those with more than one email address Then I assigned a string to vaRecipient like so:
.SendTo = vaRecipientThe string was either one email address or a lotus notes group name.
View 2 Replies
View Related
Jul 17, 2006
I am attaching workbooks which reflect my original work. I have some questions :
1. How can I allow users to view this with everything working fine? (zipping and emailing was suggested, but I am getting some errors)
2. How can I ensure that the viewing format remains same for everyone viewing it?Al colleague of mine, tried and the formatting is wierd for him
View 3 Replies
View Related
Jan 31, 2007
Does any want know how to do the following:
1. In the same Workbook, I have one sheet with email addresses.
2. On Sheet 1, in Cell D3, I have the actual email address I want to send(Used data validation drop-down to get email address)
3. I´ve used many codes and it sends very well, however it does not send the email as a fully functioning workbook.
4. The recipient gets the following message "This book contains links to other sources"
View 9 Replies
View Related
May 16, 2007
I have a spreadsheet that I email daily after I update the information in it.
I was unable to find a "Code" to do so when I wrote it so what I did instead is use the Sendkeys funtion to emulate the keystrokes as if I were doing it manually. This works well with one exception.
I now have 5 email accounts and I do NOT want it to email via the default. I need to SPECIFY wich account to email thru. But I can ot figure out how to do this.
Sub Email()
' EMAIL Macro
ActiveWorkbook.Save
Application.DisplayAlerts = False
Windows("Load List.xls").Activate
Sheets("email").Visible = True
Sheets("email").Select
Range("a1").Select
SendKeys ("%f")
SendKeys ("d")
SendKeys ("m")
Application.DisplayAlerts = True
ThisWorkbook. Saved = True
View 4 Replies
View Related
Jan 11, 2008
I want to create a template in Excel for a change order system. Every time I have a new change order I want it to be numbered. I want Excel to automatically keep a log of all the changes orders to date with change order number, date, title, etc.
View 9 Replies
View Related
Jan 18, 2009
Is there anyway that a workbook can be set up to close itself at a set time i.e 19.00hrs every day?
View 9 Replies
View Related
May 22, 2007
I have only one workbook in which I would like to enable auto-save. Hence, I do not need the auto-save add-in, which I've already tried. Is there some VBA code that can replicate the auto-save add-in for only one workbook? Also, I would like the default auto-save settings to save every 1 minute and NOT prompt for the save. This workbook gets completely new data every few seconds through a DDE Link, so having it save without prompting would be fine. I liked the auto-save add-in, but it reset to default settings every time the workbook was closed, I'd like to keep the same settings every time the workbook is opened.
View 5 Replies
View Related
Aug 20, 2014
When I attach a 1 page spreadsheet to an email and send it to my boss, the spreadsheet is no longer on one page when he opens it. What causes this and how can I fix it on my end or fix it from his end to keep the same format?
View 2 Replies
View Related
Nov 29, 2012
Add worksheet as an attachment to an outlook email by having a button on the spreadsheet itself. However I have added another worksheet which i would like to add to the same email ie 2 attached worksheets to the same email this being decontamination certificate. I have tried to do this myself by copying and pasting some of the code and changing the paths and name but all I get is one or the other or the wrong name to the worksheet.
View 10 Replies
View Related
Aug 22, 2007
I am trying write one to search a range of cells and attach all files located in those cells to an email. I can get most of the code to work, but am having difficult getting it to search through specific cells.
View 14 Replies
View Related
Mar 30, 2009
I found this link in numerous places on this forum to email just a single worksheet from a workbook using one macro.
HTML Code: ....
View 12 Replies
View Related
Feb 2, 2012
I am trying to set my cod up so I can email my excel sheet to multiple people. I tried using a ";" to separate the email addresses (as shown below) but that doesn't seem to work.
With ActiveWorkbook    .SendMail Recipients:="bubba@gmail.com;bubba2@gmail.com", Subject:=s    .Message = m    .Close SaveChanges:=False    End With
View 6 Replies
View Related
Feb 7, 2013
Refining the below code which repeats itself for 60 agents per worksheet, for 7 worksheets. Is there a way to loop the code so it counts up 68 cell references until the 'blank cell' condition is met?
[code]'## Agent 1
If Sheets("CSR Dashboards").Range("M3").Value = "" Then sResult = MsgBox( _
Prompt:="CSR Dashboards have been sent.", _
Buttons:=vbOKCancel)
If sResult = vbOK Then
[Code] ........
View 9 Replies
View Related
Feb 24, 2007
I have an icon in excel that i would like to attach a macro to and send sheet 2 to a specific email address.
View 4 Replies
View Related
Feb 15, 2014
How to get an automatic macro to run from my first sheet (sheet 1 of 10).
However, on my first page, users must enter 36 numbers in exact order and then those numbers need to automatically be copied to start at A3 on my following 9 sheets.
View 3 Replies
View Related
Jan 11, 2008
I have a workbook with a list of names of up to 15 people in each of 5 rows. Each row then populates a row in a separate workbook with those names. Each person is identified by a number and each person then has their own worksheet in that workbook.
Is it possible in some way to auto-name the tab for each worksheet from the number in the name cell?
View 7 Replies
View Related
Feb 11, 2013
Can I set up my workbook so that the formula Auto Calculation works on one of the sheets, but the other two sheets only calculate on saves.
I have three sheets in a workbook. 1 of the sheets is used for data entry and there are quick small visual formulas on that sheet that make data entry easier and produce mistake double checks. But the other two sheets are formula intensive and take a few minutes to calculate which is fine considering it only calculates on save. But I need to be able to have the one sheet calculate automatically while these other two are only on save.
View 1 Replies
View Related
Sep 3, 2013
I need a formula or a macro here, or something completely different. I have one spreadsheet that tracks all records that I produce. In one of the columns (F), I have indicated whether certain forms were issued with the record. This column can either contain an "x" or nothing at all. On a separate spreadsheet, I track and record the results from all these forms. I need something that will make the second spreadsheet (TrackTrend) automatically search column (F) on spreadsheet one (RecordTracking) and if "x" is found, return the information for columns (A-C) for that given line. If nothing is found, nothing should be returned.
View 3 Replies
View Related
Aug 26, 2009
If possible, Can a module be copied into a new workbook from the master workbook. When the one I have does not copy the modules when creating a new workbook. If so it would make my life a bit easier.
View 9 Replies
View Related
Feb 2, 2010
1. I have got a master sheet (Headers: First Name, Last Name, DOB, Age, Actioned Date, Query).
2. There are around 20 workbooks with the same headers.
3. All Individual workbooks are updated everyday.
4. Next day morning I need to copy paste all the values from each workbook to master sheet.
5. Thought of linking the workbooks. However, that replaces all.
6. Here is the example senario.
a. Each workbook is updated everyday.
b. Next day morning i need to copy paste all the data into master sheet with the old data.
View 9 Replies
View Related
Jan 12, 2005
I need to know how to send an email from Outlook using a rather large email address list (500 addresses) that resides in Excel.
Also, I need to know how to hide the individual recipients and send it out under a title name. I want all of the recipients to see the title name only - and not each other.
View 3 Replies
View Related
Jun 25, 2013
I am building a weekly email to my clients giving them some data on their account. When i send through file-> Share as html email, the formatting gets all screwy.
View 2 Replies
View Related
Jun 25, 2014
I've created a userform below and I have a code to write the data entered in the form do the following:
1. Save the data in a worksheet (Asset History) within the same workbook,
2. Copy the newly entered data into a another worksheet (Asset Form).
3. Take an image of the data from worksheet (Asset Form) and
a) Create a HTML image on out look
b) Send out an email (Get the email distribution from worksheet (EmailList)
4. I also want to be able to select the data nad change if any of the information changes using the userform.
Not sure why my code is getting stuck and getting the attached error "1004" when I get to saving and emailing. My guess is that the error is on the Checklist option explicit but I cants fix.
Here is the full coding
Private Sub cmdsave_Click()
Dim cell As Range
Dim rowoffset As Integer
[Code]..............
View 14 Replies
View Related
Oct 16, 2008
I put together some code in a frankenstein fashion to have a report sent to different people based on the sheet name.
I am trying to automate this so that the macro looks at each sheet name and then converts the sheet to a PDF, attaching and sending an email to the relevant person.
However I have run into a referencing issue whereby it does not pick up the data from each sheet. I'm guessing this is to do with the way I have used ActiveSheet or sh but I have not figured it and really need a fresh pair of eyes on it.
It should be looking at each sheet in turn but instead it is taking the data from the activesheet and duplicating this based on the number of worksheets in the workbook.
View 8 Replies
View Related
