Отправка email с вложением файла
Отправка email с вложением файла
Отправка email с вложением файла var M: TIdMessage; ATT: Tidattachment; begin M := TIdMessage.Create(Form1); M.Body.Add(Memo1.Text); M.From.Text := '"'+name+'" <'+email+'>'; //отправитель M.Recipients.Add; M.Subject := 'Тема письма'; //Тема письма m.Recipients.EMailAddresses:='komatoz1804@gmail.com'; IdSMTP1.AuthenticationType := atlogin; IdSMTP1.Host := host; IdSMTP1.Username := emailname; IdSMTP1.Password := 'wizow'; m.IsEncoded:=true; ATT := TIdAttachment.Create(m.MessageParts,'C:111.txt'); try idSMTP1.Connect(); if idSMTP1.Connected then begin idSMTP1.Send(m); MessageDlg('Отправка завершена',mtInformation,[mbOk],0); end else MessageDlg('Отправка не завершена',mtInformation,[mbOk],0); finally IdSMTP1.Disconnect; end; att.free; end;
