Discussion :

[louay02]

Bonjour

Je veux envoyer une pièce jointe avec TIdMessage; TIdSMTP; ci-dessous le code d’envoi

Ma pièce jointe est un résultat d’un traitement effectué au précédent export dans un fichier Excel ci-dessous le code d’export

Le code d’export

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
try
   scExcelExport1.ExcelVisible:=True;
 scExcelExport1.LoadDefaultProperties;
  scExcelExport1.Dataset:=Adotable1;
 scExcelExport1.WorksheetName:='Callers1';
  scExcelExport1.ExportDataset;
 finally
   scExcelExport1.Disconnect;
  end;

Le code d’envoi

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
begin
smtp := TidSMTP.Create(nil);
  msg := TidMessage.Create(nil);
  try
    smtp.AuthenticationType := atNone;
    smtp.Host := '15.18.1.8'; // 
    smtp.Port := 25; // 
    msg.From.Address :='Nom.Prenom@ServerMssagerie.com' ;
    msg.ReplyTo.EMailAddresses := 'yyy.xxx @ok.com'; 
    msg.Recipients.EMailAddresses := 'xxx.yyy@ok.com'; 
    msg.Subject := 'Sujet';
    msg.Body.Text := 'bonjour';
  myAttachment.Create(msg.MessageParts , Callers1);// j’ai toujours une erreur;
    SMTP.Connect;  
    SMTP.Send(msg);  
    SMTP.Disconnect //(true);  
  finally
    msg.free;
    smtp.free;
  end;

Comment je peux envoyer ma pièce jointe sans sauvegarder le fichier Exel ?

Merci

[ShaiLeTroll]

il y a une FAQ complète sur l'envoi de mail via TNMSMTP ou TIdSMTP

Code prêt à l'emploi !

c'est une classe ou une variable ?
si classe, tu as bien hérité myAttachment de TidAttachment
si variable, tu ne maitrise pas l'utilisation des constructeurs, avant d'envoyer des mails, révise tes bases

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 myAttachment := TidAttachment.Create(msg.MessageParts , Callers1);

tu ne peux pas envoyer un fichier non enregistré, il faut qu'il existe sur le disque ou alors fait une gestion de stream
tu peux aussi enregistrer dans un repertoire temp et nettoyer ton fichier après envoie !

[louay02]

c'est réglé merci ShaiLeTroll