VBA - Create Outlook Message With From-field
I have two question for Excel in combination with microsoft outlook:
1. I was wondering if it is possible to create an email from Excel which automatically adds the From-field with a pre-defined emailadres. I am using CreateObject("Outlook.Application"), but I can not add the From-field.
2. I also would like to know if it is possible to do automatically fill the To-field with the emailadress from the user who send me the original file. Maybe this needs some more explanation (sorry my english isnt too good):
* A user can download an excel-form from the internet
* The form is sent to my emailadress
* I give a number to the form
* The user will get a message that his question is attend to with the number of the question
So I use a macro-button to reply when I have filled in the question-number.
View Complete Thread with Replies
Sponsored Links:
Related Forum Messages:
Outlook Confirmation Message While Esnding Email Via VBA
I have a macro that sends a worksheet via email [Outlook] to a list of recipients. Everytime an email is created, outlook pops up a confirmation window and waits for user input "yes". Can I set up vba or outlook to skip that step? I really want to create a macro with a loop to go through a list of files, execute a macro in each one, save the files and send emails to various people. This process will create about 40 emails and I don'd want the admin person to have to sit there and confirm each message going out.
View Replies!
View Related
Create Outlook Appointment From VBA
I am probably overengineering my macro, but I would like to setup an outlook appointment in two peoples calendars from my userform. The macro has access to the email addresses of the selected persons, I just want to send date/time and subject.
View Replies!
View Related
Vba Error Run-time 429 Activex Component Can't Create Object - Excel & Outlook 2007
I have some VBA code that in one portion of it an Outlook e-mail is created and the active workbook is attached and sent. This code used to work on Excel & Outlook 2003, but now in Excel & Outlook 2007 I'm getting the error: Run-time error '429': ActiveX component can't create object and is stopping on the line Set OutApp = GetObject(, "Outlook.Application") FY If I comment out the Set OutApp... and If OutApp.... lines and uncomment the Set OutApp create object line, I still get the same error. Dim OutApp As Object Dim OutMail As Object Dim SigString As String Dim Signature As String 'Set OutApp = CreateObject("Outlook.Application") Set OutApp = GetObject(, "Outlook.Application") If OutApp Is Nothing Then Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0)
View Replies!
View Related
Create A Distribution List For Outlook
I want to email with excel, and I know how to do it if I have a distribution list already set up in outlook. I want to avoid having this DL in outlook though, and instead keep a list in the actual excel workbook. I tried having the list and then combining all the cells with a semicolon inbetween the addresses into one single cell, then assigning that cell to a variable and inserting it in the cose in place of the DL name, but it doesn't work. Apparently you can't mail to mutliple address thru the VB code, either a single address or a DL. Am I incorrect in this? So I thought maybe I could somehow create the DL first using the names in the list thru code, and then using that DL name to send the workbook.
View Replies!
View Related
Create Outlook Appointment From Excel
I've used some code from another thread on the forum to create an Outlook Appointment and email this as an attached .ics file from an Excel spreadsheet. Everything seems to work fine. The email is sent and the attachment when double clicked opens in Outlook with all the correct information, but when the recipient clicks 'Save and Close' it doesn't save in their calaendar....
View Replies!
View Related
Create/assign Outlook Tasks From A Range Of Cells
I have had some help with this (thanks!) but am stuck. Can someone add to the code below and make it so that multiple tasks, with multiple assignees, can be created from a range of cells, such as: Column A Column B Row 1Task SubjectAssign to Row 2GV LP for AZJohn Brown Row 3GV LP for COJohn Brown Row 4GV LP for ILSuzy Smith Row 5GV LP for INSuzy Smith Row 6GV LP for KYSuzy Smith Row 7GV LP for MNSuzy Smith Row 8GV LP for MSBob Barker Row 9GV LP for NCBob Barker Row 10GV LP for NJBob Barker Row 11GV LP for NMBob Barker Row 12GV LP for NVBob Barker Row 13GV LP for NYBob Barker Row 14GV LP for OHBob Barker Row 15GV LP for SCBob Barker Row 16GV LP for WVBob Barker (Sorry, it didn't translate well. The "GV LP for AZ" is cell A2, "John Brown" is cell B2.) Here is the code I have so far:
View Replies!
View Related
VBA To Refer To Outlook
In Excel, I want VBA to refer to the SENT ITEMS folder in Outlook. I want to loop over all sent items, and if the email address satisfies a condition, then record that fact in Excel. I am good at VBA in Excel, and I have a passing knowledge of VBA in Outlook, but I don't know how to refer to Outlook within my Excel VBA.
View Replies!
View Related
Check If Outlook Running In VBA
I am trying to establish if Outlook 2000 is currently running in VBA , I have tried the following code but this only works when the user is actually positioned in "Inbox - Microsoft Outlook" etc. At this point I don't really care where/what the user has open in Outlook but merely to check if outlook is running. I have tried below but does not work robustly enough. I have also tried AppActivate("Microsoft Outlook") I have also tried IsRunning("Outlook.Application") which does not even compile. Dim OutlookErr, OutlookBox On Error GoTo OutlookIsNotRunning AppActivate ("outlook") GoTo now_send_email OutlookIsNotRunning: OutlookErr = "Outlook is either not open or busy with another task." & vbCrLf & vbCrLf OutlookErr = OutlookErr & "Please Open Outlook, Close any draft emails," & vbCrLf & vbCrLf OutlookErr = OutlookErr & "the Global Address List or other activities and try again." OutlookBox = MsgBox(OutlookErr, vbCritical, "Unable to access Outlook to send email") Exit Sub
View Replies!
View Related
Import Outlook Calender Automatically Using VBA
I am trying to import outlook calender automaticly using vb. I have found this site http://www.kittytours.org/calendarproject/trouble.html that has the macro ImportCalendarData. I try to run it but I get syntax error at the row With ActiveSheet.QueryTables.Add(Connection:= Array( _ "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password=" """;User ID=Admin;Data and a yellow arrow is pointing at the top line(sub impo...)
View Replies!
View Related
Calculating Field On A VBA From
I have run into a problem I have not found a solution for surprisingly. I need to calculate several fields on the form prior to saving it and thus exporting the data to the worksheet. All I can find is how to calculate the field in a worksheet and then reference it with VB code on the form. Is what I want to do possible? If I run into many more problems I may want to shop this project out as my schedule barely allows for the work I have let alone attempting to learn VBA on the fly. If anyone is interested I can post the project so far along with the detail of what I want it do in the end.
View Replies!
View Related
Sort Page Field With VBA
I have several pivot table templates built, and had to add in additional items to the page field. They are now out of order (they need to be alphabetical). If I was starting from scratch, I would just pull the pagefield down, sort it, and add it back to the top. However, since the entire page is built with formulas and formatting and such, I need to use code. SO! Here's what I have so far:
View Replies!
View Related
Use VBA To Change Pivot Table Data Field
Right, I have tried everything I can do (which is not so much) to achieve the following. Can someone please help? I have a worksheet with about 300 rows of data. The columns are headed Name | Division | Department and then 8 different scores and a total score). I have created 7 different worksheets with pivot tables on them to display each division. Now, here is what I would like to do. Each Pivot table should show the Name and 1! of the scores next to it. That is simple enough and works. But how do I create a macro that allows me to change which score to display based on the content of cell A1. I.e. If I write Effort in A1 I want the pivot table to show Name | Effort score. If I write Complexity I want the pivot table to change to Name | Complexity score.
View Replies!
View Related
Change/Move Pivot Table Row Field To Column Field
In building my pivot table my data that I want to show in the column area is showing up as rows stacked on top of each other. In the column section I'm trying to show Total Budgeted Amount next to Total Actual Amount but on the layout it's showing the two stacked on top of each other is there some kind of hidden key that I'm missing?
View Replies!
View Related
Message Box For VBA
I need a VBA script that will allow an input either Text or Numerical and then search an entire workbook (5 sheets) and find it. It would be nice if it posted the information on the 1st sheet from where the macro will be run, Then I could use VLOOKUP and retrive the rest of the information. I have a workbook with a ton of Purchase order Numbers, Vendors Name, Work Orders etc... and I have to search through them regulary. I have used the FIND button and it works, but when I try to record a macro with it I get stumped. Im Sure this is easy for you GURU's that program for a living, but for me, well.....Lets just say I am at a loss. I have tried this: Sub FindPON() Dim MyPON As Variant MyPON = InputBox("Please enter your search criteria") On Error Resume Next Range("frmParts").Find(What:=MyPON, Lookat:=xlWhole).Activate End Sub
View Replies!
View Related
Vba And Message Box
I have the following spreadsheet Column A-------------Column B------------Column C Invoice No.-----------Part Number---------Classification 8200001733----------LX+150SV-----------9010.90.9000 ---------------------SE+68763001--------8501.31.4000 ---------------------GJ+1000-------------8528.30.8040 ---------------------LX+150SV-----------9010.90.9000 ---------------------GJ+1055-------------9013.30.2020 ---------------------SE+2222-------------" " ---------------------GJ+67210------------8419.39.3311 ---------------------GJ+100217-----------" " What I need is two sets of VBA Code and 2 message boxes for the above scenario: If Range C3:Last row contains a blank cell then Message Box ("WARNING: All items are not classified" refer too C6 and C8) If Range C3:Last row contains "8528" or "9013" then Message Box ("WARNING: There is an FDA/FCC requirements for this file refer to C4 and C5 - create an Attachment from the scan folder and save as Attachment3-FDAFCC documents).
View Replies!
View Related
Message Pop Up Using VBA
I ve a formula in cell A2 of Sheet1. Say now formula value is 10,000,002 (this will change based on other calculation). What I need is, whenever cell A2's formula value will become greater than 10 M, following pop up message will be shown: ....
View Replies!
View Related
VBA - Message Box To Ask Yes/No
I've got a Macro that, when activated, allows the user to cancel a demand and highlight that row red when completed, here's the Sub Cancel_DMD() Dim datatoFind, sRemark As Variant Dim sheetCount As Integer Dim counter As Integer Dim currentSheet As Integer Dim searchRange As Variant currentSheet = ActiveSheet.Index datatoFind = InputBox("Demand Number To Cancel {(}Ensure correct Demand No. entered{)}:") If datatoFind = "" Then Exit Sub sheetCount = ActiveWorkbook.Sheets.Count I also need to insert a MsgBox that pops up before exiting. The MsgBox needs to be in two stages, the first will ask "Have you contacted the Demands Clerk to cancel?" with "Yes" or "No" buttons. If "Yes" is clicked, then the macro completes and exits, if "No" is clicked, then the sencond stage will appear.
View Replies!
View Related
VBA Message When Activating Addin
I have an addin "My Menu" that runs several routines. These routine require the sheet to be converted to text "Sub text ()" no problem so far. But I want to warn the user that the sheet is about to be converted to text. Is there a VBA way of displaying a message box when "My Menu" is clicked on that says "Sheet will be converted to Text OK ?"
View Replies!
View Related
VBA Code- Message Will Appear Not Entitled
I have a worksheet like the following: A B C D 1 DATE EMP NAME EMP CODE SHOE 2 01/01/09 20029 1 3 01/01/09 30463 1 4 04/01/09 10103 5 12/01/09 10036 1 6 12/01/09 10166 1 7 12/01/09 30465 1 Now what I want is that an employee shall not be entitled to take more than one shoe in next one year from the date of last issue. In that case if again the person claims, a message will appear " Not Entitled." My date format is dd-mm-yy.
View Replies!
View Related
On Error - Vba Code As A Message
I would like to get some information when a vba code is in error. Can we create a sub that we can refer to when a vba code is in error. Something as: On Error goto "name of the sub" In that sub, I would like to write in sheet1 , cell a1 the name of the sub in which the code is in error. In cell a2, i would like to write the line in error in the VBA code. finaly i would like to show a msgbox ("Contact your admin") and then close the file
View Replies!
View Related
Using VBA To Create VBA Code On The Fly
I have a vba module that reads a value from a txt file and saves that value in a variable called "iniInfo". I want to permanently assign that value programatically by using VBA code to create a Public variable e.g. "PUBLIC CONST conFIg = iniInfo" in my modGlobalVar Module. (Of course, this would only create the code if the "conFig" variable doesn't already exist.)
View Replies!
View Related
VBA For Error Message If Value Is Referenced In Sheet
I have a worksheet called "PurchaseOrders" and a worksheet called "Orders." In the "Orders" Worksheet I have a command button. When this button is clicked it writes to cells in the "PurchaseOrders" Worksheet. The cell range it writes to is N21:N1000. It basically writes an invoice number which exists in cell B6 of the "Orders" Worksheet with each number listed in order. After it has written, when I return to the "Orders" Worksheet, if the button is clicked again but the PurchaseOrders" Worksheet N21:1000 contains an invoice, the same as "Orders" Worksheet B6 (a duplicate), I would like an error message to be returned stating "Please Create a new invoice." I already have a sub where error messages are recorded for void fields and unregistered customers. How would I write an if statement in this sub to say: IF Cell range in "PurchaseOrders" Worksheet (N21:N1000) does not equal the code in "Orders Worksheet (B6) please process code as normal. Else if it does please display an error message and do not proceed with processing any code? For some reason I'm having trouble naming the cell range.
View Replies!
View Related
Restarting VBA Code After Message Box
I have a piece of code which under specific condition will output an error message box. The code is as follows: If BuyQuote > 100 Or BuyQuote < 0 Then MsgBox ("Incorrect Buy Quote Value - Must Be < 100 and > 0") End If How can I make it so that if this message box appears, the VBA programming will start from the beginning of the code again instead of continuing??
View Replies!
View Related
How To Add A Data Validation Input Message In VBA
Cells A1 to A10 contain names of different cars, what i would like to do in VBA is when i select any individual cell to the right of these the name of the car appears as a message (as if i had gone DATA -> VALIDATION -> INPUT MESSAGE -> CARS NAME). Tried positioning a Userform next to the active cell but when i scroll down the page and select a cell the userform is to far down the screen to be seen.
View Replies!
View Related
Include Image In VBA Message Box (MsgBox)
Is it possible to concatenate an icon as part of a MsgBox's prompt string? An example of an icon might be from the imageMso library, imageMso="PropertyInsert". I want to include an icon in code like this: MsgBox("In the next window, Press the Print icon " _ & <icon> & "to print this report " & _ "or press Close Print Preview " & <icon> _ & "to cancel printing."))
View Replies!
View Related
Create Graph Using VBA
I want to create excel graph using VBA and found difficulties on chart name set to default. the script is like this : ActiveSheet.ChartObjects("Chart 31").Activate Can I set my own name of the chart instead of "Chart 31" (excel default) ?
View Replies!
View Related
VBA To Create New Sheet ...
I would like to be able to have a macro, linked to a button, so that when you press that button it creates a new named sheet based on data in a particular cell. I.e. There is a table with the following data: Apples (A1) Oranges (A2) Pears (A3) There are also the sheets Apples, Oranges & Pears. You enter 'Grape' in cell A4, then when you press the button it creates a new sheet named Grape. Also when a new sheet is created, the 'input cell', in this case A4, is moved down one so that when the next sheet is needed to be added, it doesn't just add the same sheet (i.e. in the example above, we don't end up with a new sheet named 'Grape' each time we click the button).
View Replies!
View Related
Create Tag In VBA?
I found this really cool code that creates a tag cloud in Excel using VBA. It's far too complex for my understanding but I was hoping I could get some of the experts opinions on here about modification possibilities. I have attached the macro-enabled 2007 workbook. What I am trying to do is search through a list of keywords and determine each keyword's density within a list. The list for example could look like this: slow windows xp windows xp running slow windows xp computer [slow windows xp] [windows xp running slow] [windows xp computer] [computer running slow windows xp] "computer running slow windows xp" "slow windows xp" "windows xp running slow" "windows xp computer" You'll notice the characters " [ ] of which I would like to ignore when the cloud builds. The cloud would list the most dense keywords first, and gradually decrease to the least dense keywords. The macro code is inside the workbook but I'll list it here to:
View Replies!
View Related
Create VBA InputBox
I am trying to create an inputbox using code from this site: Sub NumericDataType() Dim lNum As Long On Error Resume Next Application.DisplayAlerts = False lNum = Application.InputBox _ (Prompt:="Please enter you age.", _ Title:="HOW OLD ARE YOU", Type:=1) On Error Goto 0 Application.DisplayAlerts = True If lNum = 0 Then Exit Sub Else MsgBox "You are " & lNum & " years old." End If End Sub I get an error on the first line that says, "Compile error: argument not optional".
View Replies!
View Related
Create Comparison Code In VBA
I have to do monthly comparisons of two excel worksheets, one being a vessel timesheet and the other being an excel download from manpower software that we use. The comparison that is being made are days of the month, whilst the unique identifier between the two sheets (To make it easier to understand I will call them sheet1 and sheet2) is an employee ID. Both sheets, alongside the name and employee ID, list all the days of the month that employees have worked. If they have worked, there is a "1" under that day, if they have not the cell is blank. What I currently do manually is: 1: Search for the employee ID (and/or name) in sheet1 and compare the days with the employee ID in sheet2. 2: Highlight the differences 3: Move onto the next employee ID All differences are highlighted in sheet2. Differences highlighted are in the days only, where if any days are missing/extra in either sheet, then the particular cell(s) are highlighted in yellow. If an employee is missing from sheet1 but is in sheet2, then all the days are highlighted (in sheet2). If an employee is missing from sheet2 but is in sheet1, then that particular employee is copied to the bottom of sheet2 (after last row). As this is horribly complicated to explain, I can attach an example if this is sounding rather inexplicable? Is it possible to attach a xls to a thread?
View Replies!
View Related
Create A New Workbook By Vba Of Excel
I want to the following steps to be done by vba of excel. 1. copy ranges of cells in the active worksheet (sheet3) 2. add a new workbook and paste the copied ranges to sheet1 3. save the new workbook with the new file name (e.g. date) 4. close the new workbook and clear the contents the copied ranges of cells in old workbook. following code and make it more simpler? Worksheets("Sheet3").Activate If Range("l1").Value <> "" Then Range("l1").Value = CDate(Date) End If asdate = Range("l1").Value 'date entered by user resp4 = MsgBox(" Case particulars of " & asdate & " will be backed up and deleted from this sheet! Proceed? (Y/N)", vbYesNo, "Deletion of Data") If resp4 = 7 Then Exit Sub
View Replies!
View Related
Vba To Create A New File From Spreadsheet
I have the following spreadsheet: A-------------B File No.-----PRODUCT TYPE 123456-----NDT 123456-----NDT 123456-----NDT 123456--------- 123456--------- 789110--------- 789110--------- 789110--------- What I need is if there is an NDT in Column B and 123456 in Column A then I need to eliminate all rows which contain 123456. End result A 789110 789110 789110
View Replies!
View Related
|
TRACKER
