Отправка почты

← →
Андрей Алекс. (2008-11-20 14:23) [0]

sendmail.Host := "mail.rambler.ru"; sendmail.AuthenticationType:=atLogin; sendmail.Username:="frikov"; sendmail.Password:="147852"; sendmail.Connect; // memo1.Lines.Add(sendmail.ReadLn(#$A,-1,-1)); sendmess.From.Name := "frikov@ramvler.ru"; sendmess.Subject:= "Fr1Koff"; sendmess.Body.SetText("HAHA"); sendmess.Body.Insert(0, "Yesy IZ Delphi"); sendmess.Recipients.EMailAddresses:="frikov@rambler.ru"; sendmail.Send(sendmess); sendmail.Disconnect;

пишет ошибку

5.1.8 <>: Sender Address rejected: Envelope from do not macth authentication data; check your settings

← →
Palladin © (2008-11-20 14:24) [1]

> sendmess.From.Name := "frikov@ramvler.ru";

внимательно буковки проверь

← →
Андрей Алекс. (2008-11-20 14:27) [2]

если нащёт этого sendmess.From.Name := "frikov@ramvler.ru";
то исправлено но таже ошибка

← →
Андрей Алекс. (2008-11-20 14:41) [3]

так в чём проблема то?

← →
StriderMan (2008-11-20 14:42) [4]

пароль неправильный. только что проверил :)))

← →
Андрей Алекс. (2008-11-20 14:44) [5]

да не в пароле дело понятно едело что я не буду пароль правильный давать

← →
Сергей М. © (2008-11-20 14:56) [6]

> в чём проблема то?

В том что ты пытаешься отправить сообщение без обратного адреса на конверте.

← →
Андрей Алекс. (2008-11-20 15:03) [7]

что для этого сделать то надо?

← →
Сергей М. © (2008-11-20 15:04) [8]

Как что ? Указать обратный адрес, разумеется ..

← →
Андрей Алекс. (2008-11-20 15:08) [9]

sendmess.From.Name := "frikov@rambler.ru"; - так а это что

← →
Сергей М. © (2008-11-20 15:10) [10]

> а это что

А это имя (которым ты себя любимого назвал - серверу оно по барабану), а не адрес.

Адрес - это From.Address

← →
Anatoly Podgoretsky © (2008-11-20 15:32) [11]

> StriderMan (20.11.2008 14:42:04) [4]

А у меня говорить пользователя нет, кто то раньше успел удалить.

← →
Anatoly Podgoretsky © (2008-11-20 15:32) [12]

> Андрей Алекс. (20.11.2008 14:44:05) [5]

Кому понятное, сейчас уже весь ДельфиМастер проверил.

← →
Андрей Алекс. (2008-11-20 15:35) [13]

sendmess.Subject:= "1";
sendmess.Body.SetText(????????????????????????);
sendmess.Body.Insert(0, "Накладная - ");

скажите как мне в сообщение (SelText) добавить данные из таблицы???

добавляется только одна строка если так field[2].text
а мне всю таблицу отослать надо

← →
Сергей М. © (2008-11-20 15:41) [14]

> данные из таблицы

1. Выполнить тем или иным образом экспорт содержимого таблицы в набор данных в формате CSV или TSV.

2. Передать результат экспорта параметром в метод SetText

← →
Андрей Алекс. (2008-11-20 15:45) [15]

это самы оптимальный вариант?

← →
Сергей М. © (2008-11-20 15:47) [16]

А что, есть альтернативы ?

← →
Андрей Алекс. (2008-11-20 15:52) [17]

а почитать дето есть про это

← →
Palladin © (2008-11-20 15:54) [18]

про что "это" ?

← →
Сергей М. © (2008-11-20 15:54) [19]

> про это

Про что конкретно ?

← →
Андрей Алекс. (2008-11-20 15:56) [20]

> 1. Выполнить тем или иным образом экспорт содержимого таблицы
> в набор данных в формате CSV или TSV.
>
> 2. Передать результат экспорта параметром в метод SetText

про это

← →
Сергей М. © (2008-11-20 16:02) [21]

var MyTableData: String; .. MyTableData := ExportAsTSV(МояТаблица); sendmess.Body.SetText(MyTableData);

← →
Андрей Алекс. (2008-11-20 16:07) [22]

ExportAsTSV в поисковике даже нигде нету и делфи говорит что не определен

← →
Сергей М. © (2008-11-20 16:08) [23]

Так это ты сам должен реализовать, в зависимости от того что из себя представляет МояТаблица..

← →
Андрей Алекс. (2008-11-20 16:10) [24]

ууу... а что подразумеваятса под слова что она представляет.

← →
Сергей М. © (2008-11-20 16:13) [25]

Ну как что ?

Цитирую тебя:

> добавить данные из таблицы

Что там у тебя за "таблица" - это одному тебе известно)

← →
Андрей Алекс. (2008-11-20 16:15) [26]

1. Таблица Парадокс
2. Структура |Номер|Наименование|Кол-во|Цена|Сумма

Пример

|1|Танк|1|20000|20000
|2|Самолет|2|15000|30000
|3|Ракета|3|5000|15000

за пример пожалуста не судите

function ExportAsDelimitedText(DS: TDataSet; Delimiter: Char = #9): String; var i: Integer; sl: TStrings; s: String; begin sl := TStringList.Create; try DS.First; while not DS.Eof do begin s := ""; for i := 0 to DS.Fields.Count - 1 do s := s + Delimiter + DS.Fields[i].AsString; DS.Next; end; Result := sl.Text; finally sl.Free; end; end; .. sendmess.Body.SetText(ExportAsDelimitedText(MyTableComponent, "|"));

> Пример
>
> |1|Танк|1|20000|20000
> |2|Самолет|2|15000|30000
> |3|Ракета|3|5000|15000

Украинский султан пишет письмо грузинскому султану ?)

← →
Андрей Алекс. (2008-11-20 17:19) [29]

[Error] Unit1.pas(474): Incompatible types: "String" and "PAnsiChar"

вот что в итоге

это вопрос?

это непреодолимая засада :)

> Андрей Алекс. (20.11.08 17:19) [29]

Пример дан для изучения, а не для тупого передирания.
Тряси бубен - выбора у тебя, похоже, нет)

← →
Андрей Алекс. (2008-11-21 10:04) [33]

> function ExportAsDelimitedText(DS: TDataSet; Delimiter:
> Char = #9): String;

поменял на
function ExportAsDelimitedText(DS: TDataSet; Delimiter: Char = #9): PAnsiChar;

Result := sl.Text;

поменял на
Result := sl.GetText;

теперь просто приходит пустое сообщение

> Андрей Алекс. (21.11.08 10:04) [33]

Охх.. Сам не ведаешь что творишь ..

function ExportAsDelimitedText(DS: TDataSet; Delimiter: Char = #9): String; var i: Integer; sl: TStrings; s: String; begin sl := TStringList.Create; try DS.First; while not DS.Eof do begin s := ""; for i := 0 to DS.Fields.Count - 1 do s := s + Delimiter + DS.Fields[i].AsString; DS.Next; end; Result := sl.Text; finally sl.Free; end; end; .. sendmess.Body.Text := ExportAsDelimitedText(MyTableComponent, "|");

← →
Андрей Алекс. (2008-11-21 10:33) [35]

всё равно приходит пустая накладная

sendmess.Body.Text := ExportAsDelimitedText(Table3, "|");

function ExportAsDelimitedText(DS: TDataSet; Delimiter: Char = #9): String; var i: Integer; sl: TStrings; s: String; begin sl := TStringList.Create; try DS.First; while not DS.Eof do begin s := ""; for i := 0 to DS.Fields.Count - 1 do s := s + Delimiter + DS.Fields[i].AsString; sl.Add(s); DS.Next; end; Result := sl.Text; finally sl.Free; end; end; .. sendmess.Body.Text := ExportAsDelimitedText(MyTableComponent, "|");

Отправка почты Найти похожие ветки