Hi all,



I need to import literally 3000 contacts into Outlook. I need to do this for
a survey I am conducting for my academic thesis (so, this is not a business
problem, and I don't have much money to spend :-(. I am going to mail these
companies and am going to send them a questionairre; therefore I need to
have these records in Outlook.



I want to do this via Excel (since importing it directly into Outlook is not
possible due to the list format). Unfortunately, the list (in plain text)
looks like the list on the bottom of my message (small example). (The list
is Excel is in 2 columns, but copy and paste did not work that well in this
message).



So, I now have two problems:

[1] The data does seem to be in standard databaseformat, although the fields
are not next to each other (from left to right) but below and above each
other, as well in two rows.

[2] Not allways are all fields filled: for example, sometimes the email
address is not filled in, or the fax is missing.



Thus, I can not assign headers to

it (in Outlook), and thus I can not map the fields during the import into

Outlook. I know I can use "transpose" in Excel to change rows into columns,

but this still requires a lot of manual work: I have to select each block,

Edit/Copy, Edit/Paste Special/Transpose. With 3000 contacts I'm not happy to

do so, since it may cause the RSI-problems very easily. So, could anybody

recommend a solution to my problem? I would really, really, really (and I
really mean really) appreciate this (!).



Thanks a lot,



Kind regards,



Jos









[Example of the list]



Abilita AG

Althardstrasse 80 Phone: 01/8427400

8105 Regensdorf Email: (E-Mail Removed)

Switzerland URL: http://www.abilita.ch/



(Explanation due to a wrong copy and paste in this message: Column 1 has 4
rows: Abilita AG, Althardstrasse 80, 8105 Regensdorf, Switzerland. Column 2
(to the right of column 1) has 3 fields: Phone, email, URL. In the next
address, below, the same goes, however, here the fax has been filled (as
opposed to the first record (Abilita))







AC-Service (Schweiz) AG

Hardstrasse 73 Phone: 056/437 41 11

5430 Wettingen Fax: 056/426 71 47

Switzerland Email: (E-Mail Removed)

URL: http://www.ac-service.com/



Acag Andres Consulting AG

Blue Max Gewerbezentrum Phone: 01/922 90 90

8708 Männedorf Fax: 01/922 90 99

Switzerland Email: (E-Mail Removed)

URL: http://www.acag.ch/

It is considered rude to post in more than one since most that will help
read all. Why waste time & effort?

--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Jos" <reply in newsgroup please> wrote in message
news:3fb66894$0$58708$(E-Mail Removed)...
> Hi all,
>
>
>
> I need to import literally 3000 contacts into Outlook. I need to do this
for
> a survey I am conducting for my academic thesis (so, this is not a
business
> problem, and I don't have much money to spend :-(. I am going to mail
these
> companies and am going to send them a questionairre; therefore I need to
> have these records in Outlook.
>
>
>
> I want to do this via Excel (since importing it directly into Outlook is
not
> possible due to the list format). Unfortunately, the list (in plain text)
> looks like the list on the bottom of my message (small example). (The list
> is Excel is in 2 columns, but copy and paste did not work that well in
this
> message).
>
>
>
> So, I now have two problems:
>
> [1] The data does seem to be in standard databaseformat, although the
fields
> are not next to each other (from left to right) but below and above each
> other, as well in two rows.
>
> [2] Not allways are all fields filled: for example, sometimes the email
> address is not filled in, or the fax is missing.
>
>
>
> Thus, I can not assign headers to
>
> it (in Outlook), and thus I can not map the fields during the import into
>
> Outlook. I know I can use "transpose" in Excel to change rows into
columns,
>
> but this still requires a lot of manual work: I have to select each block,
>
> Edit/Copy, Edit/Paste Special/Transpose. With 3000 contacts I'm not happy
to
>
> do so, since it may cause the RSI-problems very easily. So, could anybody
>
> recommend a solution to my problem? I would really, really, really (and I
> really mean really) appreciate this (!).
>
>
>
> Thanks a lot,
>
>
>
> Kind regards,
>
>
>
> Jos
>
>
>
>
>
>
>
>
>
> [Example of the list]
>
>
>
> Abilita AG
>
> Althardstrasse 80 Phone: 01/8427400
>
> 8105 Regensdorf Email: (E-Mail Removed)
>
> Switzerland URL: http://www.abilita.ch/
>
>
>
> (Explanation due to a wrong copy and paste in this message: Column 1 has 4
> rows: Abilita AG, Althardstrasse 80, 8105 Regensdorf, Switzerland. Column
2
> (to the right of column 1) has 3 fields: Phone, email, URL. In the next
> address, below, the same goes, however, here the fax has been filled (as
> opposed to the first record (Abilita))
>
>
>
>
>
>
>
> AC-Service (Schweiz) AG
>
> Hardstrasse 73 Phone: 056/437 41 11
>
> 5430 Wettingen Fax: 056/426 71 47
>
> Switzerland Email: (E-Mail Removed)
>
> URL: http://www.ac-service.com/
>
>
>
> Acag Andres Consulting AG
>
> Blue Max Gewerbezentrum Phone: 01/922 90 90
>
> 8708 Männedorf Fax: 01/922 90 99
>
> Switzerland Email: (E-Mail Removed)
>
> URL: http://www.acag.ch/
>
>
>
>

Hi Don,

As far as I know the netiquette does not forbid posting to multiple
newsgroups; posting off topic, or posting to a huge number of groups at the
same time (which reasonably would suggest posting off topic) is considered
impolite, as far as I know. But the main reason why you would want to post
to more than just 1 group is because not all ISP's host all groups (they
make a selection out of the +100.000 usenet groups, as for example my
provider does not host all microsoft.public.* groups).

So, I did not mean to offend anybody, I am not aware of doing so, and I do
not consider to be wasting somebody's time en effort; I merely want to make
sure that those who can not access a particular group, are able to read my
question using another group. Should you require more background information
on usenet-netiquette, consider consulting:
http://www.faqs.org/faqs/usenet/posting-rules/part1/. The relevant excerpt
is below:

[BEGIN]
Usually, it is sufficient to post any article to a single newsgroup; the one
that's most relevant to the subject of your article. If the article
is really relevant to multiple newsgroups, then "cross-post" to the relevant
newsgroups by posting the article only once with all newsgroups
named on the "Newsgroups" header line. For example: Newsgroups:
comp.fish,misc.sheep,talk.ketchup would cause an article to be posted to
comp.fish, misc.sheep, and talk.ketchup simultaneously.

....

By posting a single article to all the newsgroups you wish to reach, the
news software is able to transfer a single copy. Furthermore, users with
"smart" newsreaders will see the article only once. Making separate
postings of your article for each newsgroup you wish to reach tends to
annoy readers rather than emphasize the message content as well as waste
computational resources.
[END]

Regards,

Jos

"Don Guillett" <(E-Mail Removed)> schreef in bericht
news:(E-Mail Removed)...
| It is considered rude to post in more than one since most that will help
| read all. Why waste time & effort?
|
| --
| Don Guillett
| SalesAid Software
| (E-Mail Removed)
| "Jos" <reply in newsgroup please> wrote in message
| news:3fb66894$0$58708$(E-Mail Removed)...
| > Hi all,
| >
| >
| >
| > I need to import literally 3000 contacts into Outlook. I need to do this
| for
| > a survey I am conducting for my academic thesis (so, this is not a
| business
| > problem, and I don't have much money to spend :-(. I am going to mail
| these
| > companies and am going to send them a questionairre; therefore I need to
| > have these records in Outlook.
| >
| >
| >
| > I want to do this via Excel (since importing it directly into Outlook is
| not
| > possible due to the list format). Unfortunately, the list (in plain
text)
| > looks like the list on the bottom of my message (small example). (The
list
| > is Excel is in 2 columns, but copy and paste did not work that well in
| this
| > message).
| >
| >
| >
| > So, I now have two problems:
| >
| > [1] The data does seem to be in standard databaseformat, although the
| fields
| > are not next to each other (from left to right) but below and above each
| > other, as well in two rows.
| >
| > [2] Not allways are all fields filled: for example, sometimes the email
| > address is not filled in, or the fax is missing.
| >
| >
| >
| > Thus, I can not assign headers to
| >
| > it (in Outlook), and thus I can not map the fields during the import
into
| >
| > Outlook. I know I can use "transpose" in Excel to change rows into
| columns,
| >
| > but this still requires a lot of manual work: I have to select each
block,
| >
| > Edit/Copy, Edit/Paste Special/Transpose. With 3000 contacts I'm not
happy
| to
| >
| > do so, since it may cause the RSI-problems very easily. So, could
anybody
| >
| > recommend a solution to my problem? I would really, really, really (and
I
| > really mean really) appreciate this (!).
| >
| >
| >
| > Thanks a lot,
| >
| >
| >
| > Kind regards,
| >
| >
| >
| > Jos
| >
| >
| >
| >
| >
| >
| >
| >
| >
| > [Example of the list]
| >
| >
| >
| > Abilita AG
| >
| > Althardstrasse 80 Phone: 01/8427400
| >
| > 8105 Regensdorf Email: (E-Mail Removed)
| >
| > Switzerland URL: http://www.abilita.ch/
| >
| >
| >
| > (Explanation due to a wrong copy and paste in this message: Column 1 has
4
| > rows: Abilita AG, Althardstrasse 80, 8105 Regensdorf, Switzerland.
Column
| 2
| > (to the right of column 1) has 3 fields: Phone, email, URL. In the next
| > address, below, the same goes, however, here the fax has been filled (as
| > opposed to the first record (Abilita))
| >
| >
| >
| >
| >
| >
| >
| > AC-Service (Schweiz) AG
| >
| > Hardstrasse 73 Phone: 056/437 41 11
| >
| > 5430 Wettingen Fax: 056/426 71 47
| >
| > Switzerland Email: (E-Mail Removed)
| >
| > URL: http://www.ac-service.com/
| >
| >
| >
| > Acag Andres Consulting AG
| >
| > Blue Max Gewerbezentrum Phone: 01/922 90 90
| >
| > 8708 Männedorf Fax: 01/922 90 99
| >
| > Switzerland Email: (E-Mail Removed)
| >
| > URL: http://www.acag.ch/
| >
| >
| >
| >
|
|

Do as you like.

--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Jos" <Reply in newsgroup please> wrote in message
news:3fb78838$0$58714$(E-Mail Removed)...
> Hi Don,
>
> As far as I know the netiquette does not forbid posting to multiple
> newsgroups; posting off topic, or posting to a huge number of groups at
the
> same time (which reasonably would suggest posting off topic) is considered
> impolite, as far as I know. But the main reason why you would want to post
> to more than just 1 group is because not all ISP's host all groups (they
> make a selection out of the +100.000 usenet groups, as for example my
> provider does not host all microsoft.public.* groups).
>
> So, I did not mean to offend anybody, I am not aware of doing so, and I do
> not consider to be wasting somebody's time en effort; I merely want to
make
> sure that those who can not access a particular group, are able to read my
> question using another group. Should you require more background
information
> on usenet-netiquette, consider consulting:
> http://www.faqs.org/faqs/usenet/posting-rules/part1/. The relevant excerpt
> is below:
>
> [BEGIN]
> Usually, it is sufficient to post any article to a single newsgroup; the
one
> that's most relevant to the subject of your article. If the article
> is really relevant to multiple newsgroups, then "cross-post" to the
relevant
> newsgroups by posting the article only once with all newsgroups
> named on the "Newsgroups" header line. For example: Newsgroups:
> comp.fish,misc.sheep,talk.ketchup would cause an article to be posted to
> comp.fish, misc.sheep, and talk.ketchup simultaneously.
>
> ...
>
> By posting a single article to all the newsgroups you wish to reach, the
> news software is able to transfer a single copy. Furthermore, users with
> "smart" newsreaders will see the article only once. Making separate
> postings of your article for each newsgroup you wish to reach tends to
> annoy readers rather than emphasize the message content as well as waste
> computational resources.
> [END]
>
> Regards,
>
> Jos
>
> "Don Guillett" <(E-Mail Removed)> schreef in bericht
> news:(E-Mail Removed)...
> | It is considered rude to post in more than one since most that will help
> | read all. Why waste time & effort?
> |
> | --
> | Don Guillett
> | SalesAid Software
> | (E-Mail Removed)
> | "Jos" <reply in newsgroup please> wrote in message
> | news:3fb66894$0$58708$(E-Mail Removed)...
> | > Hi all,
> | >
> | >
> | >
> | > I need to import literally 3000 contacts into Outlook. I need to do
this
> | for
> | > a survey I am conducting for my academic thesis (so, this is not a
> | business
> | > problem, and I don't have much money to spend :-(. I am going to mail
> | these
> | > companies and am going to send them a questionairre; therefore I need
to
> | > have these records in Outlook.
> | >
> | >
> | >
> | > I want to do this via Excel (since importing it directly into Outlook
is
> | not
> | > possible due to the list format). Unfortunately, the list (in plain
> text)
> | > looks like the list on the bottom of my message (small example). (The
> list
> | > is Excel is in 2 columns, but copy and paste did not work that well in
> | this
> | > message).
> | >
> | >
> | >
> | > So, I now have two problems:
> | >
> | > [1] The data does seem to be in standard databaseformat, although the
> | fields
> | > are not next to each other (from left to right) but below and above
each
> | > other, as well in two rows.
> | >
> | > [2] Not allways are all fields filled: for example, sometimes the
email
> | > address is not filled in, or the fax is missing.
> | >
> | >
> | >
> | > Thus, I can not assign headers to
> | >
> | > it (in Outlook), and thus I can not map the fields during the import
> into
> | >
> | > Outlook. I know I can use "transpose" in Excel to change rows into
> | columns,
> | >
> | > but this still requires a lot of manual work: I have to select each
> block,
> | >
> | > Edit/Copy, Edit/Paste Special/Transpose. With 3000 contacts I'm not
> happy
> | to
> | >
> | > do so, since it may cause the RSI-problems very easily. So, could
> anybody
> | >
> | > recommend a solution to my problem? I would really, really, really
(and
> I
> | > really mean really) appreciate this (!).
> | >
> | >
> | >
> | > Thanks a lot,
> | >
> | >
> | >
> | > Kind regards,
> | >
> | >
> | >
> | > Jos
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | > [Example of the list]
> | >
> | >
> | >
> | > Abilita AG
> | >
> | > Althardstrasse 80 Phone: 01/8427400
> | >
> | > 8105 Regensdorf Email: (E-Mail Removed)
> | >
> | > Switzerland URL: http://www.abilita.ch/
> | >
> | >
> | >
> | > (Explanation due to a wrong copy and paste in this message: Column 1
has
> 4
> | > rows: Abilita AG, Althardstrasse 80, 8105 Regensdorf, Switzerland.
> Column
> | 2
> | > (to the right of column 1) has 3 fields: Phone, email, URL. In the
next
> | > address, below, the same goes, however, here the fax has been filled
(as
> | > opposed to the first record (Abilita))
> | >
> | >
> | >
> | >
> | >
> | >
> | >
> | > AC-Service (Schweiz) AG
> | >
> | > Hardstrasse 73 Phone: 056/437 41 11
> | >
> | > 5430 Wettingen Fax: 056/426 71 47
> | >
> | > Switzerland Email: (E-Mail Removed)
> | >
> | > URL: http://www.ac-service.com/
> | >
> | >
> | >
> | > Acag Andres Consulting AG
> | >
> | > Blue Max Gewerbezentrum Phone: 01/922 90 90
> | >
> | > 8708 Männedorf Fax: 01/922 90 99
> | >
> | > Switzerland Email: (E-Mail Removed)
> | >
> | > URL: http://www.acag.ch/
> | >
> | >
> | >
> | >
> |
> |
>
>

Open a new workbook, press Alt plus F8, enter a name for a macro and click
the "Create" button. Click the Tools drop down menu, select "References"
and place a check next to "Microsoft Outlook 9.0 Library" (you may have a
different version than 9.0). In place of the Sub>>End Sub lines that were
created for you when you entered the VB editor, paste the following code:

---------------------------------------------------------------
Public olApp As Outlook.Application
Public olNS As Outlook.NameSpace


Function InitOutlook() As Boolean
On Error GoTo Init_Error
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")

InitOutlook = True

Init_End:
Exit Function
Init_Error:
InitOutlook = False
Resume Init_End
End Function

Sub ContactGrab()
Dim fdContacts As Outlook.MAPIFolder
Dim fdItems As Outlook.Items
Dim fdItem As Object
Dim R As Integer

If olApp Is Nothing Then
If InitOutlook = False Then
MsgBox "Unable to initialize Outlook application or namespace"
Exit Sub
End If
End If

Set fdContacts = olNS.GetDefaultFolder(olFolderContacts)
Set fdItems = fdContacts.Items

Sheets("Sheet1").UsedRange.Clear

R = 1
With Sheets("Sheet1")
.Rows("1").Font.Bold = True
.Cells(1, 1).Value = "Contacts First Name"
.Cells(1, 2).Value = "Contacts Last Name"
.Cells(1, 3).Value = "Contacts Email Address"
.Columns("A").ColumnWidth = 32
.Columns("B").ColumnWidth = 36
.Columns("C").ColumnWidth = 26

End With

For Each fdItem In fdItems
On Error Resume Next
R = R + 1
With Sheets("Sheet1")
.Cells(R, 1).Value = fdItem.FirstName
.Cells(R, 2).Value = fdItem.LastName
.Cells(R, 3).Value = fdItem.Email1Address
End With
Next

End Sub
---------------------------------------------------------------

Close the VB editor Window. Save the workbook. To run the macro, click Alt
plus F8, select the "ContactGrab" macro and click the "Run" button. You
will probably be presented with a popup warning you that a macro is trying
to view email address info. Set a time in minutes for how long you will
allow this to happen.

Once you've confirmed that the thing works, you will have to edit the macro
so you can populate it with all the fields you're actually concerned with.
Hopefully this is enough of a start to make it clear how you should proceed.

Steve



"Jos" <reply in newsgroup please> wrote in message
news:3fb66894$0$58708$(E-Mail Removed)...
> Hi all,
>
>
>
> I need to import literally 3000 contacts into Outlook. I need to do this
for
> a survey I am conducting for my academic thesis (so, this is not a
business
> problem, and I don't have much money to spend :-(. I am going to mail
these
> companies and am going to send them a questionairre; therefore I need to
> have these records in Outlook.
>
>
>
> I want to do this via Excel (since importing it directly into Outlook is
not
> possible due to the list format). Unfortunately, the list (in plain text)
> looks like the list on the bottom of my message (small example). (The list
> is Excel is in 2 columns, but copy and paste did not work that well in
this
> message).
>
>
>
> So, I now have two problems:
>
> [1] The data does seem to be in standard databaseformat, although the
fields
> are not next to each other (from left to right) but below and above each
> other, as well in two rows.
>
> [2] Not allways are all fields filled: for example, sometimes the email
> address is not filled in, or the fax is missing.
>
>
>
> Thus, I can not assign headers to
>
> it (in Outlook), and thus I can not map the fields during the import into
>
> Outlook. I know I can use "transpose" in Excel to change rows into
columns,
>
> but this still requires a lot of manual work: I have to select each block,
>
> Edit/Copy, Edit/Paste Special/Transpose. With 3000 contacts I'm not happy
to
>
> do so, since it may cause the RSI-problems very easily. So, could anybody
>
> recommend a solution to my problem? I would really, really, really (and I
> really mean really) appreciate this (!).
>
>
>
> Thanks a lot,
>
>
>
> Kind regards,
>
>
>
> Jos
>
>
>
>
>
>
>
>
>
> [Example of the list]
>
>
>
> Abilita AG
>
> Althardstrasse 80 Phone: 01/8427400
>
> 8105 Regensdorf Email: (E-Mail Removed)
>
> Switzerland URL: http://www.abilita.ch/
>
>
>
> (Explanation due to a wrong copy and paste in this message: Column 1 has 4
> rows: Abilita AG, Althardstrasse 80, 8105 Regensdorf, Switzerland. Column
2
> (to the right of column 1) has 3 fields: Phone, email, URL. In the next
> address, below, the same goes, however, here the fax has been filled (as
> opposed to the first record (Abilita))
>
>
>
>
>
>
>
> AC-Service (Schweiz) AG
>
> Hardstrasse 73 Phone: 056/437 41 11
>
> 5430 Wettingen Fax: 056/426 71 47
>
> Switzerland Email: (E-Mail Removed)
>
> URL: http://www.ac-service.com/
>
>
>
> Acag Andres Consulting AG
>
> Blue Max Gewerbezentrum Phone: 01/922 90 90
>
> 8708 Männedorf Fax: 01/922 90 99
>
> Switzerland Email: (E-Mail Removed)
>
> URL: http://www.acag.ch/
>
>
>
>

I guess you missed the first line of the original request:

> I need to import literally 3000 contacts into Outlook.

Yours appears to do the opposite.
--
Regads,
Tom Ogilvy

Steve Yandl <(E-Mail Removed)> wrote in message
news:ntudnct3BebbPCqiRVn-(E-Mail Removed)...
> Open a new workbook, press Alt plus F8, enter a name for a macro and click
> the "Create" button. Click the Tools drop down menu, select "References"
> and place a check next to "Microsoft Outlook 9.0 Library" (you may have a
> different version than 9.0). In place of the Sub>>End Sub lines that were
> created for you when you entered the VB editor, paste the following code:
>
> ---------------------------------------------------------------
> Public olApp As Outlook.Application
> Public olNS As Outlook.NameSpace
>
>
> Function InitOutlook() As Boolean
> On Error GoTo Init_Error
> Set olApp = New Outlook.Application
> Set olNS = olApp.GetNamespace("MAPI")
>
> InitOutlook = True
>
> Init_End:
> Exit Function
> Init_Error:
> InitOutlook = False
> Resume Init_End
> End Function
>
> Sub ContactGrab()
> Dim fdContacts As Outlook.MAPIFolder
> Dim fdItems As Outlook.Items
> Dim fdItem As Object
> Dim R As Integer
>
> If olApp Is Nothing Then
> If InitOutlook = False Then
> MsgBox "Unable to initialize Outlook application or namespace"
> Exit Sub
> End If
> End If
>
> Set fdContacts = olNS.GetDefaultFolder(olFolderContacts)
> Set fdItems = fdContacts.Items
>
> Sheets("Sheet1").UsedRange.Clear
>
> R = 1
> With Sheets("Sheet1")
> .Rows("1").Font.Bold = True
> .Cells(1, 1).Value = "Contacts First Name"
> .Cells(1, 2).Value = "Contacts Last Name"
> .Cells(1, 3).Value = "Contacts Email Address"
> .Columns("A").ColumnWidth = 32
> .Columns("B").ColumnWidth = 36
> .Columns("C").ColumnWidth = 26
>
> End With
>
> For Each fdItem In fdItems
> On Error Resume Next
> R = R + 1
> With Sheets("Sheet1")
> .Cells(R, 1).Value = fdItem.FirstName
> .Cells(R, 2).Value = fdItem.LastName
> .Cells(R, 3).Value = fdItem.Email1Address
> End With
> Next
>
> End Sub
> ---------------------------------------------------------------
>
> Close the VB editor Window. Save the workbook. To run the macro, click
Alt
> plus F8, select the "ContactGrab" macro and click the "Run" button. You
> will probably be presented with a popup warning you that a macro is trying
> to view email address info. Set a time in minutes for how long you will
> allow this to happen.
>
> Once you've confirmed that the thing works, you will have to edit the
macro
> so you can populate it with all the fields you're actually concerned with.
> Hopefully this is enough of a start to make it clear how you should
proceed.
>
> Steve
>
>
>
> "Jos" <reply in newsgroup please> wrote in message
> news:3fb66894$0$58708$(E-Mail Removed)...
> > Hi all,
> >
> >
> >
> > I need to import literally 3000 contacts into Outlook. I need to do this
> for
> > a survey I am conducting for my academic thesis (so, this is not a
> business
> > problem, and I don't have much money to spend :-(. I am going to mail
> these
> > companies and am going to send them a questionairre; therefore I need to
> > have these records in Outlook.
> >
> >
> >
> > I want to do this via Excel (since importing it directly into Outlook is
> not
> > possible due to the list format). Unfortunately, the list (in plain
text)
> > looks like the list on the bottom of my message (small example). (The
list
> > is Excel is in 2 columns, but copy and paste did not work that well in
> this
> > message).
> >
> >
> >
> > So, I now have two problems:
> >
> > [1] The data does seem to be in standard databaseformat, although the
> fields
> > are not next to each other (from left to right) but below and above each
> > other, as well in two rows.
> >
> > [2] Not allways are all fields filled: for example, sometimes the email
> > address is not filled in, or the fax is missing.
> >
> >
> >
> > Thus, I can not assign headers to
> >
> > it (in Outlook), and thus I can not map the fields during the import
into
> >
> > Outlook. I know I can use "transpose" in Excel to change rows into
> columns,
> >
> > but this still requires a lot of manual work: I have to select each
block,
> >
> > Edit/Copy, Edit/Paste Special/Transpose. With 3000 contacts I'm not
happy
> to
> >
> > do so, since it may cause the RSI-problems very easily. So, could
anybody
> >
> > recommend a solution to my problem? I would really, really, really (and
I
> > really mean really) appreciate this (!).
> >
> >
> >
> > Thanks a lot,
> >
> >
> >
> > Kind regards,
> >
> >
> >
> > Jos
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > [Example of the list]
> >
> >
> >
> > Abilita AG
> >
> > Althardstrasse 80 Phone: 01/8427400
> >
> > 8105 Regensdorf Email: (E-Mail Removed)
> >
> > Switzerland URL: http://www.abilita.ch/
> >
> >
> >
> > (Explanation due to a wrong copy and paste in this message: Column 1 has
4
> > rows: Abilita AG, Althardstrasse 80, 8105 Regensdorf, Switzerland.
Column
> 2
> > (to the right of column 1) has 3 fields: Phone, email, URL. In the next
> > address, below, the same goes, however, here the fax has been filled (as
> > opposed to the first record (Abilita))
> >
> >
> >
> >
> >
> >
> >
> > AC-Service (Schweiz) AG
> >
> > Hardstrasse 73 Phone: 056/437 41 11
> >
> > 5430 Wettingen Fax: 056/426 71 47
> >
> > Switzerland Email: (E-Mail Removed)
> >
> > URL: http://www.ac-service.com/
> >
> >
> >
> > Acag Andres Consulting AG
> >
> > Blue Max Gewerbezentrum Phone: 01/922 90 90
> >
> > 8708 Männedorf Fax: 01/922 90 99
> >
> > Switzerland Email: (E-Mail Removed)
> >
> > URL: http://www.acag.ch/
> >
> >
> >
> >
>
>

I hate it when I do that.<g> Looks like there is now a post in the thread
that shows how to do the transfer the poster actually asked for.

Steve


"Tom Ogilvy" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I guess you missed the first line of the original request:
>
> > I need to import literally 3000 contacts into Outlook.
>
> Yours appears to do the opposite.
> --
> Regads,
> Tom Ogilvy
>
> Steve Yandl <(E-Mail Removed)> wrote in message
> news:ntudnct3BebbPCqiRVn-(E-Mail Removed)...
> > Open a new workbook, press Alt plus F8, enter a name for a macro and
click
> > the "Create" button. Click the Tools drop down menu, select
"References"
> > and place a check next to "Microsoft Outlook 9.0 Library" (you may have
a
> > different version than 9.0). In place of the Sub>>End Sub lines that
were
> > created for you when you entered the VB editor, paste the following
code:
> >
> > ---------------------------------------------------------------
> > Public olApp As Outlook.Application
> > Public olNS As Outlook.NameSpace
> >
> >
> > Function InitOutlook() As Boolean
> > On Error GoTo Init_Error
> > Set olApp = New Outlook.Application
> > Set olNS = olApp.GetNamespace("MAPI")
> >
> > InitOutlook = True
> >
> > Init_End:
> > Exit Function
> > Init_Error:
> > InitOutlook = False
> > Resume Init_End
> > End Function
> >
> > Sub ContactGrab()
> > Dim fdContacts As Outlook.MAPIFolder
> > Dim fdItems As Outlook.Items
> > Dim fdItem As Object
> > Dim R As Integer
> >
> > If olApp Is Nothing Then
> > If InitOutlook = False Then
> > MsgBox "Unable to initialize Outlook application or namespace"
> > Exit Sub
> > End If
> > End If
> >
> > Set fdContacts = olNS.GetDefaultFolder(olFolderContacts)
> > Set fdItems = fdContacts.Items
> >
> > Sheets("Sheet1").UsedRange.Clear
> >
> > R = 1
> > With Sheets("Sheet1")
> > .Rows("1").Font.Bold = True
> > .Cells(1, 1).Value = "Contacts First Name"
> > .Cells(1, 2).Value = "Contacts Last Name"
> > .Cells(1, 3).Value = "Contacts Email Address"
> > .Columns("A").ColumnWidth = 32
> > .Columns("B").ColumnWidth = 36
> > .Columns("C").ColumnWidth = 26
> >
> > End With
> >
> > For Each fdItem In fdItems
> > On Error Resume Next
> > R = R + 1
> > With Sheets("Sheet1")
> > .Cells(R, 1).Value = fdItem.FirstName
> > .Cells(R, 2).Value = fdItem.LastName
> > .Cells(R, 3).Value = fdItem.Email1Address
> > End With
> > Next
> >
> > End Sub
> > ---------------------------------------------------------------
> >
> > Close the VB editor Window. Save the workbook. To run the macro, click
> Alt
> > plus F8, select the "ContactGrab" macro and click the "Run" button. You
> > will probably be presented with a popup warning you that a macro is
trying
> > to view email address info. Set a time in minutes for how long you will
> > allow this to happen.
> >
> > Once you've confirmed that the thing works, you will have to edit the
> macro
> > so you can populate it with all the fields you're actually concerned
with.
> > Hopefully this is enough of a start to make it clear how you should
> proceed.
> >
> > Steve
> >
> >
> >
> > "Jos" <reply in newsgroup please> wrote in message
> > news:3fb66894$0$58708$(E-Mail Removed)...
> > > Hi all,
> > >
> > >
> > >
> > > I need to import literally 3000 contacts into Outlook. I need to do
this
> > for
> > > a survey I am conducting for my academic thesis (so, this is not a
> > business
> > > problem, and I don't have much money to spend :-(. I am going to mail
> > these
> > > companies and am going to send them a questionairre; therefore I need
to
> > > have these records in Outlook.
> > >
> > >
> > >
> > > I want to do this via Excel (since importing it directly into Outlook
is
> > not
> > > possible due to the list format). Unfortunately, the list (in plain
> text)
> > > looks like the list on the bottom of my message (small example). (The
> list
> > > is Excel is in 2 columns, but copy and paste did not work that well in
> > this
> > > message).
> > >
> > >
> > >
> > > So, I now have two problems:
> > >
> > > [1] The data does seem to be in standard databaseformat, although the
> > fields
> > > are not next to each other (from left to right) but below and above
each
> > > other, as well in two rows.
> > >
> > > [2] Not allways are all fields filled: for example, sometimes the
email
> > > address is not filled in, or the fax is missing.
> > >
> > >
> > >
> > > Thus, I can not assign headers to
> > >
> > > it (in Outlook), and thus I can not map the fields during the import
> into
> > >
> > > Outlook. I know I can use "transpose" in Excel to change rows into
> > columns,
> > >
> > > but this still requires a lot of manual work: I have to select each
> block,
> > >
> > > Edit/Copy, Edit/Paste Special/Transpose. With 3000 contacts I'm not
> happy
> > to
> > >
> > > do so, since it may cause the RSI-problems very easily. So, could
> anybody
> > >
> > > recommend a solution to my problem? I would really, really, really
(and
> I
> > > really mean really) appreciate this (!).
> > >
> > >
> > >
> > > Thanks a lot,
> > >
> > >
> > >
> > > Kind regards,
> > >
> > >
> > >
> > > Jos
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > > [Example of the list]
> > >
> > >
> > >
> > > Abilita AG
> > >
> > > Althardstrasse 80 Phone: 01/8427400
> > >
> > > 8105 Regensdorf Email: (E-Mail Removed)
> > >
> > > Switzerland URL: http://www.abilita.ch/
> > >
> > >
> > >
> > > (Explanation due to a wrong copy and paste in this message: Column 1
has
> 4
> > > rows: Abilita AG, Althardstrasse 80, 8105 Regensdorf, Switzerland.
> Column
> > 2
> > > (to the right of column 1) has 3 fields: Phone, email, URL. In the
next
> > > address, below, the same goes, however, here the fax has been filled
(as
> > > opposed to the first record (Abilita))
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > > AC-Service (Schweiz) AG
> > >
> > > Hardstrasse 73 Phone: 056/437 41 11
> > >
> > > 5430 Wettingen Fax: 056/426 71 47
> > >
> > > Switzerland Email: (E-Mail Removed)
> > >
> > > URL: http://www.ac-service.com/
> > >
> > >
> > >
> > > Acag Andres Consulting AG
> > >
> > > Blue Max Gewerbezentrum Phone: 01/922 90 90
> > >
> > > 8708 Männedorf Fax: 01/922 90 99
> > >
> > > Switzerland Email: (E-Mail Removed)
> > >
> > > URL: http://www.acag.ch/
> > >
> > >
> > >
> > >
> >
> >
>
>

A bit of clarification please... is this how your data is set up (cell
numbers hypothetical)?

A1: Ablita AG
A2: Althardstrasse 80
A3: 8105 Regensdorf
A4: Switzerland
A5: [BLANK]
A6: AC-Service (Schweiz) AG
A7: Hardstrasse 73
A8: 5430 Wettingen
A9: Switzerland
A10: [BLANK]
etc.....

B1: [BLANK]
B2: Phone: 01/8427400
B3: Email: (E-Mail Removed)
B4: URL: http://www.abilita.ch/
B5: [BLANK]
B6: [BLANK]
B7: Phone: 056/437 4111
B8: Fax: 056/426 7147
B9: Email: (E-Mail Removed)
B10: URL: http://www.ac-service.com
etc...

If yes... I have one way of getting all of the data into one row based on
the name of the company. If the above layout is not correct, and each entry
is a max of 8 cells, you would be able to pull in the company name as well.
Let me know if you want to see it.... this was a fun one

ryanb.
"Jos" <reply in newsgroup please> wrote in message
news:3fb66894$0$58708$(E-Mail Removed)...
> Hi all,
>
>
>
> I need to import literally 3000 contacts into Outlook. I need to do this
for
> a survey I am conducting for my academic thesis (so, this is not a
business
> problem, and I don't have much money to spend :-(. I am going to mail
these
> companies and am going to send them a questionairre; therefore I need to
> have these records in Outlook.