Avatar billede pejsen Nybegynder
27. juni 2005 - 22:17 Der er 12 kommentarer og
1 løsning

Opret aftale i Outlook kalender

Hej Eksperter

Jeg er i øjeblikket igang med at forsøge på at lave en Database omkring service på diverse maskiner.

Jeg har lavet en Tabel over maskinerne og en tabel over tilhørende service eftesyn,med datoer og notater, en slags logbog.

Disse tabeller har samlet i en hovedformular (tabel: Maksiner) med en underformular.(Tabel : Service)

Jeg har ekspermenteret med en mulighed vedr. datoerne for service-eftersyn. Jeg vil gerne lave det således, at man kan sætte et flueben i en Ja/nej boks, og derved har  mulighed for at sende det indtastet over som aftale i Outlook (Jeg kører på en exchangeserver).

Jeg har prøvet diverse løsninger herfra Ekpserten og rundt fra forskellige websider. Men jeg kan ikke få det til at virke.
jeg har sidst prøvet dette. http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dno2k3ta/html/odc_ac_olauto.asp

Er der en som kan løse det for mig.

Mvh Pejsen
Avatar billede -anders- Juniormester
27. juni 2005 - 23:27 #1
Har du set dette indlæg !

http://eksperten.dk/spm/542436
Avatar billede pejsen Nybegynder
28. juni 2005 - 00:19 #2
Hejaandersen

Er det kun dette her som skal stå i koden

Set myOlApp = New Outlook.Application
    Set myappitem = myOlApp.CreateItem(olAppointmentItem)
    myappitem.Subject = "Sample"
    myappitem.Body = "Some text in the body"
    myappitem.Start = Date + 20
    myappitem.End = DateAdd("h", 2, myappitem.Start)
    myappitem.Display (False) 'Show the newly created appointment item as Modal (True)
    myappitem.Save ' this statment will save the appointment in your system.

Hilsen Pejsen
Avatar billede terry Ekspert
28. juni 2005 - 11:59 #3
your going to need a reference to Outlook too

Tools+References menu in code view
Avatar billede -anders- Juniormester
28. juni 2005 - 12:09 #4
Hej terry, er først lige kommet online, jeg er nok ikke så skrap her, men mente at linket måske kunne være noget for pejsen, jeg håber du kan hjælpe :o)
Avatar billede terry Ekspert
28. juni 2005 - 15:33 #5
Hi Anders
This works

Dim oApp As Outlook.Application
Dim oAppointment As Outlook.AppointmentItem



    On Error GoTo Proc_Err

    Set oApp = CreateObject("Outlook.Application")
    Set oAppointment = oApp.CreateItem(olAppointmentItem)

    oAppointment.Start = #6/28/2005#
    oAppointment.End = #6/28/2005#
    oAppointment.Subject = "New Appointment"
    oAppointment.Body = "Some Appointment text"
   
    oAppointment.Save
   
   
Proc_Exit:

    On Error Resume Next
       
    Exit Function

Proc_Err:

    Resume Proc_Exit
End Function
Avatar billede terry Ekspert
28. juni 2005 - 15:34 #6
and its VERY similar to what you have, so I'm sure yours should work too :o)
Avatar billede pejsen Nybegynder
28. juni 2005 - 18:03 #7
Hej Terry

Hvad er forskellen på  "oAppointment" og  "myappitem"

Kan man lave et Ja/nej felt, så jeg kan vælge hvilke indtastninger som skal sendes til Outlook?????????????

Med venlig hilsen Pejsen
Avatar billede terry Ekspert
28. juni 2005 - 21:13 #8
I'm guessing oAppointment and myappitem are the same,(both Outlook.AppointmentItem) but as I cant see any variable declarations cant be 100% sure (99.99%) :o)

Not sure what you mean "Kan man lave et Ja/nej felt, så ..."!

If JaNejFelt Then '= True

    oAppointment.Start = #6/28/2005#
    oAppointment.End = #6/28/2005#

End if

?
Avatar billede terry Ekspert
30. juni 2005 - 21:13 #9
does this help?
Avatar billede terry Ekspert
05. juli 2005 - 22:34 #10
how it going pejsen?
Avatar billede terry Ekspert
24. juli 2005 - 18:52 #11
status?
Avatar billede pejsen Nybegynder
20. oktober 2005 - 23:02 #12
Ikke så godt!!!! jeg lukker
Avatar billede terry Ekspert
21. oktober 2005 - 16:17 #13
tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester