Access - Outlook

You have to have a reference to Outlook to do this.
Then place this code in the on click event of your button.

Dim OlApp As Outlook.Application
Dim OlContact As ContactItem


    Set OlApp = CreateObject(\"Outlook.application\")
    Set OlContact = OlApp.CreateItem(olContactItem)
   
    With OlContact
        \'Look at other properties for saving your info, I havent looked at these myself!

        .Save
        .Display
       
    End With

prøv at kigge på denne side:
http://support.microsoft.com/support/kb/articles/Q161/0/12.ASP
Her er der nogle muligheder. Du skal selvfølgelig selv rette i nogle ting.
Du kan evt. prøve at søge i www.google.com vha.:
access, automation og outlook :-)

Placer nedenstående i et modul og kald CreateAppointment fra f.eks. en knap:

Public golApp As Outlook.Application
Public golNameSpace As Outlook.NameSpace

Function CreateAppointment()
    Dim objNewAppt As AppointmentItem
    If golApp Is Nothing Then
        If InitializeOutlook = False Then
            MsgBox \"Unable to initialize Outlook. \"
            Exit Function
        End If
    End If
   
    Set objNewAppt = golApp.CreateItem(olAppointmentItem)
    With objNewAppt
        .Recipients.Add \"TJ@makeiteasy.dk\"
        .Subject = \"Nyt møde ang.....\"
        .Categories = \"Business; Key Customer\"
        .Start = #10/20/2001 2:00:00 PM#
        .Display
    End With
End Function

Function InitializeOutlook() As Boolean
   
    On Error GoTo Init_Err
    Set golApp = New Outlook.Application            \' Application object
    Set golNameSpace = golApp.GetNamespace(\"MAPI\")  \' Namespace object
    InitializeOutlook = True
Init_Bye:
   
    Exit Function
Init_Err:
    InitializeOutlook = False
    Resume Init_Bye
   
End Function

Isnt it a contact we are wanting?

Dim OlApp As Outlook.Application
Dim OlContact As ContactItem


    Set OlApp = CreateObject(\"Outlook.application\")
    Set OlContact = OlApp.CreateItem(olContactItem)
   
    With OlContact
        \'Look at other properties for saving your info, I havent looked at these myself!

        .FullName = Me.TheName
        .BusinessAddress = Me.TheAddress
        .BusinessAddressPostalCode = Me.PostNr

        \'There are LOADS of properties you can use!

        .Save
        .Display
       
    End With

Tak til thomasjepsen
Gratulerer med pointene.

Thnx, Omp :o)

Terry-> I was just writing, that you most likely were right. But I focused on the sentence:
\"...overfører Firmanavn og Kontaktperson til KALENDER funktionen i Outlook.\"

Thats why I suggested my CreateAppointment-function.

/Thomas

Yes I can see that now Thomas, I just looked at \"Kontaktperson\" and thought what has that to do with Calendar and went from there. But the idea is still the same. So now he can create a contact and an appointment for the price of one :o)

And as far as I can see there arent any properties to place this information either!