• 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.

Nieuw contactpersoon maken vanuit Excel

Status
Niet open voor verdere reacties.
apikills

apikills

Gebruiker
Lid geworden
14 jul 2005
Berichten
160
Oke Allemaal,

ik ben bezig met een personeelsaanvraag in excel en dit werkt goed. Maar ik zou graag vanuit de aanvraag direct een nieuw contactpersoon willen aanmaken in Outlook met de bijgevoegde personeelsgegevens. Hoe creeer ik een nieuw contactpersoon middels vba vanuit excel?

Api
 
Code: 
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

Zolang er gegevens staan in de A-kolom worden er contactpersonen toegevoegd aan Outlook.
Niet vergeten om de verwijzing naar je Excellijst met de contactpersonen aan te passen! (zie vetgedrukte gedeelte).

Met vriendelijke groet,


Roncancio
 
Laatst bewerkt:
Super Roncancio!

je code werkt, moest alleen even de 'x' variabele aanpassen in 'iRij' ;)

Code: 
Do Until objExcel.Cells(x, "A").Value = ""

wordt dan

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

Wat doet overigens de constante in dit verhaal?

Nu mijn eerste probleem is opgelost komt de volgende vraag boven. De nieuwe contact-item moet niet in het persoonlijke contactoverzicht geplaatst worden, maar in een apart deel dat wordt beheerd door personeelszaken. Zij hebben hier overigens de rechten voor. Hoe stel ik dit in?

Api
 
Wellicht heb je dit al gezien maar het geeft wel het nodige informatie.

Met vriendelijke groet,


Roncancio
 
Wederom super Roncancio!

Ga ik doornemen. Bedankt voor je hulp! :D

Api
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan