I use the following code to read information from the Global Address Book in Outlook, and it works. Do any of you know how I can read the Email-address and alias-Name as well? By other word more information from each record. The code below will give me the name only.
View 4 RepliesOn a worksheet called "Contact Info" column A starting in row 2 I have a list of names (variable length). In Columns B2-D I need the email address, work phone number, and cell phone number.
View 5 Replies View RelatedI am struggling to find a macro which can look at a name in column 'BT' and search it in the address book of Outlook to then place the email address of that person in column 'ED'
There are 35,000+ people in the address book and there may be over 5 email addresses for one name, so is there any way a message can appear for the user to select which email address is correct if there is more than 1 contact for that name?
I have an Excel form that requires the user to enter the name of their manager. Rather than entering the names manually I would like to use the Outlook address book but I've run into a dead end due to my limited knowledge.
Sub GetOutlookAddressBook()
Set appOutlook = CreateObject("Outlook.Application")
Set CDOSession = appOutlook.CreateObject("MAPI.Session")
CDOSession.logon "", "", False, False, 0
Set Recipients = CDOSession.addressbook(Nothing, "Select Distribution List Members", False, True, 1, "To:", "", "", 0)
I've had a scan through the archives trying to find a post or item on importing Outlook data to Excel, and have so far only found articles on importing data from users' 'Contacts' lists. I need functionality so that when the user selects an office (e.g. 'London') from a list, further details for those offices - which are stored as individual members of the global Outlook addressbook - for example postcode, can be operated upon.
Because this data is relatively dynamic (e.g. potential for relocation of office premises), I need any procedures to refer to a single unified data source, therefore I'd like any VBA procedures to use data directly from the outlook address book, instead of importing a static copy of the data and then performing operations on this.
Problem-1) i want to round off the digit in the same cell i,e. Formula in F12 should be included in D12.
Problem-2) i have entered a sample account.in this i want to post the data entered in day book into their respective sheets of jaya and supervision automatically.
Is there any way to export the attachment details from MS-Outlook to Excel.
I have attachment file i need to export that to into excel.
i was just wondering if anybody know of any good resourses for excel to outlook macros, specifically for copying contact and appointment details from excel to outlook. I've had a good search on the net, but it just yields lots of code, im looking more for learing resources etc.
View 3 Replies View RelatedI'm in need to split 1 column (address details) into several columns (for ex. address, city, postcode, country) I can't use the "Text to Column" function as some address will split into 5 part, some split into 6/7/8. Is there any way I could do this automatically as there're a lot of entries in my spreadsheet. Example of the data need to be split attached.
View 5 Replies View RelatedI have data like this:
Sammi Alvarez-Vegan
1201 E. Ponce De Leon Blvd.
Coral Gables, FL 33134
Angie Penns
6870 SW 44th Street
Building G28- #110
Miami, FL 33155
Some names and addresses are 3 lines and some are 4 lines. All have a blank line between. There is a double blank between different name blocks.
I tried to Concatenate so all parts would be in B1 cell. =A1&","&A2&","&A3&","&A4&","&A5&","&A6&","&A7
That did what I wanted for B1, and when I copied it down, B2:B8 was part of an address.
It was not until B9 did the actual next name come into play.
I know there must be a better way
I am using WindowsXP and Excel2007
In Sheet 1 I have the Raw Data
with column headings
Name , Address , Station, Work Phone, Home Phone Mobile number
How can I make an address book in Excel
Suppose in the AddressBook Sheet
in A1 if we write the letter A the names starting with A will be displayed in Cell A2 Downwards along with the retreived information abt that recoreds Similarly In G1 if we write B then the recored starting with letter B should be retreived from the sheet 1 containing raw data in cell G2 downwards and this goes on in column M1=C S= D and so on
New to VBA, so here we go. I want to make address book with userform,is it possible with my example?
View 4 Replies View RelatedI am trying to take an address book on the internet and copy/paste it into excel- not hard right? Ok, so that is done. The problem I have is that there are over 2000 addresses- and they all copy straight down into one column. I know how to transpose the information- but come on- there are over 2000. that seems like a LOT of work. So my first question would be is there a way to do this all at once? For each company/name/address/phone I need one row per company.
View 9 Replies View RelatedI have created a simple address book in Excel 2007, but it is not reader-friendly: My header row in Sheet1 consists of cells labeled “Category”, “Company Name”, “Street Address”, “City, State, Zip”, “Contact Person”, “Office Number”, “Cell Number” so the data for each company is listed in a single row. I would like to see if there’s a way that I can setup the workbook such that the data from Sheet1 automatically reformats into a directory-like format in Sheet2. Ie:
Company Name1 Contact Person1
Street Address1 Office Number1
City, State, Zip1 Cell Number1
Company Name2 Contact Person2
Street Address2 Office Number2
City, State, Zip2 Cell Number2
etc
Also, I would like to figure out a way to filter by the Category column, so that Sheet2 contains all items on Sheet 1 that are labeled Category A, Sheet3 contains all items on Sheet 1 that are labeled Category B, etc.
I'm trying to modify.
The code is this:
Dim finder As Object
Private Sub ComboBox1_Change()
Set finder = Sheets("Sheet1").Columns("A:A").Find(what:=ComboBox1.Text, lookat:=xlWhole)
Main_recipients.Value = finder.Offset(0, 1)
End Sub
Private Sub Send_email_Click()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Now, everything works fine until it gets to this line:-
MailDoc.SEND 0, Recipients
when I get an error message that states "Unable to send mail, no match found in Name & Address Book(s)"
In Lotus, I created a list of recipients (including any additions after the name) and copied that into the cell that feeds the text-box "Main_recipients".
The odd thing is, if I just email myself without any additions after my name it's fine. It's when I try to e-mail multiple people (with and without additions) that it falls over.
At job, Mac OSX and Address Book 4.0.6 with contact info including in many cases emails. I'd like to get it of there, into Excel to manipulate, and ultimately into a FileWrecker Pro database. How to export 1087 entries from Address Book including only selective data fields is the question, and I know that's "slightly" OT, but I do want to import into Excel, so I hope that vindicates me! If not, and you can point me to a good MacForum, I'll settle.
View 9 Replies View RelatedI'm using Excel 2010 and I have a copy of an address in Excel. I'm trying to identify all the people who live by themselves- without partners and spouses.
I have a column array like this:
A B C D E F G H I J K L M N O P Q R S T
PDENOStatusTitleFirst NamesInitialsSurnameSuffixDate of AttainmentFranchise FlagAddress 1Address 2Address 3Address 4Address 5Address 6Address 7Address 8Address 9Postcode
And the relevant columns is usually L. I am trying to figure out the formula that allow me to extract or at least highlight the people who live by themselves- or alternatively the people who live in the same house (which would therefore identify by exclusion the singletons).
I have an Excel 2013 address book that has extra spaces between first names, last names and middle initials all in 1 cell.
Is there an easy way to remove all the spaces between these components?
I am using this peice of code from another post in order to fill a ListBox with Outlook addresses. It works fine, but the the list has thousands upon thousands of names and it takes forever to run. I thought I'd add code to only add specific entries based on what a user inputs to a TextBox, but it doesn't seem to speed-up the process. how I can get to the user-defined data more quickly?
Private Sub CommandButton2_Click()
Dim olApp As Outlook.Application
Dim olNamespace As Outlook.NameSpace
Dim olItem As Outlook.AddressEntry
Dim olAddressList As Outlook.AddressList
Dim olAddressEntry As Outlook.AddressEntry
I have the following task
1. in sheet 1, column A starting A1 I have addresses of web pages. all of them are one and the same except the last digits. Sth like this
www.datapage.com/source1
www.datapage.com/source2
...
...
www.datapage.com/source16
www.datapage.com/source17
etc
2. in sheet 2 I have to import the data from these web sites as it follows
from www.datapage.com/source1 starting from cell A1
from www.datapage.com/source2 starting from cell A101
from www.datapage.com/source3 starting from cell A201
etc.
The question: I am trying to write a Macro that tooks the address from sheet 1 cell A1 and import the data through web query using the address in the cell and import it in sheet 2 starting cell A1. Then loop and took the address from cell A1 in Sheet 1 and put it into sheet 2 cell A101 etc.
I have a form in excel (very simple) that I need to put on the web - People can then fill out certiain bits of the information and the idea is that they then click on the button to email it back to me. Ie complete it there and then and email it straight away so that they don't need to save it etc.
I can't for the life of me work out how to do this! I've managed to get the macro to open an email with the correct details on but not paste in the information so am at a complete loss and appear to be going round in circles!
I was interested in getting Excel to look up details of a person say age and put the details in another table under the correct heading.
E.g. Fred Bloggs age 25
Would look like this
First Name Surname 16-24 25 - 49
Fred Bloggs 0 Tick or something
Display Alert On Closing If Cell Not Filled In
How do I alter this code so that it acts like an INDIRECT function so will pick up a cell reference in another cell?
I can't just use A1 as I want this to change dynamically.
I made the following code to merge 2 workbooks together.
The code is to be executed when the user has Workbook A opened. (All sheets in workbook KPISWD are supposed to be moved after all worksheets in workbook KPICustomers).
I keep getting a debug error on the code that is supposed to do the actual move and loop until it is finished with all of the sheets in Workbook B.
Code:
Dim KPICustomers, KPISWD As String
KPICustomers = ActiveWorkbook.Name
Workbooks.Open Filename:= _
"W:FacturatieKPI per periode SWD.xls"
KPISWD = ActiveWorkbook.Name
[Code] ..........
I have the below code, which now looks to see if a file is open or not, if it is, then copy and past 'Data' and if not open the book and copy 'Data'.
I think the code is sort of right, but im missing something, as i keep getting runtime error when i try and copy. Here is the
Sub PrintSaveKPIUpdate()
Dim sFilName As String
sFilName = "C: estCashSales_KPI.xls"
Set Main = ThisWorkbook
If IsOpen(sFilName) Then
' Book is Open.
Worksheets("Setup Data"). Range("Data").Activate
i have done a search on this topic and found many similar answers to many similar questions. All specify using Application.Run "workbookname.xls!macroname".
In my code, the filename has an assigned value as the master code goes out to many secondary files - the user selects the particular one they want at the start of the macro. The variable assigned is called "UpdateKAMsFile".
how do i get the macro called KAMsRandomColour to run in the workbook designated by UpdateKAMsFile?
so to start off im not able to attach things due to security reasons, what i need is either 1 of 2 macros. if its possible, both are related. one possible is as follows: i need it to go through a certain column (say I for example) and look at the information in it, this information can vary from peoples names along with dates and other stuff, i want it to look through these and if anything has a date today and prior i need the cell to be highlighted. problem is sometimes it might have 2 dates, or no dates. it should have todays date, their name, other information, and future date of something. but not everyone does, this is the macro i dont think that can exists.
2nd macro possibility the other macro uses the first sheet, AFTER been highlighted, normally by hand, and takes it to another workbook and puts in in certain spots. so the first sheet has names of everyone in column K. what i need is it to look at column I and if its highlighted take entire row to other book, and put into sheet under the person name in their tab. the second book has a tab for each person (at this time 18 tabs) which can fluxuate, and each tab is the persons first and last name, without spaces. since when i put sums on main page it didnt want to work with the spaces i had to omit them. again im not sure this is possible.
I'm trying to open a file on a network drive...but I'm getting the following error message when it opens: "This file may be read-only, or you may be trying to access a read-only location. Or the server the document is stored on may not be responding." Now, the file itself has no rights restrictions and is not read only. It doesn't appear to be locked.
Now, there are other Excel files in the same directory which I could open fine; however, the Excel documents having the above problem all have a little black icon "appears to be a padlock" (image attached) at the bottom left hand side of the Excel file icon. I tried the following:
- Renaming
- Converting to a different file format (didn't work, it won't let me)
- Opening in notepad...etc doesn't work.
This file is dated back in 2004...do you think it's corrupt? Is there anything i can do to open or recover this?
I would like to know if there is a way to copy a spreadsheet and paste it into a new tab on another spreadsheet. We currently download 2 lots of spreadsheets from SAP and would like to create another spreadsheet to act as a 'central' preadsheet. What I would like to happen is that the data from the 2 downloaded spreadsheets will be automatically pasted into 2 new tabs on the central spreadsheet, then run some formatting macros (which I can do fine).
View 3 Replies View RelatedAssume the following list of addresses are all in separate cells of a single column (A1-A4). I just need the formula to extract the street addresses, and then a separate formula to extract the zip codes.
5430-44 PASCHALL AVENUE PHILADELPHIA, PA 19143 OPA/BRT#: 884350845
4010 MARPLE STREET PHILADELPHIA, PA 19136 OPA/BRT#: 651087200
2618 SOUTH HOWARD STREET PHILADELPHIA, PA 19148 OPA/BRT#: 391251216
5737 WOODCREST AVENUE PHILADELPHIA, PA 19131 OPA/BRT#: 522155600