I have a workbook that has multiple worksheets and I would like to use a command button to e-mail just one selected sheet. I want to create the single sheet as an attachment on a new e-mail message but leave the addressing to the user as it will vary, and not save the single sheet. My challenge is that the users have a variety of different e-mail clients (Outlook, Lotus Notes and others).
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()))
I have a workbook with two worksheets. I have an "E-Mail" button within the workbook that, when clicked, emails the entire workbook (using Outlook). The button essentially triggers a macro that makes a copy of the file, opens the dupilcate, mails it, then deletes the duplicate ... all the while the original is still open and not changed at all.
Everything works fine, however I would like to know if there's a way to have the "E-mail" button to just email one of the worksheets. For example, I have two worksheets entitled "WFS" and "CAR". When the email button is clicked, I would like to only have the "CAR" sheet emailed. Here's the code I currently have in place:
I am using a version of the following code that sends a mail using Lotus notes and attaches the Workbook - I am wondering if there is anyway I can make it attach the WORKSHEET instead ?
Code: 'The procedure for executing the main task: Sub SendWithLotus() Dim noSession As Object, noDatabase As Object, noDocument As Object Dim obAttachment As Object, EmbedObject As Object Dim stSubject As Variant, stAttachment As String Dim vaRecipient As Variant, vaMsg As Variant
I have written a procedure to send out mails to a distribution list with the required attachment attached to the mails.
However, before the procedure (for sending mails) runs, I want to check if I am using the correct Outlook Mailbox to send the mails (my job requires me to use multiple mailboxes, and I cannot send out mail from a wrong mailbox; however, accidentally I may use wrong mailbox to send the mails).
So, I need the procedure to identify the correct mailbox.
I have finaly been able to put in words what I want to do. Hope this makes sense. I have the excel document should anyone want to see it.
In worksheet “Summary table”, column A is a job number (Txxx), that worksheet is a summary of all the jobs. If you select a job number and run a macro (lets call it macro5) it will then give you a detailed / itemized listing of the job in a separate worksheet. I already have created macro5 for the detailed bit. However now I am looking for a macro that will lookup the email address in worksheet “Tenacity jobs” corresponding to that job number and then email the result of macro 5 to the user.
So, for example, I begin in worksheet “Summary table” I would like to see the details on job # T456 which has a subtotal of 420,227.05. I click on this and it runs macro5 showing me the detailed breakdown. However once that macro has run I would then like to email this off to; email@example.com; firstname.lastname@example.org as they are the contact people which corresponds to #T456 in worksheet “Tenacity jobs”
I am a teacher and my department uses Excel for grades. We need to be able to print grade reports for students. We currently use a mail merge to do this, but some teachers are having a hard time with this process. They don't seem to understand using the two programs together.
I have a spread sheet with all vehicle drivers license expiration dates. there are about 300 drivers to track.
What I am looking for is a way to have an E-mail sent to me 30 days prior to the expiration date with that persons name and date of expiration so I can forward the e-mail to his supervisor. And I need this to happen without having to open the file every day. ("Excel" itself will open daily, if that helps. )
Note: I am using me as the first person, actually this will be for our fleet manager.
I have searched Google and this board this whole week and all I can find is links to threads that are dated 2000 thru 2003 that doesn't come close to what I'm looking for.
I'm not sure if any of those links will get me started because they reference Excel 97, 98, & 2000. I am useing XP and we are set up with Outlook.
I guess what I am asking for is, does anybobdy have a link or some what of a code that will work with XP and Outlook, so maybe I can figure out what to do with this?
This is a snippet of what I have as a data base if it will help: ...
I have an excel sheet that our sales staff enters data on and I'm wondering if there is a way to send an E-Mail to certain people if they answer yes in cell S44? I want this to send an E-Mail telling the intended person that they need to perform a "First Article Inspection" on an item that sales has just finished with. The excel is 2003 and everything runs through our network.
For Each fil In fldpdf.Files LenFilName = Len(wb.Sheets("Mail").Range("B" & I).Value) If wb.Sheets("Mail").Range("B" & I).Value = Left(fil.Name, LenFilName) Then MItem.Attachments.Add fldpdf & "" & fil.Name Exit For End If Next fil
Step 1 - I have a Read Only excel template which I would fill with the required data. Step 2 - The data in cell C8 (Text) should be taken as file name and should be Saved as file name. Step 3 - The above saved as file should be attached to the mail to outlook. I would give the email address manually.
I want to do a mail merge from a pivot table. The pivot looks like this (bit simplified ;-) :
Name JanFebMar Joe $12 $23 $34 joe(a)test.com $12 $23 $34 Frank $45 $56 $67 frank(a)test.com $45 $56 $67 Alex $78 $89 $90 alex(a)test.com $78 $89 $90
Created with: Name and e-mail as row items, months as columns and cost as values.
In the e-mail I want to address the person by his name and use the right e-mail address to send it. So ideally (I think) the pivot should look like this (e-mail address in the column next to the name instead of under the name):
Name e-mail JanFebMar Joe joe(a)test.com $12 $23 $34 Frank frank(a)test.com $45 $56 $67 Alex alex(a)test.com $78 $89 $90
Now the problem is that I can't place e-mail in the column section of the pivot... Instead of placing the e-mail addresses vertical beside the name they are place horizontal...
I have a sheet of 2000 rows. What I want to do is merge the information into a word document with 8 rows of information on each sheet. These will then be printed and guillotined. what I want is to have the information for the second row to appear under the first one and so in position 9 and the third under that in position 17 and so on so I can just stack the piles up and they will be in order rather than having to sort them all into order. I do not know if there is anyway of tell word what oder to put the records in or if I will have to use a formula in excel.
If I have to do it using excel I need to be able to have a separate column which i can sort and it will then be in the right order for the merge. The first row will be 1 then 9 then 17 (adding 8 each time) up to row 50. Then row 51 is 2, 52 is 10, 52 is 11 up to 100. Then row 101 is 3, 102 is 11 and so on and so on.
I have an Excel spreadsheet with names and addresses which I want to mail merge into a letter on word (annual benefit statements). The names and addresses on Excel have been imported from system software and are all in capitals. Is Excel smart enough to be able to keep the first letter of text in a cell but to change the remaining letters to lower case?
I'm using Excel 2003, Windows XP, and Microsoft Outlook. I'm trying to copy some cells, which include merged cells, from Excel into a new e-mail using Outlook (the output of some calculations), but every time I do this, Outlook seems to unmerge the cells.
When I paste into Word, the cells remain merged; I can then copy/paste from Word to Outlook with no unmerging occurring. what's going on and/or how to resolve this issue so I can copy things into Outlook straight from Excel?
I am using a macro to send mass mails to my clients attaching a file to each
my code is like this:
Sub Mail_Cust() Dim OutApp As Object Dim OutMail As Object Dim EmailSubject As String Dim EmailSendTo As String Dim MailBody As String
Path = "Y:CustomersStatements of Accounts20111102"
Now my prob is when the macro goes for a new mail with attachments and mail body and all... it misses my outlook signature. If i am creating a new mail signature appears. but when i run from macro my signature is missing...
There are also cells in this column which literally have a sentence long description, but those are not my focus. What I need to do is find a way to strip out the e-mail address found in the examples above and copy them into a new cell (the same row for the corresponding user). I don't know where to begin for this.
I am doing a mail merge and one of my columns is an interest rate. It appears normal in my spread sheet but when I do the mail merge some of the number are extending about ten digits, for example, on my spreadsheet it is 5.75, on the mail merge it would be 5.759999999. It appears to be totally random.
I've succesfully managed to get the mail merge functioning from within Excel at the press of a button. I had a problem initially Word not shutting down properly but have solved this.
The problem I have now is that after the merge has finished and the spreadsheet is saved/closed and Excel is closed, the process tab in Task Manager says that Excel is still running. I found other instances on the net in other forums of people having a similar issue but alas no solutions. The full code for the procedure is below:
Private Sub cbMerge_Click() Dim wrd As Word.Application Dim mydoc As Word.Document Dim lastrow As Long Set wrd = CreateObject("Word.Application") wrd.Visible = True Set mydoc = wrd.Documents.Open("U:TSD3-Projects11-CBRNCBRN-036-CVF HVAC Main Contract-T13212-WorkingECR FolderTESTINGEQR Test.doc")
With wrd.ActiveDocument.MailMerge .OpenDataSource Name:= _ "U:TSD3-Projects11-CBRNCBRN-036-CVF HVAC Main Contract-T13212-WorkingECR FolderTESTINGECR Log TESTING.xls", _..................................