Appli Delphi qui utilise Outlook

**slimjoe** · 27/11/2006, 15h25

Bonjour!

J'ai une appli qui envoie des courriels comportant des fichiers attachés via Outlook. La FAQ m'a d'ailleurs été très utile à ce sujet.

Mon problème est qu'à chaque fois que mon appli accède à Outlook, ce dernier donne un message du genre "Une application tente d'accéder à Outlook ...". Il y a probablement moyen pour moi de configurer Outlook pour qu'il ne me pose plus la question mais existe-t-il un moyen pour que mon application puisse envoyer des courriels via Outlook sans que ce message n'apparaîsse ?

Je pose la question, mais je sais que la réponse est "OUI" parce que j'ai entre les mains une autre appli qui le fait déjà (Il s'agit une application comptable qui envoie des factures en format PDF via la boîte d'Outlook. C'est très pratique puisque le courriel se copie automatiquement dans la boîte "Éléments envoyés" de Outlook, l'appli n'a donc pas à gérer ce qui a été envoyé, etc.). Je sais que l'appli a été construite avec Delphi et utilise les fonctions MAPI avancées (Extended MAPI).

J'ai déjà essayé un bon vieux ShellExecute sans succès (le courriel démarre mais ne comporte pas de document attaché).

J'ai essayé l'objet TSendMail mais il ne semble pas accepter de documents attachés.

Quelqu'un peut m'aider ?

Merci!

**Laurent Dardenne** · 27/11/2006, 16h51

Recherche sur le forum il y a qq piste pour résoudre ce pb, on a pas encore eu le temps de l'indiquer dans la FAQ.

**slimjoe** · 27/11/2006, 17h25

Salut et merci beaucoup pour la piste!

J'ai trouvé le post dont tu parlais et l'ai modifié avec d'autre code que j'ai trouvé ailleurs sur le net. Le code suivant permet d'ouvrir une fenêtre de nouveau courriel avec une adresse de destinataire, un sujet, on contenu et un fichier attaché. Tout ça s'exécute sans afficher de message de sécurité.

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
28
29
30
31
32
uses
  ComObj;
 
procedure EnvoyerCourriel;
const
  olMailItem = 0;
  olByValue = 1;
 
var
  OutlookApp, MailItem, MyAttachments: OLEVariant;
 
begin
  try
    OutlookApp := GetActiveOleObject('Outlook.Application');
  except
    OutlookApp := CreateOleObject('Outlook.Application');
  end;
 
  try
    MailItem := OutlookApp.CreateItem(olMailItem);
    MailItem.To := 'nom@monserveur.ca';
    MailItem.Subject := 'Mon sujet';
    MailItem.Body := 'Mon message';
    myAttachments := MailItem.Attachments;
    myAttachments.Add('C:\test.txt', olByValue, 1, 'Mon fichier');
    MailItem.Display(false);
 
  finally
    myAttachments := VarNull;
    OutlookApp    := VarNull;
  end;
end;