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 : 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
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
vMailItem.sendUsingAccount('hicks90@hotmail.com');
2- Je n'arrive pas a renseigner les champs CC et CCI pour y placer d'autre adresse.

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

Stéphane Denis