Ledenlijst importeren in Outlook

[blacksheep]

Ik gebruik MS Office 2007. Ik heb een ledenlijst in Excel opgenomen die ik wil importeren in mijn contactpersonen van Outlook. Ik krijg dan de navolgende foutmelding: Er is een fout opgetreden in het Microsoft Office Excel 97-2003 programma Het heeft geen benoemde bereiken. Gebruik excel 97-2003 voor het benoemen van het gegevens bereik dat u wilt importeren". Kan iemand me uitleggen hoe dit moet? Ik ben niet zo ingevoerd in Excel.

 

[Roncancio]

Ik gebruik MS Office 2007. Ik heb een ledenlijst in Excel opgenomen die ik wil importeren in mijn contactpersonen van Outlook. Ik krijg dan de navolgende foutmelding: Er is een fout opgetreden in het Microsoft Office Excel 97-2003 programma Het heeft geen benoemde bereiken. Gebruik excel 97-2003 voor het benoemen van het gegevens bereik dat u wilt importeren". Kan iemand me uitleggen hoe dit moet? Ik ben niet zo ingevoerd in Excel.

Heb je naar deze topic over het importeren van contactpersonen van Excel naar Outlook al gekeken?

Met vriendelijke groet,


Roncancio

 

[blacksheep]

Romancio, dank voor je verwijzing. Het klinkt stom, maar ik weet niet wat ik met die gegevens moet doen. Waar moet ik deze informatie inbrengen? Behandel me maar alsof ik BLO heb.

 

[Roncancio]

Romancio, dank voor je verwijzing. Het klinkt stom, maar ik weet niet wat ik met die gegevens moet doen. Waar moet ik deze informatie inbrengen? Behandel me maar alsof ik BLO heb.

- Open Excel.
- Ga naar EXTRA - MACRO - VISUAL BASIC EDITOR (ALT-F11)
- Ga naar INVOEGEN - MODULE
- Plak onderstaande code in:

Sub Outlook()
Dim iRij As Integer
Const olContactItem = 2

Set objOutlook = CreateObject("Outlook.Application")
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("[B]G:\contactpersonen.xls[/B]")

iRij = 1

Do Until objExcel.Cells(iRij, "A").Value = ""

    Set objContact = objOutlook.CreateItem(olContactItem)
    objContact.FullName = objExcel.Cells(iRij, "A").Value
    objContact.CompanyName = objExcel.Cells(iRij, "B").Value
    objContact.Email1Address = objExcel.Cells(iRij, "C").Value
    objContact.Save

    iRij = iRij + 1
Loop

objExcel.Quit

End Sub

- Pas het vetgedrukte gedeelte aan naar het volledige pad & bestandsnaam van je ledenlijst bestand.
- Ga naar UITVOEREN - DOORGAAN (F5).

De macro gaat nu aan de slag.

De macro begint bij rij 1 (!) contactpersonen aanmaken waarbij:
- A-kolom = naam contactpersoon
- B-Kolom = bedrijfsnaam
- C-kolom = emailadres.

Ik weet niet wat een BLO is dus wellicht ben ik er zelf eentje.

Met vriendelijke groet,


Roncancio

 

[blacksheep]

Ik ga het onmiddellijk proberen. Dank voor je uitleg en BLO dat betekent.

Buitengewoon Lager Onderwijs Maar aangezien jij me uitstekend helpt, is dit op jou niet van toepassing