Appli Delphi qui utilise Outlook

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!

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.

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:

---

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;

---

Sources :

• http://www.swissdelphicenter.ch/torr...ode.php?id=364
• http://www.developpez.net/forums/showthread.php?t=70413 (7e post, celui de nut62)

Merci encore!

Citation:

---

Envoyé par slimjoe

Salut et merci beaucoup pour la piste!

---

Beatus qui prodest quibus potest
Heureux qui vient se rendre utile à ceux qu'il peut aider
:P