I have a VBA script below that auto sends emails from excel. I tried to make this add an excel attachment from a specific location.
Sub SendEm()
Sheets("Template").Select
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row[code]....
I have a macro which copies worksheets from the current workbook and pastes into different csv files. I want to add into this macro after copying and pasting into the csv a popup box/form which asks the user "Would you like to e-mail to shops/teletext?". This box/form would have a Yes and No button.
If they press yes then the macro will continue and select worksheet 'selections' and send to recipients as attachment. If possible i would also like to automatically fill in the 'to' box in the new e-mail as these addresses will be the same three addresses each time. If they press 'No' then the macro would just carry on to the next point.
Is it possible to have a column with several email addresses and have a macro that emails out with an attachment of a word document? If so how is it done? I dont want to attach any workbooks or sheets just an word file. Furthermore I want to do this via excel not word. Also if its possible I would like to keep a single subject heading for all of them.
View 3 Replies View RelatedI have set up a form to deposit data into excel database and automatically email recipients with a generic notification when the form is submitted, the form is then cleared. I have also included a print button on the form which can be used to print the completed form. Is it possible for when I submit the form for the email to automatically include an attached image of the completed form??
View 2 Replies View RelatedI've been searching for a way to save a copy of a workbook as an .xlsx by bringing up the save as dialogue box so the user can name and choose the location and then to open a new email with the send as attachment function so the copy can be sent to user defined recipients.
Any similar requests that I've seen are asking for a specific file name and specific directory.
The file which I want to send as a CSV needs to be named in a certain way. It would be the contents of cell A2, then the date it was sent and the time. Here is my current code. How can I get it to pick up data from a cell and then add it to the list. Also, the list has to be one string, so for example, 23459 Cell A2, 1310 Date and 192859 would be time. So the renamed file would be named 234591310192859. Here is my code which may make what I'm saying a bit more into a bit more sense. Currently the name which is outputted is 'Name of Spreadsheet.xls 13-Jan-10 19-31-59'.
View 6 Replies View RelatedI have a sheet containing various information, that I export to a word document, that I then would like to send via email. I would like to do this without saving the document. I am working with office 2010 so the routingslip function is not an option (as far as I know). I have posted some of my code below:
myWord.Options.SendMailAttach = True
myWord.ActiveDocument.SendMail Recipients:=Mailadress, Subject:="Test"
I get an errormessage saing "Compile error. Wrong number of arguments, or invalid property assignment"
I have created a userform in Excel. The information from this userform is saved into a word document using a command button. What I would like to know is can I use vba to, not only create this word document but also, to send it as an email attachment at the same time? Just to make it a bit tougher - I'm using Groupwise as my email software.
View 4 Replies View Relatedputting a macro button on an individual worksheet so the user can click a big easy button and a new email will pop up in Lotus notes with the worksheet attached for them to input the address and then send the worksheet..
I prefer to:
Send individual worksheets only
The ability to input the email address is the new composition email in LOTUS Notes
It copies one of the work books, Saves it and then emails this as an attachement to a few people.
All users are on Excel 2010, however the file originally was created in Excel 2003. The File Extension Was .xls as was the attachment.
First time I sent the email this year it came through corrupt. No changes had taken place in the workbooks or the code.
I have now updated the spreadsheet and saved it as a .xlsm
I have also updated the code so the attachments are .xlsx
The email attachments are always corrupt.
Code:
Sub copy2()
Application.ScreenUpdating = False
Dim fname As String 'filename
Sheets(Array("To Order", "WO To Chase", "PO To Chase", "Contact", "WO Report")).Copy
fname = Year(Date) & " " & Month(Date) & Day(Date) & " Chase & Order" 'filename!!
ActiveWorkbook.SaveAs FileName:= _
[code]...
where the corruption might come from? Its not via the email as if I go to the saved file its corrupt as well.
is it possible for Excel to generate a pop-up or auto send an e-mail when a value is true? I'm wanting to be notified on a lengthy spreadsheet either by e-mail or by pop-up when an item is within 90 days of its due date.
Something like:
IF(H2-90>=TODAY,SEND E-mail/generate pop-up code,"")
I wrote this code years ago to Auto Send Emails from Outlook...
Sub Emailfile()
Dim OutlookApp As Object
Const olMailItem = 0
Set OutlookApp = CreateObject("Outlook.Application")
Dim EmailContent As String
With OutlookApp.CreateItem(olMailItem)
EmailContent = Range("A1").Value
.To = "Test"
.Subject = "LSG Data File"
.Body = EmailContent
.Attachments.Add ("P:MI TeamICCE LEADS EXTRACTSLSGLSG Data File")
End With
End Sub
I can't figure out how to get it working for Lotus notes... So 2 things I guess really... Firstly is it possible? Second: If it is, how can I get it to send say 16 emails each with a specific attachment but the same commentary?
I need to send an email reminder to teachers on the day they have duty. I know how to set up an email that sends on a certain date, but I am unsure how to code it when the date changes. I have attached the spreadsheet.
In cell A 53, I have the date November 24th. In cell C53, I have the email address of the teacher doing duty that day. In cell F53, I have the date November 25th. In cell, I53 I have the email address of the teacher performing duty that day. On November 24th, the person in C53 should receive a reminder email. On November 25th, the person in cell I53 should receive a reminder email. I will have spreadsheet for every month of the year. So there will be LOTS of changing dates. How do I code this when the date keeps changing?
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.
Is it possible to have the following simple formula =D3-D13 with the answer in D20, this works fine but I also want D20 to be amended if, say D9 has a number added to it. For example, if the answer to my formula is 20 (in D20) and I then want it to change to 25 by putting 5 into D9. How can it be done?
View 1 Replies View RelatedI am currently working with a very detailed cost sheet that I have created in excel. To keep this description short... I ran out of columns after 6 months and had to create a new tab for the next 6 months. Basically, I have copied and pasted the first six months to the new tab and QC'd all the formulas and all that.. What I am foreseeing happen, as I've seen this in the past, is this cost sheet is a dynamic thing that will require the addition of rows for more line items.
My question is this, is there a way to "link" the two tabs so that if I added a row to the one sheet, it will automatically add a row to the 'linked' sheet in the exact same position with the same formatting?
There is likely an easy fix for this, but I have an auto increment with the following code and would like the letter R to precede the auto increment number everytime.
My current code is this:
Private Sub Workbook_Open()
Sheets("Receipt").Range("F11").Value = Sheets("Receipt").Range("F11").Value + 1
End Sub
look at the script im running in the attached spreadsheet. It auto generates an email to the email address in c so long as column H has a yes in it. However there are things i would like to change. I would like it to say: contact xxx to discuss your outstanding resource center loan titled: {then put the title of the load in here - column E} which was due back on {then put due back date here column G}.
View 4 Replies View RelatedI am using the following coding on my s/sheet at the moment...
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim r As Range
Application.EnableEvents = False
For Each r In Target
If Trim(Len(r.Value)) = 1 Then r.Value = UCase(r.Value)
Next
Application.EnableEvents = True
If Selection.Count = 1 Then
If Target.Row > 3 And Target.Column > 14 And Target.Column < 19 And Target.Value = "Y" Then
MY_LINK = InputBox("As you have entered 'Y' into this cell, please provide a link to the document. If there are no documents available for linking, please click cancel and change the value of the cell to 'N'.", "Document Link Request")
ActiveSheet.Hyperlinks.Add Anchor:=Range(Target.Address), Address:=MY_LINK
End If
End If
End Sub
The top code is to change all singular small letters to caps... and the second is to bring up an "enter hyperlink" box when "Y" is typed into a particular cell...
Can anyone edit this 2nd code to include a "browse" button, so that when entering the hyperlink, it can be to a file on the computer?
I used Scheduled Task to set up my spreadsheet to open daily. I have the code with assistance to pull out the due date items and place them into an email.
I have come across XLSTART/AUTOEXEC/ACTIVATE...ETC...
But cannot figure out the code that will automatically "enabling macro" once Scheduled Task opens the spreadsheet?
Then once the macro runs, the email with the due dates, how can this auto send without user interaction?
(currently I would have to hit send)
I am trying to make the process totally automated to open the spreadsheet at a certain time, send the email with due dates and close the spreadsheet.
Following code in ThisWorkbook--
Private Sub Workbook_Open()
Check_Date_Send_Mail
End Sub
Code in Module1--
Option Explicit
Sub Check_Date_Send_Mail()
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim rnDate As Range, rnValue As Range
Dim stAddress As String, stMsg As String
Dim stRecipient As String, stSubject As String
Dim stPost As String
Set wbBook = ThisWorkbook
Set wsSheet = wbBook.Worksheets("Sheet1")
With wsSheet
Set rnDate = .Range("d2:t23")
End With
How do I go about using adding an auto filter on specific columns of a worksheet..?
I.e. I want to auto filter column "D", "G" and "I" but none of the columns in-between ("E", "F" and "H")
Currently I can only create the filter for one column or a group of columns that are next to each other)
We use proprietary software to connect to an oracle database. The proprietary software has its own login form. I connect to 4 or 5 different databases randomly throughout the day. I wrote a script that I thought would alleviate my login woes but it doesn't work. The login, password, and database info get sent to the form but they all end up on the login line. Instead of the tab character being sent, I get a Beep generated for each line of code that is supposed to send the tab key code. My code is below and is stored in a *.vbs file.
setwshShell =wScript.CreateObject("WScript.Shell")
wshShell.AppActivate "Title Of My Login Form"
wScript.Sleep 100
wshShell.SendKeys "My Login Name"
wScript.Sleep 500
wshShell.SendKeys "{TAB}"
wScript.Sleep 500
wshShell.SendKeys "My Password"
wScript.Sleep 500
wshShell.SendKeys "{TAB}"
wScript.Sleep 500
wshShell.SendKeys "Name of My Database"
wScript.Sleep 500
wshShell.SendKeys "{TAB}"
wScript.Sleep 500
wshShell.SendKeys "~"
I have a sheet that needs to be sent out via email via the "send to mail recipent (as attachment)" i have tried doing it via a macro but with no joy.
View 2 Replies View RelatedI have used a database template from this site and changed it to suit my needs but I have a bit of a problem with some of the code. I know how to update the worksheet with the relevant userform text fields and in another project I did I have successfully sent userform text fields in the body of an email.
For this project I want to update the worksheet AND send an email at the same time. However, using the two pieces of code together is causing an error that I can't seem to solve (using my very limited vba knowledge!). The code I am working on is below and I have highlighted the line that is getting the error message. C
VB:
Private Sub cmdSubmit_Click() 'Submit new record
Dim ws As Worksheet, lRow As Long, Str As String [code]....
I am trying to write a macro to send mail on every Friday and also on last day of every month. If the last day of the month falls on Saturday or Sunday then the macro should mail on Friday. I have written a separate macro to send a mail. I have also written to check day(ie Monday, Tuesday etc) of today. If today is Friday or month end i can send mail. I dont know how to tell the macro to send mail on friday if the month last date is saturday or sunday.
Sub done()
Dim Dat As Date, x As Integer, y As Date, sorry As String
Dim str As String
sorry = "Today is not friday or month end. So i cannot send mails"
str = WeekdayName(Weekday(Now()))
[Code] ........
I am trying to do it write some code which will take the activesheet & allow me to email it as an attachment (outlook) - sounds simple, but it's proving a nightmare
View 9 Replies View Relatedway to send only one worksheet of a workbook to an email contact as an attachment. When your in excel you can click on file and select sent to (as attachment); however this attaches the whole workbook. I do realise that I could copy the worksheet that I want to send to another workbook by itself and then send it. However this is time consuming. Anyone know of a way to just send 1 worksheet from the workbook to an email contact as an attachment? I also know that I could copy and paste the worksheet directly into the email.
View 3 Replies View RelatedI have an excel sheet contains data of 500 staff code and email address . I also have their pay slips in a folder with staff code.pdf as file name. i want to send corresponding payslips through mails as attachment from the folder using excel vba My excel file is like this
staff code name email id
w4246 rajesh rajee@tm.co.in
and folder contains file w4246.pdf
I need to send 25 mails on daily basis to my client. All fields in mail are common except recipient and attachments. Every mail has 3 excel attchments. So i created a macro in excel which sends mail as per my requirement but picks up only one attachment from the path i have mentioned in the vb code. Whole macro is running perfectly. I just want to know what modification i should do in that code to attach more than one excel file to the mail from the path i have given. Below is the code:
Sub macro1()
Dim sFolder As String
Dim Folder As Object
Dim file As Object
Dim fso As Object
[Code]....
I need to know how to send an excel worksheet as an xls attachment by email.
View 2 Replies View Related