Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];

Вниз

Почта   Найти похожие ветки 

← →
BOA_KAA   (2003-02-07 15:44) [0]

Для рабочих нужд делал программку на основе ТNMSMTP (нужно расслылать много-много писем).

Но есть две грабли:
1. Не хотят присоединяться файлы при рассылке, хотя внутри свего хоста все работает нормально.
2. Программа запускает рассылку только при закрытии.

Можно ли это победить и как?

ЗЫ: Я НЕ СПАММЕР!!!!! Действительно нужно для дела!!!

---

← →
Андрей Сенченко   (2003-02-07 15:49) [1]

1. Значит плохо вызываешь у них желание присоединиться.
2. А что Ты делаешь дл ятого чтобы было иначе ?

---

← →
BOA_KAA   (2003-02-07 15:51) [2]

procedure TfmMain.mmSendClick(Sender: TObject);
var
I: Integer;
begin
smtpMail.Host:=Host;
smtpMail.Port:=Port;
smtpMail.UserID:=UserID;
smtpMail.TimeOut:=0;
smtpMail.PostMessage.FromAddress:=EmailFrom;
smtpMail.PostMessage.FromName:=NameFrom;
smtpMail.PostMessage.Subject:=fmLetter.edSubject.Text;
smtpMail.PostMessage.Attachments.AddStrings(fmLetter.Files);
smtpMail.PostMessage.Body.AddStrings(fmLetter.mmText.Lines);
for I:=0 to lvBase.Items.Count-1 do
with smtpMail.PostMessage do
if lvBase.Items.Item[I].Checked then
ToAddress.Add(lvBase.Items.Item[I].SubItems.Strings[1]);
try
smtpMail.Connect;
except
MessageDlg("Невозможно подсоединиться к серверу", mtError, [mbOK], 0);
smtpMail.Disconnect;
Exit;
end;

try
smtpMail.SendMail;
except
MessageDlg("Невозможно отправить письма", mtError, [mbOK], 0);
smtpMail.Abort;
Exit;
end;
end;

---

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

Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.015 c