Lan en appointment til Outlook i VB

Lan en appointment = Lave en appointmant

.

take a look at this. You need a refrence to Outlook in your project.
Dim OlApp As Outlook.Application
Dim OlMail As MailItem
Dim OlContact As ContactItem
Dim OlTask As TaskItem
Dim OlAppointment As AppointmentItem
Dim OlMeeting As MeetingRequestItem

Dim Tstart As Date
Dim Tend As Date


    Set OlApp = CreateObject(\"Outlook.application\")
    Set OlAppointment = OlApp.CreateItem(olAppointmentItem)
    Set OlContact = OlApp.CreateItem(olContactItem)
   
    With OlContact
   
        .FullName = \"\"
        .BusinessAddress = \"\"
        .BusinessAddressPostalCode = \"\"
       
        .Save
        .Display
       
    End With
   
    With OlAppointment
       
        .Subject = \"Test Automation\"
       
        \'.AllDayEvent = False
               
        .start = Now()
        .End = DateAdd(\"n\", 30, .start)
       
       
        .Location = \"Hos tbs\"
        .OptionalAttendees = \"Some attendee\"
       
        .Save
        .Display
       
       
    End With
   
    Set OlAppointment = Nothing
    Set OlApp = Nothing
   
   
   

Some of the variables are not necessary, I am sure you can see which ones are!

OlContact isnt necessary either, but you get somethng free for your money :o)

Men kan jeg få den til at sende appointmentet til andre deltagere? (Jeg benytter i øvrigt en Exchange Server til udveksling af mails og kalender)

I am not sure here, have you tried creating an appointment?

The .OptionalAttendees is the actual persons (mail addresses) so it maybe will work.

Nope. I can not make i work.

nu har jeg fået det til at virke. Det ligner meget det du kom med Terry. Tak for hjælpen.