Discussion :

[dav999]

Bonjour,

je me suis remis un peu à Delphi/Freepascal ces derniers temps.
La j'ai attaqué un petit programme qui me permet de garder mon pointage journalier, ce que je souhaiterais faire maintenant c'est créer un nouveau mail dans Lotus Notes, ajouter la pièce jointe et le titre éventuellement le destinatairede manière automatique.
En fait je voudrais surtout créer le nouveau mail et rajouter la pièce jointe, c'est la partie la plus emmerdante pour pouvoir l'envoyer à notre secrétaire chaque vendredi. Elle n'aarrête pas de râler parce qu'elle doit systématiquement redresser mon pointage...

Le truc bête c'est que je n'ai jamais touché à OLE auparavant, ni sur Delphi, ni sur Lazarus.
J'ai un morceau de code qui fonctionnerait mais je ne sais pas comment l'utiliser, faut il rajouter quelque chose de spécial pour utiliser cela (dans les uses par exemple) ?

Voici le code en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 procedure TForm1.Button1Click(Sender: TObject);
 
  const
    EMBED_ATTACHMENT = 1454;
 
 var
    Session: NotesSession;
    DataBase: NotesDataBase;
    Mail: NotesDocument;
    RichBody: NotesRichTextItem;
 
   begin
    Session:= CreateOleObject('Notes.NotesSession') as NotesSession;
    DataBase:= Session.GETDATABASE('', '');
    DataBase.OpenMail;
    Mail:= DataBase.CreateDocument;
    Mail.AppendItemValue('Subject', 'Test - ignore');
    //Mail.AppendItemValue('SendTo', "dav@dav.net');
    RichBody:= Mail.CreateRichTextItem('Body');
    RichBody.AppendText('This is the body ');
    RichBody.EmbedObject(EMBED_ATTACHMENT, '', 'test.xls', '');
 
   Mail.Send(0, 'Vincent MAHON/marc-sgop/fr/socgen@SOCGEN');
 
  // showmessage('C est bon procédure terminée');
 
end;

Si quelqu'un pouvait m'aider je lui en serais reconnaissant.
Merci d'avance
David

[jurassic pork]

hello,
pour le uses c'est ComObj et pour les objets OLE créés ou récupérés ce sont des OLEVariant.
Voici un exemple pour attaquer excel par OLE avec lazarus tiré du wiki :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses.....comobj; 
procedure TForm1.Button1Click(Sender: TObject);
 
Var   XLApp: OLEVariant;
      x,y: byte;
      path: variant;
 
begin
 XLApp := CreateOleObject('Excel.Application'); // requires comobj in uses
 try
   XLApp.Visible := False;         // Hide Excel
   XLApp.DisplayAlerts := False;
   path := edit1.Text;
   XLApp.Workbooks.Open(Path);     // Open the Workbook
   for x := 1 to 4 do
    begin
     for y := 1 to 6 do
      begin
       SG.Cells[x,y] := XLApp.Cells[y,x].Value;  // fill stringgrid with values
      end;
    end;
 finally
   XLApp.Quit;
   XLAPP := Unassigned; end;

Ami calmant, J.P

[dav999]

Merci pour l'info.
Je regarde sur mon PC du boulot.
la variable SG est elle globale ? je ne l'a voit déclarée nulle part.

Je vais jeter un oeil au wiki.
Merci pour l'info

Bonne soirée
David

[Jipété]

Salut,

La variable SG est-elle globale ? Je ne la vois déclarée nulle part.

En lisant ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
       SG.Cells[x,y] := XLApp.Cells[y,x].Value;  // fill stringgrid with values

on pourrait penser que c'est une TStringGrid posée sur la fiche.

[Paul TOTH]

quelle étrange idée que de vouloir utiliser un objet COM Notes

Lotus est serveur SMTP, il suffit d'utiliser un composant d'envoie de mail pour envoyer ce mail !

Lotus est aussi serveur web, il m'est arrivé d'utiliser une Action dans Lotus Script pour faire un traitement déclenché par l'invocation d'une URL

PS: vous utilisez beaucoup Delphi à la Société Générale ?