Текущий архив: 2005.02.20;
Скачать: CL | DM;

Вниз

вложении файла в письмо (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?

---

← →
Layner ©   (2005-01-28 15:32) [5]

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

---

← →
digger ©   (2005-01-28 15:43) [6]

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();


---

Страницы: 1 вся ветка

Текущий архив: 2005.02.20;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.043 c