Outlook 2000 - Opret opgaver

Denne procedure opretter en opgave.
Du skal selv skifte datoer, subject, modtagere m.m. ud med felter fra din formular eller fra et recordset:

Public Sub CreateTask()
    Dim OTask As TaskItem
    If golApp Is Nothing Then
        If InitializeOutlook = False Then
            MsgBox "Unable to initialize Outlook. "
            Exit Sub
        End If
    End If
   
    Set OTask = golApp.CreateItem(olTaskItem)
    'Set OTask = golApp.CreateItem(olTaskItem)
    With OTask
        .Recipients.Add "Din bruger"
        .Subject = "Et Eller Andet Emne"
       
        .Categories = "Business; Key Customer"
        .StartDate = #11/5/2001 1:00:00 PM#
        .ReminderOverrideDefault = True
        .ReminderTime = #11/5/2001 12:00:00 PM#
        .ReminderSet = True
        .ReminderPlaySound = True
        .Display False
        .Save
        .Assign "Din Bruger"
    End With
   
End Sub

NB: Du skal lave en reference til "Microsoft Outlook x.0 Object Library" for at det virker!

mvh
Thomas

Hej Thomas,

Jeg får en fejlkode på [golApp], den skal bruge et objekt

Ahh, sorry! Du skal have dette liggende i et modul også:

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

Public 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


Beklager !! :o(

Ja nu virker det, men hvis nu jeg vil have alle Opgave til at ligge offentligt på vores netværk i den mappe der hedder "Sager", således at alle kan se hvem der har hvilke sager.

hmm, det må enten .Recipients eller .Assign, som skal laves om. Jeg er ikke helt klar over hvordan man gør.
Umiddelbart, så er en opgave, som er knyttet til en person ikke offentligt tilgængelig. Kun hvis brugeren selv vælger at lade andre se sine opgaver.

Prøv evt også med f.eks .Move eller .SaveAs
Når du skriver punktum inde i With-End With-sektionen, så får du en oversigt over de valgmuligheder der er med opgaven.
Jeg sidder ikke selv på en Exchange-server, så jeg har lidt svært ved at afprøve det for dig.

/Thomas

Hej Igen,

Du skal have dine point.

Men er de muligt at jeg kan binde det enkelte projekt til den enkelte Sag med det unikke SagNr? Således at ændringer kun slår igennem på den tidligere oprettet sag.