Email From File

Oct 30, 2008

Looking for help with sending emails from Excel file using Outlook, at x-date....

View 14 Replies


ADVERTISEMENT

VBA Code To Require Fields - Temporarily Save File Email It Then Delete Temp File

Apr 9, 2014

I have a spreadsheet where I want to require certain fields to be completed then I want to have that file auto emailed. I have learned that I do need to have the file saved before sending otherwise the data will not appear in the email, so with this I want to have the file temporarily saved emailed then the temp file deleted.

Here is the code I have so far but it errors on the blue text, I did change the TempFileName from = "Copy of " & wb1.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") to = [C16] & "_" & [B6] & "_" & [D6]

Private Sub CommandButton1_Click()
If Range("B6").Value = "" Or _
Range("d6").Value = "" Or _
Range("f6").Value = "" Or _
Range("E9").Value = "" Or _

[Code] ......

View 1 Replies View Related

VBA Email File Upload

Jan 15, 2014

I'm uploading a .msg file but i can't seem to go through with the DisplayAsIcon option and i also want to put the Date at the end of the file's name,to somehow track the uploaded files and maybe sort them by date. At the time of the upload moment i see the filesname with the date at the end of the name but after i save the file it overwrites the objects icon the i end up with an envelop icon and the uploaded files name. Here's my code:

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case ActiveCell.Address
Case "$I$29": Run "Email"

[Code] ........

View 3 Replies View Related

Attached Additional Pdf File To Email?

Aug 18, 2014

I have an existing macro that convert active sheet to pdf then email it as an attachment thru outlook.

now, what i need is to attach another pdf file in it, so it will now be 2 attachment. here is my codes:

var all_spans = document.getElementsByTagName( 'SPAN' );
for( var i =0,skip =0 ; i [code]......

View 6 Replies View Related

Remove Macros To Email File

Jun 17, 2009

I would like to email an Excel file without the macros so the end recipients will only see the data and not be confused or excited about the prompt to enable/disable macros.

View 2 Replies View Related

Can Customized Ribbon Be Attached To A File So Email It To Another?

Apr 25, 2013

I have created a spreadsheet that requires the buttons on a customised tab/ribbon in order to use it.

If this is on my machine where I have customised the ribbon it works fine. However I need to email this spreadsheet to another person - but wanted them also to have my customised ribbon. Is there anyway to do this - or would I have to go and customise their ribbon on their machine?

View 1 Replies View Related

VBA To Send Email Switches File Status

Feb 4, 2014

Below is a VBA that sends an email with a range from Excel in the body of the email, and the entire book as an attachment from a temporary file. It works great, except that I need the entire file to close, and it will not because a message pops up that says "Do you want to save file before switching file status". This will not let Excel close. I need to bypass that pop up message. Display Alerts = False did not work. In the bottom of the code below, there is a spot that tries to kill the temporary file, but it does not work until "No" in the pop up message is pressed. Again, I need to bypass that pop up message.

View 2 Replies View Related

Receive Email Automatically When File Is Updated

Aug 22, 2008

way to generate automated email whenever excel file is updated by any one.

View 14 Replies View Related

Attaching File To Lotus Notes Email

May 12, 2006

I managed to create the attached macro with help from stuff I've found in the internet. With this code, I am able to save the file and then send an email cia Lotus Notes. I need two things:

(1) The code to attach the file saved into the email that it sends

(2) The code so that the file is protected so that changes are not made by the recipient.

HERE IS THE
ActiveSheet.Copy
ActiveWorkbook.SaveAs filename:="V:TFMCO8 ReportingHistory" & [c22].Value & " " & Format$([c20], "- (YYYY-MM-DD)") & ".xls"
ActiveWorkbook.Close False

Dim Maildb As Object, UserName As String, MailDbName As String
Dim MailDoc As Object, Session As Object

Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, _
(Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GetDatabase("", MailDbName)
If Maildb.IsOpen Then
Else: Maildb.OpenMail...........

View 9 Replies View Related

Excel Macro For Lotus Email With Attached File?

Aug 6, 2014

I'm trying to create an excel macro that can send emails with an attached file per row of my entry in excel I imagine it would be like the screenshot below. I've tried the code in the link below from a macro tutorial website but wasn't able to make it work due to error DataObject is unkown I'm using excel 2013 and lotus notes 8.5 as my email.

View 9 Replies View Related

App To Open User's Email Client, Attach File

Apr 8, 2008

I have developed a product that's a bunch of Excel spreadsheets strung together. Real estate and mortgage professionals use the tools to counsel home buyers. We include a pdf converter in case recipients of emailed file attachments don't have Excel.

We provide an 'Export' procedure that calls a custom dll that uses the outgoing mail server that the user [must] setup or our web's mail server as a default. The action attaches the Excel or the PDF file and sends in the background. We use an Excel form for user to write the message and the process saves a copy of the message sent and the file send in an Archives folder.

This procedure is not very user friendly, as it does not offer the user's address book to select a recipient, does not put the message in the user's email client Sent folder...Plus the Archives folder could become quite large...plus it involves a user setup that creates alot of support calls.

But actually the most critical shortcoming has become that ISPs (Comcast and ATT so far) are blocking the use of custom email clients!

Recently my son showed me in QuickBooks their attach file-to-email process. It simply opens the user's default email client with the file attached. I need an app that does that! And it needs to be distributable.

View 9 Replies View Related

Excel 2010 :: VBA Error When File Opened From Email?

Aug 30, 2012

I've got a file that works fine on my computer. When I email it to anyone with 2010 and they open it from their email account (Outlook 2010), the file automatically opens up in 'Protected Mode'. If the user selects "Enable Editing" the user receives 'Run Time error 91: Object variable or with block variable not set'.

If the user closes out the vba error and saves the file to their computer and reopens the file, it works fine.

BTW, it is not a complex macro, it is error out at

ActiveWorkbook.Sheets("Worksheet").Select

View 1 Replies View Related

Mail Macro - Attach Saved PDF File To Email

Nov 21, 2013

I have written a macro but unable to make it work. The macro works but not the way I would like it to.

The macro has to save an excel sheet to a separate folder as a pdf format, a message box should pop up confirming the pdf file and then attach the same saved pdf file to an email.

Now the macro saves the pdf file where I need it to be saved, the msg box pop up and then the pdf file opens up on top of the msg box. If I close the pdf file the msg box which was hidden under the file is now shown. When I click "OK" it goes straight to outlook with the email addresses attached but the saved pdf file is not attached.

I've attached the script.

Sub Macro1()
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:UserReportsPDF Reports" & Range("Q3").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

[Code] ........

View 8 Replies View Related

Send A File By Email Versus To A Local Desktop

Jul 13, 2007


Case "TD"
strfilename = "\TomsblackibmTomsProposals" & strfilename

I would like to send this file by email if possible instead of to his computer. The user recently went from a desktop "in the office" to a laptop "all over the place".

Sub Save_and_SaveSalesman()


Dim strPath As String, strPath2 As String, CurrPath As String

Dim WB1 As Workbook
Dim WB2 As Workbook

Set WB1 = ActiveWorkbook

'First thing, save my work
WB1.Save

CurrPath = WB1.Path

'ASSUMING THAT C6 and O3 are BOTH in WB1
'move this line HERE: only do this once, and concatenate in the Select..Case later
'doing thsi inside the Select..Case pulls values from WB2, which might cause errors.............................

View 9 Replies View Related

Email File. Recipient Number Based On Cell Value

Jun 26, 2007

it is possible to set up a macro that can route a file to specific people based on conditions in the file? what i am trying to do is route via email a excell file on dollar amount. So if file is for $10,000 ; send it to 2 specific people. If its for $90,000 send to specific 4 people.

View 4 Replies View Related

How To Email PowerPoint Attachment With List Of Emails In Excel File

Jan 24, 2014

I have got a list of email with identification number + email address. The PowerPoint are named by the identification number.

Can I send out the PowerPoint to the corresponding email address using VBA automatically? Or is there any other way to do it?

View 4 Replies View Related

Receive An Email Automatically When An Excel File Is Updated And Saved

Aug 26, 2008

I want to create a communication excel sheet. I want it in such a way that if any one of the team member make update and save the file, then the whole team should receive an email that the file has been updated.

View 9 Replies View Related

Macro To Split Excel File Into Separate Workbooks And Automatically Email It

Jan 10, 2014

I need to write a macro to split an excel file into separate workbooks and automatically email our project managers.

View 1 Replies View Related

Email A File To Install A Macro, Toolbar & Button To A User. Re-explained In Post 19

Feb 17, 2009

I have finally come up with a macro and would like to install it to around 10 people's "Personal Workbook" in my department. Let me explain a bit further...

We use web-based software which has an "Export to Excel" option which we all use. The resulting data populates into a spreadsheet automatically.

I would like the user to be able to click on Tools/Macro/Run Macro and then run that particular macro. I assume that this macro should be in the "Personal Workbook" so that the macro will be visible no matter what worksheet they may have open?

Can this be done automatically/with a macro or must this be manually done?

I"m using Excel 2003.

View 14 Replies View Related

Place Excel File Path As Link In Lotus Notes Email Body

Oct 29, 2013

I have an Excel sheet that I use as a mailing automatism for reports. As it currently is it attaches an actual copy of the excel workbook to the email and send them out. The mailer contains several different people, and they get different report each day. Due to the size of some of the files, I am starting to run into an issue where I cannot sent the emails anymore because they are too big, so I am wanting to switch to sending links to the files instead, and I have hit a wall.

I use Lotus Notes 8.5. The VBA will cycle through a range, and each cell has a list of report delimited by a ",". It takes the list and passes it to the mailer as a string. The mailer takes the string, turns it into an array and splits it out, and then checks to make sure the reports are current. One email could have up to 10 different reports in it. I have tried creating an HTML MIME email to include the links.

Here is the code I currently have:

Code:
Sub Send_HTML_Email(ByRef Name As String, ByRef Address As String, ByRef Reports As String)
Const ENC_IDENTITY_8BIT = 1729
'Send Lotus Notes email containing links to files on local computer
Dim NSession As Object 'NotesSession
Dim NDatabase As Object 'NotesDatabase
Dim NStream As Object 'NotesStream
Dim NDoc As Object 'NotesDocument

[code]...

View 1 Replies View Related

Search Outlook Email Folder For Particular Subject Then Return Date Email Received

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

VBA Code To Send Email To People Whose Email Address Is In Access Table

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

VBA Outlook Email Auto-send Routine - Check If There Any Attachments In Email To Be Sent

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

Excel 2010 :: VBA Loop Code To Automatically Email Range Of Cells And Email Addresses

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

Email Multiple Worksheets To Multiple Recipients In One File Per Recipient?

Mar 27, 2014

I'm trying to email multiple worksheets from a list to multiple recipients in a list, but in one file per person. In a sheet called "Email list", for example, I have a list of 50 worksheet names (e.g. one for each cost centre) in column A (with a heading in cell A1, if that's OK, so the list starts in A2) and in columns B-F up to 5 recipients for each worksheet (e.g. 3 recipients might be 2 supervisors and their manager).

Also, each manager and supervisor might also receive several sheets.

Although columns B-F are presently free-format (they can be anyone's email address, regardless of whether they're a supervisor or manager), it might be easier to split these columns so B,C,D are supervisors emails and E,F are managers, if that makes it any easier creating the collated file of worksheets..?

Unfortunately the recipients might change occasionally so they can not be hard keyed into the macro itself (which would be much easier), but need to be in a table so it's easier for the user to update and maintain - in the past, I've managed to hard key the requirement into a macro which I've maintained (by recording and editing the macro), but I don't know the VB to figure this new request.

Ideally, I am trying to create a macro that can collate the various worksheets each person will receive and send the selected sheets in one file to that recipient, rather than multiple files within one email and/or multiple emails.

View 8 Replies View Related

Automatically Unprotect Worksheet Before Email Macro Then Protect After Email Is Sent

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

Unable To Email Specific Sheet To Email Address?

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

Sending Email Using Users Preferred Email Client

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

If Duplicate Email Exists Delete Next Row And All Rows Containing That Email?

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

Send An Automated Email To Typed In Email Address

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







Copyrights 2005-15 www.BigResource.com, All rights reserved