вложении файла в письмо (INDY)

← →
Layner © (2005-01-28 14:35) [0]

procedure TForm1.Button1Click(Sender: TObject); var s: string; begin with IdMessage do begin Msg("Assigning mail message properties"); From.Text := Edit1.text; Recipients.EMailAddresses := Edit3.text; Subject := Edit2.text; Headers.Add("MIME-Version: 1.0"); Headers.Add("Content-Type: multipart/related;type="multipart/alternative"; boundary="----=MIME_BOUNDRY_main_message""); s:=""; s:=s+"------=MIME_BOUNDRY_message_parts"+#10; s:=s+"Content-Type: text/plain; charset="windows-1251""+#10; s:=s+"Content-Transfer-Encoding: quoted-printable"+#10; s:=s+#10; s:=s+#10; s:=s+"См. файл во вложении!!"+#10; s:=s+#10; s:=s+"------=MIME_BOUNDRY_message_parts--"+#10; // добавляем атачменты s:=s+"------=MIME_BOUNDRY_main_message"+#10; s:=s+"Content-Type: application/octetstream; "+#10+" name="FileName""+#10; s:=s+"Content-Transfer-Encoding: base64"+#10; s:=s+"Content-ID: <some_attach>"+#10; s:=s+#10; s:=s+IdEncoderMIME1.EncodeString("fffffffffffffffffffffffffffffffffffffffff"); //пока шлю просто левую строку s:=s+#10; s:=s+"------=MIME_BOUNDRY_main_message--"+#10; body.Text:=s; end; SendMail(Edit4.text); end;

Функция:

function TForm1.SendMail(aHost: String): Boolean; begin Result := false; with IdSMTP do begin Caption := "Trying to sendmail via: " + aHost; Msg("Trying to sendmail via: " + aHost); Host := aHost; try Msg("Attempting connect"); Connect; Msg("Successful connect ... sending message"); Send(IdMessage); Msg("Attempting disconnect"); Disconnect; msg("Successful disconnect"); Result := true; except on E : Exception do begin if connected then try disconnect; except end; Msg("Error sending message"); result := false; ShowMessage(E.Message); end; end; end; Caption := ""; end;Присылает текст, вложений не видно
Content-Type: multipart/related;type="multipart/alternative"; boundary="----=MIME_BOUNDRY_main_message"------=MIME_BOUNDRY_message_parts Content-Type: text/plain; charset="windows-1251" Content-Transfer-Encoding: quoted-printable См. файл во вложении!! ------=MIME_BOUNDRY_message_parts-- ------=MIME_BOUNDRY_main_message Content-Type: application/octetstream; name="FileName" Content-Transfer-Encoding: base64 Content-ID: <some_attach> ZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmZmY= ------=MIME_BOUNDRY_main_message--

Кто нибудь работал также, по отправке файла из под Indy?

← →
Layner © (2005-01-28 14:36) [1]

А то уж запарился блин его отсылать :(

← →
ms © (2005-01-28 15:04) [2]

na-primer:

i 1)
Fic_Log1 := AnsiLowerCase(S_dir + "Detail_bm"+DateToStr8(now)+".csv");

i 2)
NMSMTP1.Host := "bla-bla";
NMSMTP1.Connect;
NMSMTP1.UserID := "bla-bla";
NMSMTP1.ClearParams := True;
NMSMTP1.SubType := mtPlain;
NMSMTP1.EncodeType := uuMime;
NMSMTP1.PostMessage.FromAddress := "bla-bla " NMSMTP1.PostMessage.FromName := "bla-bla" NMSMTP1.PostMessage.LocalProgram := "";
NMSMTP1.PostMessage.ReplyTo := "";
NMSMTP1.PostMessage.Date := DateToStr(Date);
NMSMTP1.PostMessage.Subject

i 3)
NMSMTP1.PostMessage.Attachments.Add(Fic_Log1);
NMSMTP1.PostMessage.Attachments.Add(Fic_Log2); NMSMTP1.PostMessage.Attachments.Add(Fic_Log3); NMSMTP1.SendMail;
NMSMTP1.Disconnect;

← →
Layner © (2005-01-28 15:14) [3]

О, благодарю, сейчас попробую, отпишу!

← →
Layner © (2005-01-28 15:25) [4]

Вопрос опять, у меня D7, TNMSMTP нет, компаненты от INDY идут сейчас вместо него? Где можно взять TNMSMTP в D7?

Раньше он был вроде на вкладке FastNet, сейчас только заметил, в D7 ее нет :(

var smtp: TidSMTP; msg: TidMessage; attch: TIdAttachment; begin // формируем сообщение msg := TIdMessage.Create(Self); // тело письма msg.SetBody(........); // тема письма msg.Subject := "........."; // отправитель msg.From.Name := "<" + ....... + ">" + " " + "......."; msg.From.Address := "..............."; // получатель msg.Recipients.EMailAddresses := "............."; // присоединяем файл attch := TIdAttachment.Create(msg.MessageParts, Полное тмя файла); attch.FileName := имя файла; // настраиваем клиента smtp := TIdSMTP.Create(Self); smtp.Host := ".........."; smtp.Port := .....; smtp.AuthenticationType := atNone; // если аутентификация не требуется // соединяемся smtp.Connect(); // посылаем сообщение smtp.Send(msg); // рассоединяемся smtp.Disconnect();

вложении файла в письмо (INDY) Найти похожие ветки