• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Data uit Excel naar outlook

Status
Niet open voor verdere reacties.

bodylojohn

Gebruiker
Lid geworden
9 nov 2006
Berichten
70
Beste mensen,

Ik heb in Excel de gegevens van klanten staan.
Nu wil ik na het drukken op een knop de gegevens van deze klant exporteren naar de contactpersonen in outlook.

Ik hoop dat jullie mij kunnen helpen.

Thanks in advanced...
 
Hallo,

Bedankt voor je antworod.
Helaas kon ik daar het antwoord niet vinden.
 
Thanks voor de moeite maar das ook niet wat ik zoek.

ik wil vanuit Excel met VBA code een contactpersoon exporteren naar de contacten van outlook.
 
Heb je het al eens andersom geprobeerd? Dus vanuit Outlook gegevens importeren?
In wat voor bestandsformaat slaat Outlook contactpersonen op?
 
Heb je het al eens andersom geprobeerd? Dus vanuit Outlook gegevens importeren?

Goede suggestie. In Outlook heb je trouwens ook VBA code, al weet ik daar nul de botten, niks, nougabollen, rien, ... van. :confused:
 
Met de volgende code kan ik een nieuwe contactpersoon toevoegen in outlook.
Maar ik wil geen nieuwe toevoegen maar eentje vervangen. Hoe doe ik dat??

Code:
Sub MakeContact()

    Dim olApp As outlook.Application
    Dim olCi As outlook.ContactItem

    Set olApp = New outlook.Application
    Set olCi = olApp.CreateItem(olContactItem)


    With olCi
        .FirstName = Cells(1, 1)
'        .LastName = "Kusleika"
'        .MobileTelephoneNumber = "(402) 555-1212"
'        .Email1Address = "dick@dicks-clicks.com"
'        .HomeAddressStreet = "111 S 1st"
'        .HomeAddressCity = "Omaha"
'        .HomeAddressState = "NE"
'        .HomeAddressPostalCode = "68100"
'        .SelectedMailingAddress = olHome
'        .Categories = "Business, Personal"
        .Save
    End With

    Set olCi = Nothing
    Set olApp = Nothing

End Sub
 
John, zoek eens op google naar de vele VBA groepen. Die kunnen je vast en zeker (en verbazend snel) helpen. Leuk als je daarna nog een keer hier aan t einde verteld hoe het je is gelukt. Dit is namelijk niet een echte XL vraag maar meer een VB issue.

Ben benieuwd.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan