Delphi 2009 et Outlook - choisir compte d'envoi et ajout copie conforme

Bonjour,
Je suis a bricoler une petite application qui doit envoyer des statut d'utilisation par courriel.
Mon programme de test fonctionne assez bien (j'ai pris une recette toute faite), voir ci-dessous, mais il me reste deux coquilles que je n'arrive pas a régler.

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 33 34 35 36

procedure TForm1.Button1Click(Sender: TObject); const olMailItem = 0; var Outlook: OleVariant; vMailItem: variant; begin try Outlook := GetActiveOleObject('Outlook.Application'); except Outlook := CreateOleObject('Outlook.Application'); end; vMailItem := Outlook.CreateItem(olMailItem);   // Destinataire du message vMailItem.Recipients.Add('stef.denis@test.ca');   //*Sujet du courriel vMailItem.Subject := 'test email from test';   // Message dans le courriel // Avec du HTML : Mailitem.htmlbody (a revoir) vMailItem.Body := 'This is a test un autre avec accuse reception';   // Pieces jointe vMailItem.Attachments.Add('C:\temp\sample.txt');   // Demande accusé reception vMailItem.ReadReceiptRequested := True;   // --- Envoie courriel --- vMailItem.Send;   VarClear(Outlook);   end;

---

1- Mon logiciel client Outlook 2010 a plusieurs comptes (Gmail, Hotmail FAI etc). Je n'arrive pas a sélectionner le compte expédition du message, la ligne ci-dessous ne fonctionne pas. :oops:

Code:

---

vMailItem.sendUsingAccount('hicks90@hotmail.com');

---

2- Je n'arrive pas a renseigner les champs CC et CCI pour y placer d'autre adresse. :oops:

J'ai fouillé la FAQ http://delphi.developpez.com/faq/?pa...rmailoutlookv2 et ici : http://msdn.microsoft.com/en-us/libr...ice.15%29.aspx

Merci à l'avance pour votre aide :D

Stéphane Denis

pour ta première question, pê une piste ici : vmailItem.sendUsingAccount := Outlook.session.accounts.item[2]; ou là : mailItem.sendUsingAccount := application.session.accounts.item( 'some account' ); ; et encore mieux, dans le msdn que tu cites : une fonction d'énumération qui renvoie le compte désigné par son nom en argument

on y trouve aussi :

Citation:

---

Envoyé par msdn

(mailItem.)BCC : Returns a String representing the display list of blind carbon copy (BCC) names for a MailItem. Read/write.

---

Bonjour tourlourou,
Merci pour ta réponse. J'ai fouillé dans le MSDN sans trop maitrisé... :oops:

1- La solution donné pour l'envoi à partir d'un autre compte (hotmail par exemple) fonctionne. Les deux syntaxes proposés fonctionnent :

Code:

---

1 2 3

vmailItem.sendUsingAccount := Outlook.session.accounts.item[3]; // A la condition que le deuxième compte de courriel soit le compte Hotmail dans mon cas   vmailItem.sendUsingAccount := Outlook.session.accounts.item( 'toto@hotmail.com' );

---

Je faisais : vMailItem.sendUsingAccount('toto@hotmail.com');

Il y a un mais... cela ne fonctionne pas avec des BALs partagées dans un environnement Microsoft Exchange (comme a mon boulot). Une image vaut 1000 mots, voir ci-dessous:
Pièce jointe 152923

Les quatre premières BALs existent bien sur différent serveur et sont configurés dans mon client Outlook. Si je place dans : vmailItem.sendUsingAccount := Outlook.session.accounts.item[x]; x entre 1 et 4, l'expéditeur sera bien l'adresse choisis. Mais si j'essaie avec l'une des deux autres BAL cela ne fonctionne pas. J'ai un message d'erreur hors de la plage. On voit bien que ces BALs sont "graphiquement" séparées par un trait et sont donc "différentes".

Je vais refaire des essais la semaine prochaine sur mon poste au boulot, là je fais des tests de la maison. On verras si cela change quelque chose.
Mais j'aimerais vraiment pouvoir répondre avec les autres adresses que l'adresse à mon nom au boulotl.


2- Pour l'utilisation de CC et de BCC, cela fonctionne aussi.

Code:

---

1 2 3 4 5

// Avec un CC vMailItem.CC := ('titi@pixelistes.com');   // Avec un BCC vMailItem.BCC := ('tata@hotmail.com');

---

Merci encore pour votre aide,
Si quelqu'un a une solution pour les BALs partagées dans Exchange, je suis preneur :)

Bonjour,
Je répond à ma dernière question moi-même :D

Il faut utiliser l'instruction ci-dessous pour envoyé un courriel avec les BAL partagées en environnement Exchange.

Code:

---

vmailItem.SentOnBehalfOfName := 'info@boulot.ca';

---

Voir ici : http://www.slipstick.com/developer/c...l-address-vba/

Dossier régler.
:resolu: