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
Le code d’envoi
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;
Comment je peux envoyer ma pièce jointe sans sauvegarder le fichier Exel ?
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);// jai toujours une erreur; SMTP.Connect; SMTP.Send(msg); SMTP.Disconnect //(true); finally msg.free; smtp.free; end;
Merci
Partager