xstaford
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
День добрый!!!
Нужно отправить ексель файл на почту! При существующем коде текст доходит нормально но атачмент c екселя превращается в att.dat!
Уже перебробывал кучу вариантов, что угодно получается но не ексель файл!!! Знаю что где то близко но не могу понять в чем проблема!!!
Очень надеюсь на вашу помощь!!!
delphi 2009, готов даже использовать другие компоненты! лижбы отправляла файл!
Код: smtp.Host:='192.168.0.1';
smtp.Connect;
idMessage1.ClearBody;
TidAttachmentFile.Create(IdMessage1.MessageParts, filename);
IdMessage1.Subject := 'Request № '+dmMain.qu_request.FieldByName('REQUEST_ID').asstring;
IdMessage1.Body.Add ('');
TidText.Create(IdMessage1.MessageParts, idMessage1.Body);
IdMessage1.MessageParts.Items[0].ContentType := 'application/octet';
idMessage1.MessageParts.Items[1].ContentType := 'text/html';
IdMessage1.ContentType := 'multipart/mixed';
IdMessage1.CharSet:= 'Windows-1251';
IdMessage1.From.Address := 'Classers@olam.bcc.com.uz';
IdMessage1.Recipients.Add.Address := 'vsergey@olam.bcc.com.uz';
IdMessage1.Encoding:= meMIME;
SMTP.Send(IDmessage1);
SMTP.Disconnect;
|
|
