it has been designed to send out automated emails using Excel and Lotus Notes, unfortunately the code was give to me to modify and the person who created it didn't comment the code at all so i'm finding it impossible to see what each part is doing: ....
View 14 RepliesI 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 .........
Can someone explian to me this line of code in eglish specially after the .Count /14-1
View 2 Replies View Relatedi need to extend the analysis but i have no idea what the 2 modules below do.
Sub mmm()
zonecode = Worksheets("sheet1"). Range("a65536").End(xlUp).Row
etypes = Worksheets("sheet1").Range("iv1").End(xlToLeft).Column
nextline = 2
For i = 2 To zonecodes
zcode = Worksheets("sheet1").Cells(i, 1).Value
For j = 2 To etypes
etype = Worksheets("sheet1").Cells(1, j).Value
enbr = Worksheets("sheet1").Cells(i, j).Value
Worksheets("sheet2").Cells(nextline, 1).Value = zcode
Worksheets("sheet2").Cells(nextline, 2).Value = etype
Worksheets("sheet2").Cells(nextline, 3).Value = enbr
nextline = nextline + 1
Next j
Next i
End Sub....................
I have a spreadsheet that deals with expiration dates. The whole sheet is conditional formatted so that when the current date is within 3days of the date showing in A2 then that cell changes colors. Ok is it possible that a script can be written so that when the cell changes colors... (Someone is going to think I am silly asking this but) excel sends an automated Email?
View 2 Replies View RelatedMaking an excel program that will automatically Email 5 people with either the whole document, a link to the doc, or just an email using the cells to inform them on what needs to be checked. And I don't even know where to start.
There will be a spreadsheet with everyone's name going down in column A, and then in the row next to the name it'll have a date of when they were put on it. It'll then have another date of the time they need to have done certain things, like see the doctor or get a class done, so when the current date reaches the date in the column the cell that is the same date will turn red, and the document will be mailed to 5 of the higher ups to inform them they need to check on this Marine to see if he has accomplished whatever task has expired.
Ive been trying to research a lot of this on my own, but ran into problem where the current outlook version does not suppose the command DATE within an excel, so I need to make a database using multiple excel sheets using Visual Basic(or so I'm told now).
I have an excel sheet where automatically live data comes in.
When the cells reach a certain value the value in cell R1 becomes 1.
I want to make a macro in vba that sends me ONE email if the value becomes 1.
I tried :
Public Function MailS(mailtrigger As Double) As Double
If mailtrigger = 1 Then
Call makeandsendemail
Application.Run "makeandsendemail"
MailS = 1
Else
MailS = 1
End If
End Function
But this code send millions of emails.
The following line of code is part of the great work that this forum did in creating a macro to send an automated email through Lotus Notes.
I have a small tweak that requires the Body of the message to exist on sheet other than the one where the macro is launched.
The originial code had:
Body1 = Replace(Join(Application.Transpose(Range([by9], [by18].End(3))), "@") & "@@Thank you,", "@", vbCrLf)
I tried:
Body1 = Replace(Join(Application.Transpose(Sheets("LookUp Sheet").Range([by9], [by18].End(3))), "@") & "@@Thank you,", "@", vbCrLf)
But the body of the email is not being copied.
Am I putting the calling the Sheets reference incorrectly?
The routine works perfectly if the body data comes from the sheet where the macro is launched?
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] .....
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].....
I am using the code below that I got off of these forums to email a particular sheet in my workbook, but I need to strip all of the VBA code and the command button from the sheet being sent.
View 14 Replies View RelatedI have searched for a while on VLOOKUP (something I'm not very familiar with but and trying to become more so), And if this wasnt such a time sensitive project I would continue to search. In one sheet, there is a column which includes employee #'s, the next column over is the employee names, next is salary. On another sheet I put a drop down box where you can select the employee number. In the cell next to that I would like to have the employees name come up as well as the salary in the next cell over....something like this
Name Salary
Dropdown w/#'s
Taken from
Emp# EmpName EmpSalary
23123 Joe Smith $50,000
Is this the right time for vlookup...there are almost 1000 names in this sheet?...
I have a workbook with several worksheets and numerous userforms, commandbuttons and macro's. I want to prevent people from saving over the workbook once they have used it, but allow save as using a different workbook name.
I tried saving the book as .xlt, but then when I reopen it and make material changes, it lets me save over it. I have't worked with templated before, is there something I am doing wrong?
I have this formula -
=SUMPRODUCT(('[Australia Load Tracker - March 2014 - V2.xlsm]QA'!$E:$E=B4)*('[Australia Load Tracker - March 2014 - V2.xlsm]QA'!$D:$D=$A$2))
Which works perfectly if A2 has the cell value 24/03/2014 however, if i put in $A$2 this value
="02"&"/"&$XFC$1&"/"&"14", where XFC$1 equals =IF(XFD1>9,XFD1,"0"&XFD1) and XFD1 = =MONTH(TODAY())
Which in basic term gives the month value "03"
The cell shows the value 24/03/2014 however does not work with the sumproduct.. is there anyway to get sumproduct to read this cell value as 24/03/2014 as the whole point is so every month I don't have to update anything and it will constantly update...
The only alternative i can think of is quickly making a VBA script to hardcode the cell values for the dates and change the month value for the middle of the cells every month.
How do I use Find to locate the first occurence of a particular value in a cell, and return the row that the cell is in?
View 14 Replies View RelatedWhere can I obtain some working examples or explanations as to what, where, when, why, and how these Public and Private Sub are correctly implemented? I see these code used extensively but not sure why it's there yet. A macro which uses a Private Sub is in one of my workbooks. Due the "progress" of things from here I now need to move to the next curios level of understanding Macro and VB coding.
View 3 Replies View RelatedI am trying to find a vba code so that I can generate a email from excel that the MOT is due within 28 days. I am new to VBA.
View 3 Replies View RelatedIs there any way I can e-mail an Excel spreadsheet through code?
View 9 Replies View RelatedI have the following code working well. I'd like the pdf to be saved to the users local machine before it emails it. The user must be able to choose the path. How can I do this?
[Code].........
I have the following code that carries out a selection and then brings up in a print preview.
View 13 Replies View RelatedI have a macro that is currently set up to save a draft of my email from Excel. Feedback I've received from my peers is that they would like this macro to Open the drafted email it creates instead of the user having to navigate to the draft folder to open it up.
Is there a part of the code below I can modify so this happens?
//Sub Mail_workbook_Outlook_1()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
[Code]....
VBA COde for adding CC, BCC to email sent from excel. I already have the below code to send email from worksheet, i need to add a copy email.
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
[Code].....
below is a VB code to email separate sheets based on sheet anme and email address on a sheet called " mail".
Code seems to fail at the last line " Next a" any ideas why this is not working
Sub Mail_sheets()
Dim MyArr As Variant
Dim last As Long
Dim shname As Long
Dim a As Integer
Dim Arr() As String
Dim N As Integer
Dim strdate As String
For a = 1 To 253 Step 3
If ThisWorkbook.Sheets("mail").Cells(1, a).Value = "" Then
Exit Sub
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]...
i was able to setup a email code, which will automatically extract the unique row reference data and sends the email. However, i am struggling to add couple of things, i searched most of the web portals .. wasn't lucky.
1. while email drafting i need to use the data from Column B onwards
2. i need to insert the default email signature during email draft ...
I need a code to be applied to a VB button that will email out a selected worksheet within the workbook, lets say i need to email out sheet5. Is it possible when the button is clicked to bring up my email client, (it's not Outlook) with the file already attached so i just need to add the email address/adresses?
View 9 Replies View RelatedHere is my code below for a program that opens a user interface, lists all the names of tabs in the spreadsheet in a list box. By selecting an item (or sheet name) in the list box then clicking "email" a specific area of that selected sheet is sent to an email address located on the sheet.
What I would like to have happen is with the click of a button email each sheet to the specified email address. So if there were 100 sheets rather than clicking on each name then clicking email, have one button to email the each individual sheet to the associated email address. I am guessing something like a "For" loop would be required but am not quite sure how to implement.
Code:
Private Sub CommandButton2_Click()
ActiveWorkbook.Close
End Sub
Private Sub ListBox1_Click()
'this will set the label caption depending on which sheet is selected in the list box
Label1.Caption = Sheets(ListBox1.Value).Range("b2").Value
[Code] ..........
I have a VB code that pulls up my Email client and emails out the workbook as an attachment. I would like to change the code so that it just emails out the worksheet i am currently on and not the whole workbook. Can this be done? I have added the code.
Option Explicit ...
In the Excel file I am trying to create I have a code that is sending an email notification that a file is ready for review. In that notification I want to insert a link to the file the email is referring to. No files are attached to the email.
Anyway, the code I am using is not pasting the link properly. This is what is pasted into the email body:
file://C:Test4DarrenRRR09-0001 DARREN CORP.xls (this link does not work)
The link should be appearing something like:
file://C:Test4DarrenRRR09-0001 DARREN CORP.xls
I can't seem to alter the code to do what I want. When I hover over the filename while stepping through my code everything look correct so I think it must be the line of code below that requires altering....
I have an email vba code set up in my workbook that emails the worksheet in an attachment to someone. However, I keep getting an error code saying permission denied when the code tries to finish. It highlights the "Kill Tempfile" field...which in my mind is saying permission denied because I have the worksheet password protected. I kind of want to keep it that way, so is there a way I can enter a line of code in my current script to unprotect what is being emailed in the beginning of the code so that the tempfile created when it is being emailed can be deleted?
Here is my current
PHP
Private Sub CommandButton1_Click()If Len(Range("H59")) = 0 Or Len(Range("H61")) = 0 Then MsgBox "Please enter customer/employee submitting request and click SUBMIT again." Exit SubElse' Enter the rest of your code hereActiveSheet.PageSetup.BlackAndWhite = TrueApplication.Dialogs(xlDialogPrint).ShowSet appWrd = CreateObject("Word.Application")Set docOpen = appWrd.Documents.Open("F:groupsdeptservCDTISA.doc")docOpen.PrintOutdocOpen.CloseappWrd.QuitDim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String