Oprette opgaver eller kalender via script el. lign.

Generelt kan du via CDO og WSH lave en ny kalender aftale, eller en opgave til en bestemt bruger. Dette script kan du så kalde fra en kommandopromt, så brugeren får det ind i sin Outlook.

Jeg kan godt lave en lille kort eksempel til dig, der kan gøre det.

VH CK

Hej CK

Det må du meget gerne...

Jeg fandt følgende eksempel:

Set CDOSession = CreateObject("MAPI.Session")
CDOSession.Logon
Set oFolder = CDOSession.GetDefaultFolder
(CdoDefaultFolderCalendar)
Set oMessages = oFolder.Messages
Set oAppt = oMessages.Add
oAppt.StartTime = "4/8/2000 2:30 pm"
oAppt.EndTime = "4/8/2000 3:30 pm"
oAppt.Subject = "Getting Married
oAppt.Location = "1234 Church St."
oAppt.Text = "Remember to pick up the ring"
oAppt.Update

jeg kan ikke lige se hvordan man fortæller hvilken brugers kalender det drejer sig om.

Kan man benytter CDO i et script der afvikles lokalt på en PC og hvad skal der ud over WSH være installeret på PC'en.

Jeg har i mellemtiden fået SDK til Exchange 2003. Her er nogle eksempler med - skrevet i ældre udgave af Visual Studio.

Jeg har tilpasset programmet CreateAppointment så det kan kompileres i min Visual Studio 2003. Hvis jeg afvikler det på vores exchange server og opgiver min egen kalender, melder programmet at den har indsat et appointment i kalenderen, men i min kalender kan jeg ikke se noget.

Det var et andet kapitel.

MVH Tommy

Det var ca. det samme eksempel jeg ville have kommet med. Men du skal bruge sætningen

Set oFolder = CDOSession.GetSharedDefaultFolder
(CdoDefaultFolderCalendar, recipient)

Hvor recipient er et pobjekt der refererer til den bruger der skal oprettes kalender aftaler til.

Jeg kan ikke komme med et konkret eksempel nu, da jeg ikke sidder indenfor rækkevideaf min Exchange...

VH CK

Hej har ændret eksemplet til:

Set CDOSession = CreateObject("MAPI.Session")
CDOSession.Logon
Set oFolder = CDOSession.GetDefaultFolder(CdoDefaultFolderCalendar, "tp")
Set oMessages = oFolder.Messages
Set oAppt = oMessages.Add
oAppt.StartTime = "12/12/2003 2:30 pm"
oAppt.EndTime = "12/12/2003 3:30 pm"
oAppt.Subject = "Getting Married"
oAppt.Location = "1234 Church St."
oAppt.Text = "Remember to pick up the ring"
oAppt.Update

Hvis jeg afvikler scriptet med CSCRIPT svarer "systemet"

F:\Designtech\ws1\test1.vbs(5, 1) Collaboration Data Objects: You do not have permission to log on. [Microsoft Exchange Server Information Store - [MAPI_E_FAILONEPROVIDER(8004011D)]]

Jeg ved ikke om løsningen med et skript er særligt velegnet - der er tale om ret mange brugere der skal skyde skriptet af.

Den bedste løsning ville være hvis der eksisterede en lille serviceapplikation der kunne polle opgaver (på samme måde som Groupwise gør) og herefter sender dem til exchange.

Jeg har fundet lidt kode i C# der kan oprette appointments:

// Reference to Microsoft ActiveX Data Objects 2.5 Library
// Reference to Microsoft CDO for Exchange 2000 Library
// Reference to Active DS Type Library
static CDO.Appointment CreateAppointment(DateTime StartTime,
                                        DateTime EndTime,
                                        String Subject,
                                        String Location,
                                        String TextBody,
                                        CDO.IMailbox iMbx)
{
  try
  {
      // Variables.
      CDO.Appointment iAppt = new CDO.Appointment();
      ADODB.Connection Conn = new ADODB.Connection();
      Conn.Provider = "ExOLEDB.DataSource";

      //Set the appointment properties.
      iAppt.StartTime = StartTime;
      iAppt.EndTime = EndTime;
      iAppt.Subject = Subject;
      iAppt.Location = Location;
      iAppt.TextBody = TextBody;

      //Save the appointment
      Conn.Open(iMbx.BaseFolder, "", "", -1);
      iAppt.DataSource.SaveToContainer(iMbx.Calendar, Conn,
        ADODB.ConnectModeEnum.adModeReadWrite,
        ADODB.RecordCreateOptionsEnum.adCreateNonCollection,
        ADODB.RecordOpenOptionsEnum.adOpenSource, "", "");

      Console.WriteLine("Appointment saved.");
      return iAppt;
  }
  catch (Exception err)
  {
      Console.WriteLine(err.ToString());
      return null;
  }
}
Det ser ikke så kompliceret ud...

MVH Tommy

Hej

Hvis jeg afvikler scriptet:

Set CDOSession = CreateObject("MAPI.Session")
CDOSession.Logon
Set oFolder = CDOSession.GetDefaultFolder(CdoDefaultFolderCalendar, recipient)
Set oMessages = oFolder.Messages
Set oAppt = oMessages.Add
oAppt.StartTime = "12/12/2003 2:30 pm"
oAppt.EndTime = "12/12/2003 3:30 pm"
oAppt.Subject = "Getting Married"
oAppt.Location = "1234 Church St."
oAppt.Text = "Remember to pick up the ring"
oAppt.Update

kommer aftalen ind i min kalender - ligemeget hvad der står i "recipient"

Følgende har jeg fundet på MSDN:

Syntax
Set objFolder = objSession.GetDefaultFolder(ObjectType [, mailbox] )

objFolder

On successful return, represents the default Folder object specified by ObjectType.

objSession

Required. The Session object.

ObjectType

Required. Long. Specifies the default folder to be retrieved.

mailbox

Optional. String. Specifies a delegate store in which to search for the folder.


I princippet skal man vel sende aftalen som e-mail til modtageren.

MVH Tommy

Hej CK (og måske andre)

Jeg skal ud og installere opgaven i morgen - så det brænder lidt.

Jeg tror den simpleste løsning ville være at sende opgaven som en E-mail til modtageren - hvis I kan hjælpe med at løse det er det super.

HVORDAN SENDER MAN EN OPGAVE SOM E-MAIL ????

//Tommy

Vi får udviklet en tekst-gateway (.NET NT-service) til Exchange server, der udnytter CDO.

//Tommy

>>Tommy

Fik du nogen sinde løst dit problem??
Jeg sidder nemlig med det samme problem nu!!

Vi har udviklet en NT-Service som poller et bestemt bibliotek for *.msg filer. Fra C5/XAL (eller andre programmer) skriver man sine e-mails, tasks, appointments, Notes i XML format ned i det bibliotek som "EtEllerAndet.msg" (ret simpelt far C5/XAL).
Servicen propper det ned i Exchange serveren der leder det videre.

På den måde bliver man uafhængig af om den enkelte bruger har Outlook og hvilke sikkerhedsindstillinger den enkelte bruger har.

Brugerne skal bare have skriveret til det bibliotek servicen poller.

Servicen har derudover en del fejlservice (hvis modtageren ikke findes mm.)
I forb. med servicen er der en CFG fil (XAL-fil) hvor man konf. selve servicen.

Jeg har det kørende på både W2K/Exchange 2000 og W2003/Exchange 2003 og det virker fint.

//Tommy

Er det noget du kan dele med os?

Er det noget du skal bruge til en eller flere installationer? - hos kunder eller jer selv?

Det er noget vi har regnet med at sælge men vi ved ikke hvordan vi kan styre det så det ikke bare bliver kopieret til højre og venstre.

Jeg skal bruge det privat

Nu skal du vel ikke bruge det til at sende SPAM - det tror jeg faktisk det ville være ret godt til.

Hvis du skal bruge det privat må du godt få programmet, men det er ikke noget free-ware program.

Jeg kan sende det pr. e-mail

:) nej ikke til spam, bare rolig. du kan sende det til tbm@slet_menzel.dk  du ved hvad du skal slette i mailadressen ;)

Tak for hjælpen

jeg kan ikke sende noget til tbm@***menzel***.dk

det var mærkeligt... prøv med torsten istedet for tbm

er sendt...

Det virker ikke...

prøv at sende en e-mail på tp@***designtech***.dk så kan jeg returnere på den! (fjern lige ***)

Hej Tommy, kunne jeg f[ dig til at maile mig dit lille program igen sammen med ops;tningsvejledningen... jeg har mistet det hele.

Please