Envoi par mail d'un QuickReport

Bonjour tous le monde!
Ca fait un moment que je lutte tout seul et j'aimerais si ca vous dit de lutter avec moi ;) ...
En fait, je voudrais envoyer par mail tout ce qui est ecrit et dessiné dans un QuickReport.. Je sais pas quelle est la meilleur solution! J'ai fait un preview de façon à l'afficher, là super je peus l'imprimer mais je pensais que la solution se pdéroule avant, je pensais à ça:

Citation:

---

FrmContratGite->QuickRep1->Prepare();
FrmContratGite->NMSMTPGite->Host = "smtp.hotmail.fr";
FrmContratGite->NMSMTPGite->Port = 25;
FrmContratGite->NMSMTPGite->UserID = "tonio";
FrmContratGite->NMSMTPGite->Connect();
if (FrmContratGite->NMSMTPGite->Connected)
{
FrmContratGite->NMSMTPGite->PostMessage->FromAddress = "toto@hotmail.com";
FrmContratGite->NMSMTPGite->PostMessage->FromName = "duga";
FrmContratGite->NMSMTPGite->PostMessage->ToAddress->Add("tata@hotmail.com");
FrmContratGite->NMSMTPGite->PostMessage->Subject = "test envoi mail LOCAPRIO";
FrmContratGite->NMSMTPGite->PostMessage->Body->Add("Contenu du mail");
FrmContratGite->NMSMTPGite->PostMessage->Attachments->Add("???");
FrmContratGite->NMSMTPGite->SendMail();
FrmContratGite->NMSMTPGite->Disconnect();
}

---

Si jamais vous avez une idée, si jamais ce cas de figure c'est présenté, merci de votre aide.

L'essentiel, c'est que ton destinataire puisse lire ton QuickReport.

Code:

---

1 2 3

QuickReport1->Prepare(); QuickReport1->QRPrinter->Save("c:\\MonFichier.tmp");

---

Après à la place de "???" dans ton code, tu mets "c:\\MonFichier.tmp"

Pour la lecture ensuite:

Code:

---

1 2 3

QuickReport1->Prepare() QuickReport1->QRPrinter->Load("c:\\MonFichier.tmp");

---

Attention sur ces deux méthodes, il faut libérer le QRPrinter après.
Je récupérerais le code qui va bien demain au boulot.

Mattetfamilly

OK merci moi je teste ca ce soir en rentrant chez moi.
Merci encore.. Bonne journée